Excel - imprimir un area, con una variacion de datos

Buenas tardes

Alguien por favor me puede ayudar, necesito imprimir un area que ya esta seleccionada es unformato, lo imprimo cada vez que cambio un valor, al cambiar ese valor, con buscarv la me trae la informacion, lo que hago es lo siguiente:

en la hoja 1 tengo mi formato, ya esta en area de impresion.
en la hoja 2 tengo una serie de numeros como ejemplo se encuentran en el rango a1 a a10

selecciono en la hoja 2, el primer dato es decir a1, y lo copio en el formato de la hoja 1 y lo imprimo, despues voy de nuevo a la hoja y selecciono a2 y vuelvo a ir al formato lo copio y lo imprimo y asi sucesivamente,

lo que necesito es que haga ese proceso automaticamente, por que a veces necesito hacer eso 20 o 40 veces y es desgastante e intentado hacer una macro pero no me queda bien

Agradezco a la persona que me pueda colaborar a mi encrucijada, gracias...

Adjunta el libro para entender mejor el problema.

Saludos.
\\//_

Buenos dias

Gracias por su ayuda

adjunto archivo, en el cual se encuentra 2 hojas

en la hoja 1 "informacion" esta un rango de valores de la a1 a la a20; a veces pueden ser mas a veces puedes ser menos.
en la hoja 2 esta el formato "hoja de ruta".

lo que yo hago es copear el primer valor "a1" de la hoja de informacion, y copearla en la hoja de ruta en la celda P5, e imprimir, y hago lo mismo con todos los datos de la hoja de informacion, es decir de la a1 a la a20

Lo que lo requiero es que imprima todas las hojas de ruta segun los datos de informacion, teniendo en cuenta que el rango de datos de la hoja de informacion es variable a veces pueden ser 40, a veces 30 o como en este ejemplo son 20.

• ejemplo.zip(157,9 KB)

Esta es la macro:



Saludos.
\\//_

Buenas tardes

Usted es muy bueno en lo que hace, como puedo hacer para algun dia tener su nivel, me gustaria saberlo y que pena el atrevimiento de la pregunta

y la ultima pregunta, si quiero cambiar el rango de datos de la hoja de informacion que no empiece por a1 sino de c5, seria cambiar la siguiente linea;

While Sheets("informacion").Cells(Fila, "A") <> ""

por:

While Sheets("informacion").Cells(Fila, "C:5") <> ""

Seria asi?

buenas tardes

Perdon ahora si es la ultima pregunta y si en vez de imprimirlo, lo quiero guardar el PDF, con el nombre que se encuentra en la hoja 1 de informacion en la columna del lado, como se muestra en el archivo adjunto

• ejemplo.zip(202,6 KB)

Primer tema:


Segundo Tema.



Adjunto un PDF de ejemplo


Saludos.
\\//_

• Un_ejemplo.zip(100,2 KB)