Excel Factura de Accesorios |
Responder |
Autor | |
Axi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Nuevo Unido: 10/Junio/2020 Localización: Gipuzkoa Estado: Sin conexión Puntos: 18 |
Tema: Excel Factura de Accesorios Enviado: 12/Junio/2020 a las 09:43 |
Muy buenas!
El Excel en el que estoy trabajando es una especie de checklist para crear una factura, es decir, el Excel tiene dos pestañas, en la primera aparece todos los accesorios con su casilla de control de formulario y en la otra pestaña aparece la factura total en la que se irá realizando automáticamente y en el que se separarán los accesorios requeridos y opcionales. EN RESUMEN:
Mi objetivo es que todos los elementos que vaya haciendo click en la primera pestaña, que me pregunte si es opcional o no y que dependiendo lo que haya elegido, añada una fila nueva en el sitio adecuado de la Hoja2 y que la información del accesorio se pegue en la nueva fila. Como bien he dicho en la factura que hay en la segunda pestaña ("Hoja2"), tengo que separar lo que son ACCESORIOS REQUERIDOS y ACCESORIOS OPCIONALES...
Esto es lo que he hecho yo: Sub FACTURA() Dim n As Long Dim m As Long Dim v As Long Dim Fila As Long Dim Pregunta As String Dim ACC As Long Dim ACC_O As Long m = 1 n = m + 2 v = 2 Worksheets("Hoja2").Range("A3") = "ACCESORIOS OPCIONALES" Worksheets("Hoja2").Range("A1") = "ACCESORIOS NORMAL" Worksheets("Hoja2").Range("A2") = "TOTAL ACCESORIOS NORMAL" Sheets("Hoja1").Select Worksheets("Hoja2").Range("A2:A10").Clear Worksheets("Hoja2").Range("B2:B10").Clear For v = 2 To Range("A" & v).End(xlDown).Row If Range("A" & v).Value = True Then Pregunta = MsgBox("Es un Accesorio Opcional?", vbYesNo + vbQuestion, "ACCESORIOS") If Pregunta = vbNo Then ACC = Worksheets("Hoja2").Range("A" & m).Value Worksheets("Hoja2").Cells(ACC, 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow m = m + 1 Worksheets("Hoja2").Range("A" & m).Value = Range("C" & v).Value Worksheets("Hoja2").Range("B" & m).Value = Range("D" & v).Value Else ACC_O = Worksheets("Hoja2").Range("A" & n).Value Worksheets("Hoja2").Cells(ACC_O, 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow n = n + 1 Worksheets("Hoja2").Range("A" & n).Value = Range("C" & v).Value Worksheets("Hoja2").Range("B" & n).Value = Range("D" & v).Value End If Else v = v + 1 End If Next v MsgBox "Done!" End Sub v= es el valor de todos los accesorios que aparecen en la primera pestaña m= es el valor donde irán añadiendo todos los accesorios necesarios n= es el valor de la celda donde irán todos los accesorios opcionales. Los accesorios irán uno detrás de otro pero luego, como bien se puede ver al principio, entre los accesorios requerido y accesorios opcional irán varios títulos. Espero haberme explicado bien...Que tengáis un buen día! |
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |