Dividir un fichero excel, como colocar lo encabezados en cada hoja
La macro ya esta, nada más como podría hacer que cada hoja tenga los encabezados, se encuentra en la primera fila1 todos.
Ya que tengo que hacerlo manualmente todos los encabezados de la hoja.
Respuesta de Dante Amor
2
Te anexo la macro actualizada
Sub dividir()
'Copia a una hoja nueva
'Por.Dam
Set h1 = Sheets("original")
For i = 2 To ActiveCell.SpecialCells(xlLastCell).Row
Sheets.Add
h1.Rows(1).Copy ActiveSheet.Range("A1")
h1.Rows(i & ":" & i + 1999).Copy
ActiveSheet.Range("A2").PasteSpecial xlAll
i = i + 1999
Next
End SubAvísame cualquier duda.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Hola Dante por favor explícame la función de esta líneaActiveCell.SpecialCells(xlLastCell).Row - Adriel Ortiz Mangia
Es otra forma para encontrar la última fila con datos. Cuando no sabes de cuál columna buscar la última fila con datos. - Dante Amor