Duda con Area de Impresión

Por cierto,
Para que funcione en cualquier hoja o cada vez que se cree un nuevo libro,
es posible?

"Benito Merino" escribió en el mensaje
news:
Hola:

Puedes crearte una fórmula que dinámicamente te cambie el área de
impresión. Esta fórmula deberás introducirla en el nombre
"área_de_impresión" que te aparece en el menu
INSERTAR\NOMBRES\DEFINIR.


- Copia y pega la siguiente fórmula en "se refiere a":

=SI(Hoja1!$A$1="A";Hoja1!$B$2:$C$5;SI(Hoja1!$A$1="B";Hoja1!$B$6:$C$11;Hoja1!
$D$6:$F$12))

- En lugar de aceptar apreta el botón agregar.

Consideraciones:

1) Está creada para funcionar en la pestaña "Hoja1"
2) Introduciendo en la celda A1 la letra "A" selecciona el rango B2:C5,
la "B" selecciona el rango B6:C11 y cualquier otra cosa selecciona el
rango D6:F12

Saludos





JunioProject ha escrito:

Hola a todos!!!

Me gustaría saber si alguién de por aquí sabe si es posible establecer
diferentes áreas de impresión con nombres tal como pasa con los Rangos de
Celdas. Si es así, como se hace?

Gracias!!!

Hola.

Para que funcione en cualquier hoja puedes hacer la siguiente macro:



Sub controlimpresionencadahoja()
'permite personalizar en cada hoja el área a imprimir
For Each HOJA In ActiveWorkbook.Sheets

HOJA.Names.Add Name:="Área_de_Impresión",
RefersTo:="=IF($A$1=""A"",$B$2:$C$5,IF($A$1=""B"",$B$6:$C$11,$D$6:$F$12))"
Next
End Sub

Sub controlimpresionenprimerahoja()
'la seleccion del area de impresión se realiza en la pestaña Hoja1
For Each HOJA In ActiveWorkbook.Sheets

HOJA.Names.Add Name:="Área_de_Impresión",
RefersTo:="=IF(Hoja1!$A$1=""A"",$B$2:$C$5,IF(Hoja1!$A$1=""B"",$B$6:$C$11,$D$6:$F$12))"
Next
End Sub


En el caso de que se cree un nuevo libro supongo que lo que deberías
tener definido es algún tipo de fichero plantilla, o bien un evento.

Saludos,

Benito Merino



Toni ha escrito:

Por cierto,
Para que funcione en cualquier hoja o cada vez que se cree un nuevo libro,
es posible?

"Benito Merino" escribió en el mensaje
news:
Hola:

Puedes crearte una fórmula que dinámicamente te cambie el área de
impresión. Esta fórmula deberás introducirla en el nombre
"área_de_impresión" que te aparece en el menu
INSERTAR\NOMBRES\DEFINIR.


- Copia y pega la siguiente fórmula en "se refiere a":

=SI(Hoja1!$A$1="A";Hoja1!$B$2:$C$5;SI(Hoja1!$A$1="B";Hoja1!$B$6:$C$11;Hoja1!
$D$6:$F$12))

- En lugar de aceptar apreta el botón agregar.

Consideraciones:

1) Está creada para funcionar en la pestaña "Hoja1"
2) Introduciendo en la celda A1 la letra "A" selecciona el rango B2:C5,
la "B" selecciona el rango B6:C11 y cualquier otra cosa selecciona el
rango D6:F12

Saludos





JunioProject ha escrito:

> Hola a todos!!!
>
> Me gustaría saber si alguién de por aquí sabe si es posible establecer
> diferentes áreas de impresión con nombres tal como pasa con los Rangos de
> Celdas. Si es así, como se hace?
>
> Gracias!!!

GRACIAS!!!

"Benito Merino" escribió en el mensaje
news:
Hola.

Para que funcione en cualquier hoja puedes hacer la siguiente macro:



Sub controlimpresionencadahoja()
'permite personalizar en cada hoja el área a imprimir
For Each HOJA In ActiveWorkbook.Sheets

HOJA.Names.Add Name:="Área_de_Impresión",
RefersTo:="=IF($A$1=""A"",$B$2:$C$5,IF($A$1=""B"",$B$6:$C$11,$D$6:$F$12))"
Next
End Sub

Sub controlimpresionenprimerahoja()
'la seleccion del area de impresión se realiza en la pestaña Hoja1
For Each HOJA In ActiveWorkbook.Sheets

HOJA.Names.Add Name:="Área_de_Impresión",
RefersTo:="=IF(Hoja1!$A$1=""A"",$B$2:$C$5,IF(Hoja1!$A$1=""B"",$B$6:$C$11,$D$
6:$F$12))"
Next
End Sub


En el caso de que se cree un nuevo libro supongo que lo que deberías
tener definido es algún tipo de fichero plantilla, o bien un evento.

Saludos,

Benito Merino



Toni ha escrito:

Por cierto,
Para que funcione en cualquier hoja o cada vez que se cree un nuevo libro,
es posible?

"Benito Merino" escribió en el mensaje
news:
Hola:

Puedes crearte una fórmula que dinámicamente te cambie el área de
impresión. Esta fórmula deberás introducirla en el nombre
"área_de_impresión" que te aparece en el menu
INSERTAR\NOMBRES\DEFINIR.


- Copia y pega la siguiente fórmula en "se refiere a":

=SI(Hoja1!$A$1="A";Hoja1!$B$2:$C$5;SI(Hoja1!$A$1="B";Hoja1!$B$6:$C$11;Hoja1!

$D$6:$F$12))

- En lugar de aceptar apreta el botón agregar.

Consideraciones:

1) Está creada para funcionar en la pestaña "Hoja1"
2) Introduciendo en la celda A1 la letra "A" selecciona el rango B2:C5,
la "B" selecciona el rango B6:C11 y cualquier otra cosa selecciona el
rango D6:F12

Saludos





JunioProject ha escrito:

> Hola a todos!!!
>
> Me gustaría saber si alguién de por aquí sabe si es posible establecer
> diferentes áreas de impresión con nombres tal como pasa con los Rangos

de

> Celdas. Si es así, como se hace?
>
> Gracias!!!