¿Es posible agregarle a esta Macro, una que me separe las hojas creadas en archivos individuales?
Es posible agregarle a la MACRO que divide hojas, que pueda dividirlas en archivos individuales, guardándolas con el nombre cada una de las hojas.
Tengo una macro que me divide las hojas, pero no me funciona desde las hojas de una tabla dinámica. Le enviaré el archivo por correo.
Elena Arenas
1 respuesta
Respuesta de Dante Amor
2
Te anexo la macro
Sub DividirArchivos()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h = Sheets("RESUMEN")
ruta = ThisWorkbook.Path & "\"
For i = 8 To h.Range("A" & Rows.Count).End(xlUp).Row
g = InStr(1, h.Cells(i, "A"), " - ")
If g > 0 Then
nombre = Left(h.Cells(i, "A"), g - 2)
Else
nombre = h.Cells(i, "A")
End If
nombre = Left(nombre, 30)
h.Cells(i, "B").ShowDetail = True
Set h2 = ActiveSheet
h2.Copy
Set l2 = ActiveWorkbook
l2.SaveAs Filename:=ruta & nombre & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
l2.Close
h2.Delete
Next
Application.ScreenUpdating = True
MsgBox "Dividir Archivos", vbInformation, "TERMINADO"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
