Consolidar registros de varias hojas en otro libro
Soy nueva en el tema de las macros y necesito de la ayuda de ustedes que son expertos en el tema, agradezco su colaboración, para salir de muchas dudas.
Tengo un libro con varias hojas identificados con fecha, en cada hoja hay varios items como Almacenar, Preparar, Digitalizacion etc y cada item tiene sus registros. Tengo otro libro donde esta cada item por pestaña, ahora quiero consolidar estos registros según el item, y que queden con la fecha que esta identificando el primer libro.
Esta es la imagen del primer libro que tengo
1 Respuesta
¡Gracias! Ya envié los dos libros por el correo :)
H o l a:
Te anexo la macro
Sub Consolidar()
'Por.Dante Amor
Set l1 = ThisWorkbook
Set l2 = Workbooks("informacion.xlsx")
meses = Array("", "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", "JUNIO", _
"JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE", "NOVIEMBRE", "DICIEMBRE")
For Each h2 In l2.Sheets
i = 5
Do While h2.Cells(i, "C") <> ""
hoja = h2.Cells(i, "C")
hojafecha = h2.Name
datos = Split(hojafecha, "_")
dia = datos(1)
mes = datos(0)
wmes = 0
For m = 1 To UBound(meses)
If UCase(mes) = meses(m) Then wmes = m
Next
If wmes > 0 Then
año = Year(Date)
fecha = DateSerial(año, wmes, dia)
existe = False
For Each h1 In l1.Sheets
If UCase(h1.Name) = UCase(hoja) Then
existe = True
Exit For
End If
Next
If existe Then
u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.Cells(u, "A") = fecha
h2.Range(h2.Cells(i, "D"), h2.Cells(i, "J")).Copy h1.Cells(u, "B")
End If
End If
i = i + 1
Loop
Next
MsgBox "Fin"
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
¡Gracias! La macro es todo lo que necesitaba, gracias a personas como tu, que prestan su tiempo para ayudar a los demás, que estamos hasta ahora aprendiendo.
