Como pasar automáticamente datos de un excel con resultados a otro excel con una plantilla determinada.
Necesito pasar los datos de una hoja de resultados a otra hoja donde mostrar esos mismos resultados pero con una apariencia diferente.
Son datos de facturas. He pensado buscarv peor para cada facturas hay varias líneas de producto con sus precios y demás.
¿Alguna idea?
1 respuesta
Se puede utilizar una macro, es un conjunto instrucciones en el lenguaje de programación de Visual Basic, en tu caso, puedes decir qué información quieres pasar y en dónde la quieres poner.
Con gusto te ayudo con la macro, pero tendrías que explicarme de cuál hoja y qué datos y a cuál hoja y exactamente en dónde la quieres.
Envíame tu archivo con la 2 hojas y con un ejemplo me marcas con colores qué información quieres pasar y en dónde la quieres poner.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Iselez55555” y el título de esta pregunta.
Hola Dante,
Te he enviado el correo.
Gracias y saludos!
Te anexo la macro para poner los encabezados
Sub InvoiceNumber()
'Por.Dante Amor
Set h1 = Sheets("datos")
Set h2 = Sheets("ej1")
Set h3 = Sheets("plantilla")
h2.Cells.Clear
'
j = 1
i = 2
'
ant = h1.Cells(2, "F")
encabezado h1, h2, h3, i, j
For i = 2 To h1.Range("F" & Rows.Count).End(xlUp).Row
If ant <> h1.Cells(i, "f") Then
'j = j + 1
encabezado h1, h2, h3, i, j
End If
ant = h1.Cells(i, "F")
productos h1, h2, h3, i, j
Next
h3.Select
MsgBox "Proceso terminado", vbInformation, "PLANTILLA"
End Sub
Sub encabezado(h1, h2, h3, i, j)
'Por.Dante Amor
h3.Rows(1 & ":" & 3).Copy h2.Rows(j)
'
h2.Cells(j, "B") = h1.Cells(i, "F") 'invoice num
h2.Cells(j, "C") = h1.Cells(i, "J") 'invoice date
h2.Cells(j, "D") = h1.Cells(i, "G") 'CURRENCY
h2.Cells(j, "E") = h1.Cells(i, "AB") 'PO
h2.Cells(j, "F") = h1.Cells(i, "O") 'PAYMENT_TERM
j = j + 1
h2.Cells(j, "B") = h1.Cells(i, "A") 'BILL_TO_CUSTOMER_NAME
h2.Cells(j, "C") = h1.Cells(i, "Y") 'VAT NUMNER PURCHASING COMPANY
j = j + 1
h2.Cells(j, "B") = h1.Cells(i, "Z") 'SELLER
h2.Cells(j, "C") = h1.Cells(i, "AA") 'SELLER VAT
j = j + 1
End Sub
Sub productos(h1, h2, h3, i, j)
'Por.Dante Amor
h3.Rows(4 & ":" & 6).Copy h2.Rows(j)
'
h2.Cells(j, "C") = h1.Cells(i, "P") 'DESCRIPTION
j = j + 1
h2.Cells(j, "C") = h1.Cells(i, "K") 'QUANTITY_INVOICED
h2.Cells(j, "D") = h1.Cells(i, "M") 'EXTENDED_AMOUNT
h2.Cells(j, "K") = h1.Cells(i, "V") 'TAX_TOTAL
j = j + 2
End SubSaludos.Dante Amor
