Unir varios datos de varias hojas de Excel en una sola
Necesito consolidar y ordenar la información de varias hojas de excel, que se organizaron como formato de comprobante de egreso, en una sola hoja, por ejemplo el formato del comprobante va desde e A6 a I6; pero los datos están en C6(Empresa), C7(fecha), I6(#Comprobante) Fijos y desde A9(cantidad); C9(articulo); E9(serie) HASTA A23; C23; E23, son variables.
1 Respuesta
Respuesta de Dante Amor
2
H o l a :
Envíame un archivo con 3 hojas con el comprobante de egreso, en otra hoja llamada "consolidar" me pones cómo quieres el resultado de esas 3 hojas.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Luis G Moncayo C” y el título de esta pregunta.
Estimado:
Te acabo de enviar el archivo solicitado, muy gentil tu ayuda.
H o l a:
Te anexo la macro
Sub Consolidar()
'Por.Dante Amor
Set h1 = Sheets("Consolidado")
u = h1.Range("A" & Rows.Count).End(xlUp).Row
If u < 2 Then u = 2
h1.Range("A2:A" & u).ClearContents
j = 2
For Each h In Sheets
If h.Name <> h1.Name Then
u = h.Range("A" & Rows.Count).End(xlUp).Row
If u >= 9 Then
For i = 9 To u
If h.Cells(i, "A") <> "" Then
h1.Cells(j, "A") = h.[I6]
h1.Cells(j, "B") = h.[C6]
h1.Cells(j, "C") = h.[C7]
h1.Cells(j, "D") = h.Cells(i, "A")
h1.Cells(j, "E") = h.Cells(i, "C")
h1.Cells(j, "F") = h.Cells(i, "E")
If h.Cells(i + 1, "A") = "" Then
h1.Cells(j, "G") = h.Cells(i + 1, "E")
End If
j = j + 1
End If
Next
End If
End If
Next
h1.Range("A2:G" & j - 1).Borders.LineStyle = xlContinuous
MsgBox "Fin"
End Sub':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)
