Esta es la cuestión, ojala me puedan orientar,

En exel capture todas las facturas, pero quisiera que me diera los resúmenes de cada cliente

Por ejemplo. En el hoja de pedro que salgan todas sus facturas y así sucesivamente

Adjunto el archivo.

Gracias

todas las facturas.rar

Hola.

Revisa el adjunto.

Saludos.

1.xls

Muchas Gracias, está muy bien e ideal………

Ahora le metí más columnas y se me descuadro pero ahí le voydescifrando poco a poco.

Una pregunta,

¿Por qué al ejecutar el macro no respeta el formato del la celda?

Hola.

Si te refieres al ancho de las columnas es porque las hojas donde se copian los datos tienen su ancho predeterminado.

Se podria progamar para que determinadas columnas tuvieran los anchos de origen.

Un saludo.

Hola.

Si te refieres al ancho de las columnas es porque las hojas donde se copian los datos tienen su ancho predeterminado.

Se podria progamar para que determinadas columnas tuvieran los anchos de origen.

Un saludo.

.Un saludo de nuevo, investigue e intente y nomas no, me podrías auxiliar?

Hola.

Modifica la macro que te envie por esta otra:

Sub busca()
Range("I1:I2").Clear
cuent = Worksheets.Count
For i = 2 To cuent
Range("A:H").Copy
X = Sheets(i).Name
Worksheets(i).Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
Range("I1") = "CLIENTE"
Range("I2") = X
Worksheets(i).Range("A1:H1").Clear
Range("A1:H14").AdvancedFilter xlFilterCopy, criteriarange:= _
Range("I1:I2"), copytorange:=Worksheets(i).Range("A1")
Next
Range("I1:I2").Clear
End Sub

Un saludo.