Modificar Macro que divida un archivo en varios, en grupos de 75 líneas cada archivo.
Para Dante
Sub LlenarLibroDestino()
'Por.Dante Amor
Set l1 = ThisWorkbook 'Libro origen
Set h1 = l1.Sheets("Hoja1") 'Hoja origen
ruta = l1.Path & "\"
nmax = 75
n = 1
For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row Step nmax
Set l2 = Workbooks.Add
h1.Rows(i & ":" & i + nmax - 1).Copy l2.Sheets(1).[A1]
l2.SaveAs ruta & "Aula" & n, FileFormat:=xlOpenXMLWorkbook
n = n + 1
l2.Close
Next
MsgBox "Fin"
End SubLa macro me funciona perfecto solo deseo algunos cambios.
-Tengo datos de la columna A hasta la F
-Los alumnos están en la hoja "Lista", empiezan en la fila 2.
Columna: A (DNI)/ B (Nombres) / D (Sexo)
Tengo datos en la columna C, E y F no considerar
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro actualizada
Sub LlenarLibroDestino()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook 'Libro origen
Set h1 = l1.Sheets("Lista") 'Hoja origen
ruta = l1.Path & "\"
nmax = 75
n = 1
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Step nmax
Set l2 = Workbooks.Add
h1.Range("A" & i & ":B" & i + nmax - 1 & ",D" & i & ":D" & i + nmax - 1).Copy l2.Sheets(1).[A2]
l2.SaveAs ruta & "Aula" & n, FileFormat:=xlOpenXMLWorkbook
n = n + 1
l2.Close
Next
MsgBox "Fin"
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
