¿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

1 respuesta

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas