Impresion automatizada

Hola Hectos gracias por tu ayuda, el detalle es que no es suficiente
con limpiar el rango "d9:d27" ya que por ejemplo si n es igual a 1 y
este me arroja 10 valores en el autofiltro y el siguiente valor en
este caso cuando n=2 me arroja 7 valores, parece que no borra todos
las celdas anteriores sino que me deja los valores de los datos 8, 9
y 10 que estaban en la consulta cuando n=1.

Espero me haya explicado bien. Gracias por tu ayuda.

hola, Edixon !

... el detalle es que no es suficiente con limpiar el rango "d9:d27"
ya que por ejemplo si n es igual a 1 y este me arroja 10 valores en el autofiltro

< y el siguiente valor en este caso cuando n=2 me arroja 7 valores

parece que no borra todos las celdas anteriores sino que me deja los valores de los datos 8, 9 y 10
que estaban en la consulta cuando n=1...

no conozco el arreglo (final/total) de tus datos, pero creo que podria hacerse el siguiente arreglo, cambiando...

esto:
Range("d9:d27").ClearContents

por esto:
If [counta(d9:d27)] > 2 Then
Range([d9], [d9].End(xlDown)).ClearContents
Else
Range("d9:d27").ClearContents
End If

comentas ?
saludos,
hector.

Hola Hector gracias por tu ayude, pero me siguio dando el mismo
detalle: lo lo que hice fue lo

Agregandole Range("d9:d27").ClearContents despues de la instruccion
Worksheets("hoja3").PrintOut Copies:=2

Alli si me borra totalmente las celdas del pegado anterior.

Aunque creo que de esta manera el proceso se me hace mas lento ya
que se imprimen 145 hojas por 2 veces cada una.

hola, Edixon !

Agregandole Range("d9:d27").ClearContents despues de la instruccion
Worksheets("hoja3").PrintOut Copies:=2
Alli si me borra totalmente las celdas del pegado anterior.
Aunque creo que de esta manera el proceso se me hace mas lento ya que se imprimen 145 hojas por 2 veces cada una.

tienes razon, el borrado de los datos (previos) debe repetirse por cada vez que se haga el filtrado (se me chispotio) :D

saludos,
hector.

Ja ja ja ja Gracias por tu ayuda fue excelente.

Sabes que estoy utilizando en la hoja 1 en F2 la formula BUSCARV
(D9;Carga!C:E;3;FALSO) en F3
BUSCARV(D9;Carga!C:E;2;FALSO) y en C5 CONCATENAR(F1;F2)

Esto es cada vez que se ejecuta la macro antes mencionada, el
detalle es que como hay valores repetidos en la columna c de la hoja
"carga" cuando se efectua la macro no me lee solamente lo queda
visualmente en el autofiltro sino en toda la matriz arrojandome los
resultados del primer valor encontrado.

Existira alguna forma de que me haga la busqueda solo en la matriz
que queda visible.

Espero esta sea la ultima pregunta en esta consulta.

Gracias por tu ayuda