¿Como dividir automáticamente una tabla dinámica en diferentes hojas de excel, según datos requeridos?

Tengo una tabla dinámica de mis clientes junto con sus facturas pendientes, ¿existe alguna forma de dividir automáticamente la tabla en hojas individuales?. Es decir una hoja para por cada cliente con sus facturas, ¿sin hacer click uno a uno para crear una?

Elena Arenas Campos

1 Respuesta

Respuesta
3

Envíame el archivo con los ejemplos.

Enviado el archivo, espero entiendas lo que quiero decir.

 Elena Arenas Campos.

Te anexo la macro:

Sub DividirHojas()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set h = Sheets("RESUMEN")
    For i = 8 To h.Range("A" & Rows.Count).End(xlUp).Row
        g = InStr(1, h.Cells(i, "A"), "  - ")
        If g > 0 Then
            nombre = Mid(h.Cells(i, "A"), g + 4)
        Else
            nombre = Left(h.Cells(i, "A"), 30)
        End If
        On Error Resume Next
        Sheets(nombre).Delete
        On Error GoTo 0
        h.Cells(i, "B").ShowDetail = True
        ActiveSheet.Move After:=Sheets(Sheets.Count)
        ActiveSheet.Name = nombre
    Next
    Application.ScreenUpdating = True
    MsgBox "Dividir hojas", 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