Cómo juntar todas las hojas de un libro en una sola hoja
Tengo varias hojas en un libro y quiero que con una macro juntar la información de todas las hojas en una sola hoja y la hoja deberá estar en un nuevo libro.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro:
Sub JuntarHojas()
'Por.Dante Amor
Set l1 = ThisWorkbook
Set l2 = Workbooks.Add
For Each h In l1.Sheets
h.Range("A1", h.Range("A1").SpecialCells(xlLastCell)).Copy _
l2.ActiveSheet.Range("A" & l2.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1)
Next
End SubTodas hojas del libro se junta en una sola hoja en un nuevo libro.
Saludos. Dante Amor
Recuerda valorar la respuesta.
