Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Macro para imprimir rangos

01/09/2009 - 19:13 por Jorge | Informe spam
Ayuda Hacer una pregunta
¿Como puedo hacer una macro para imprimir, pero que me discrimine celdas
ocupadas o vacias y asi determinar el rango a imprimir. Por ejemplo, si
C52="" (o si C10<>""), imprimir el rango A1:G41; si ademas esta ocupada la
celda c52, entonces el rango a imprimir será A1:G83, etc. En resumen, que
imprima solo las hojas en que existan datos en la columna C y dentro de los
rangos especificados. Ademas, esta macro, me gustaria que fuera "dentro y
antes" que otra
de forma que junto con ordenar la impresión, se ejecute esta segunda macro,
la que se asignaria a un botón de control, que podria denominarse "Imprimir y
Guardar". Gracias.-
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Jorge
14/09/2009 - 16:19 | Informe spam
Hola Hector Miguel: Redefini el nombre Area_de_Impresión copiando
=desref($a$1:$g$1;;;$a$10;); modifique las tres comas (,) por puntos y comas
(;) y la última coma idem. Cambió el nombre a esnúmero (lo que imagino no
tiene ninguna importancia, ya que le puedo dar otro), pero el problema es que
me arroja una referencia circular. ¿Como lo soluciono? Gracias. Saludos
Jorge.-


"Héctor Miguel" escribió:

hola, Jorge !

> Las celdas estaran efectivamente vacias hasta que ingrese un texto
> (ya que lo ingreso sin separador de miles, pero siempre seran digitos y no letras) ...

prueba con el siguiente procedimiento:
OJO: estoy asumiendo que puedes utilizar las celdas del rango [A1:A10]
si no es asi, utiliza otro rango y la ultima celda sera la referencia para (re)definir el area de impresion

1) utiliza las siguientes formulas en las celdas indicadas:
[A1] =desref(c$10,(fila()-1)*42,)
=> copiar hasta [A9]
[A10] =(coincidir(0,a1:a9,0)-1)*42

2) crea/define/... un area de impresion (cualquiera, no importa en este momento)

3) (re)define ese nombre (Área_de_impresion o como quede)
aplicando la siguiente formula en el cuadro de edicion: "se refiere a:"
=desref($a$1:$g$1,,,$a$10,)

solo cambia el separador de argumentos (mi sistema usa a la coma ',' NO al punto y coma ';' :D)

saludos,
hector.



Preguntas similares

 

Busqueda sugerida :