separar facturas automáticamente

[Tavop]

Buen día a todos los del foro,

En una hoja de exel capture todas las facturas de misclientes

Y deseo separarlas automáticamente cliente por cliente pormedio de un macro tal vez

Anexo un ejemplo de lo que quiero hacer con su ayuda

(Lo hice en forma manual)

Gracias

facturas clientes.xls

[Armando Montes]

Hola, este ejemplo lo hace:

HojaxDepto.xls

[lge77]

Hola, este ejemplo lo hace:

si es de ayuda,´pero al modificar un dato me da error , asi que tengo que borrar todas las hojas y volvero a ejecutar

mediante este macro se borrare todas las pestañas menos la principal

Sub BorrarHojas()

Application.DisplayAlerts = False

c = Sheets.Count

For a = 2 To c

Worksheets(2).Delete

Next a

Application.DisplayAlerts = True

End Sub