¿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 de Dante Amor
3
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
