Excel - imprimir un area, con una variacion de datos

 
Vista:
sin imagen de perfil
Val: 5
Ha aumentado su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

imprimir un area, con una variacion de datos

Publicado por JAVIER (6 intervenciones) el 27/04/2019 19:50:08
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...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.151
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

imprimir un area, con una variacion de datos

Publicado por Antoni Masana (1459 intervenciones) el 29/04/2019 08:37:20
Adjunta el libro para entender mejor el problema.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 5
Ha aumentado su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

imprimir un area, con una variacion de datos

Publicado por Javier (6 intervenciones) el 29/04/2019 13:50:33
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.151
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

imprimir un area, con una variacion de datos

Publicado por Antoni Masana (1459 intervenciones) el 29/04/2019 19:41:24
Esta es la macro:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Sub imprimir_Ruta()
    Dim Fila As Long
    Sheets("HOJA DE RUTA").Select
    Fila = 1
    While Sheets("informacion").Cells(Fila, "A") <> ""
        Cells(5, "P") = Sheets("informacion").Cells(Fila, "A")
         ActiveWindow.SelectedSheets.PrintOut _
                      Copies:=1, _
                      Collate:=True, _
                      IgnorePrintAreas:=False
        Fila = Fila + 1
    Wend
End Sub


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 5
Ha aumentado su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

imprimir un area, con una variacion de datos

Publicado por JAVIER (6 intervenciones) el 29/04/2019 20:18:16
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 5
Ha aumentado su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

imprimir un area, con una variacion de datos

Publicado por JAVIER (6 intervenciones) el 29/04/2019 20:25:58
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?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 5
Ha aumentado su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

imprimir un area, con una variacion de datos

Publicado por Javier (6 intervenciones) el 29/04/2019 20:55:41
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.151
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

imprimir un area, con una variacion de datos

Publicado por Antoni Masana (1459 intervenciones) el 29/04/2019 21:46:22
Primer tema:

Estas dos lineas son las que deberías modificar:

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

La variable Fila = 1 indica en que fila empieza a tratar y a la "A" indica la columna.

En el caso que quisieras poner la columna de datos que empiece en C5 tendrías que realizar los siguientes cambios:

1
2
3
4
5
6
Sub imprimir_Ruta()
    Dim Fila As Long
    Sheets("HOJA DE RUTA").Select
    Fila = 5
    While Sheets("informacion").Cells(Fila, "C") <> ""
        Cells(5, "P") = Sheets("informacion").Cells(Fila, "C")

Otra forma de hacer lo mismo:

1
2
3
4
5
6
Sub imprimir_Ruta()
    Dim Fila As Long
    Sheets("HOJA DE RUTA").Select
    Fila = 5
    While Sheets("informacion").Range("C" & Fila) <> ""
        Range("P5") = Sheets("informacion").Range("C" & Fila)

Segundo Tema.

Desde Excel no he realizado ninguna macro que recuerde imprima en PDF, pero si que hay un truco y es guardar como y seleccionar el tipo de formato como PDF.

Para saber que código hay que poner puedes utilizar un truco que es el 70% de la programación de macros y es GRABAR MACRO el 30% restante es modificar la macro para que tome el nombre de la celda P5 y un poco de conocimiento de programación en Visual Basic.


Adjunto un PDF de ejemplo


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar