¿Cómo hacer para que el área de impresión se la última celta escrita?

Como mis conocimientos de VBA son más bien escasos tengo un problemilla que no se resolver.
Me he hecho un pequeño código para imprimir una hoja de excel que es una tabla dinámica,(resumen de ventas por vendedor) como suele suceder en estos casos uno tiene 9 lineas otro 15 y otro 25, lo que quiero es que siempre me imprima hasta la ultima linea que tenga algo escrito, pues aquí esta el problema por que justo al lado de la tabla tengo una columna con un condicional donde calculo el % de diferencia entre los dos años ( =SI(C20<>"";SI(D20<>"";SI(C20=0;100%;SI(D20=0;-100%;(D20/C20)-100%));-100%);""))en el código que os adjunto veréis que lo que busco es la ultima celda activa y excel entiende como activas todas las celdas que tienen este condicional,(¿389) sabría alguien como debo proceder para que busque la ultima escrita y no la ultima activa?
Mil gracias de Antemano
----------------------------------------
Sub AreaDimpresio()
'Netejo l'area
ActiveSheet.PageSetup.PrintArea = ""
'Selecciono A1
rango1 = Range("A1").Select
rango1 = Selection.Address
'selecciono l'ultima
rango2 = Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
rango2 = Selection.Address
' omplo l'area d'impresio i mostro el missatge
Ans = MsgBox("Se va a imprimir el rango" & " " & rango2, vbYesNo)
' pregunto si o no
'si es "si" imprimeixo
If Ans = vbYes Then
ActiveSheet.PageSetup.PrintArea = rango1rango2
' Imprimeix el rango
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'si es "no" borro l'area
Else
ActiveSheet.PageSetup.PrintArea = ""
End If
End Sub

1 Respuesta

Respuesta
1
Si sabés cuál es tu última columna sin considerar la que tiene el condicional, debieras utilizar este dato.
Las instrucciones que reemplazan a la selección del rango2:
'selecciono l'ultima
fila = Range("I65536").End(xlUp).Row
rango2 = Range(Selection, Cells(fila, 9)).Select
Luego sigue la tuya:
rango2 = Selection.Address
También ajustá la instrucción de impresión:
ActiveSheet.PageSetup.PrintArea = rango2
En este ejemplo estoy considerando que la últ col es I
Saludos y si queda algo pendiente escribime nuevamente.
Hola Elsa, ¿gracias por la respuesta pero sigue sin funcionar puede ser que tengo el excel 2003?
La instrucción ha quedado de la siguiente manera
----------------------------------
Sub AreaDimpresio()
'Netejo l'area
ActiveSheet.PageSetup.PrintArea = ""
'Selecciono A1
rango1 = Range("A1").Select
rango1 = Selection.Address
'selecciono l'ultima
fila = Range("e65536").End(xlUp).Row
rango2 = Range(Selection, Cells(fila, 5)).Select
rango2 = Selection.Address
' omplo l'area d'impresio i mostro el missatge
Ans = MsgBox("Se va a imprimir el rango" & " " & rango2, vbYesNo)
' pregunto si o no
'si es "si" imprimeixo
If Ans = vbYes Then
ActiveSheet.PageSetup.PrintArea = rango2
' Imprimeix el rango
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'si es "no" borro l'area
Else
ActiveSheet.PageSetup.PrintArea = ""
End If
End Sub
----------------------------------------
Gracias de nuevo por tu paciencia
PD: Lo que te pedí tengo que esperar por "la cuesta de septiembre" jejejeje los padres separados ya se sabe ... jejejje
La rutina está bien y podes solicitarme el ejemplo a mi correo. Quizás viendo la hoja (en Excel 2003) reparemos dónde está el problema.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Prorrateo en excel

No estoy seguro que su nombre sea prorrateo, pero bueno así lo llamo yo. Existe alguna función o que haga algo más o menos así: N = (N1 * C1 + N2 * C2 + ... Nn * Cn)/ (N1 + N2 + ... Nn) (Siendo N y C, cualquiera celda!). No he encontrado ni podido...
1 respuesta

Sumar.si con rangos nombrados variables

Tengo un libro de excel con una lista desplegable para cada mes del año, a cada mes le corresponden al menos 3 rango nombrados que son usados dentro del mismo libro en distintas hojas con la fórmula sumar. Si (sumif)o sumar. Si. Conjunto (sumifs), es...
2 respuestas

Como pasar varias filas con mismo código a otras hojas

Necesito pasar de una base de datos toda las filas que tengan el mismo código (que estará en la columna A) a otras hojas, y cada vez que reconozca el código y copie la fila entera en la hoja que tenga el mismo código, por favor es urgente, si es...
1 respuesta

Macro para gráficos en excel

Mi pregunta es cómo puedo hacer con una macro para que en una hoja protegida, con los datos de una tabla se genere un gráfico(por ej. De barras)y luego de modificarlo e imprimirlo lo pueda eliminar. ¿Recuerda qué la hoja debe estar protegida en forma...
1 respuesta

Guardar como pdf área de impresión con PDFCREATOR

Me gustaría agregarle a un botón una macro para que al apretar el mismo me guarde el área de impresión que seleccione como pdf, usando pdf creator, en office 2003. Pero, a su ves, que la paginas en blanco las elimine. Es decir, como por ejemplo. Yo...
1 respuesta

Macro para Imprimir

Les cuento que elaboré una macro que genera un gráfico con una estadística. Este gráfico cambia en su información interna y se encuentra basado en una tabla dinámica de excel. Deseo crear un botón que me permita autoajustar el área a imprimir (el...
1 respuesta

Macro con formato condicional

Antes que nada, agradeceros a todos los expertos en general y a ti en particular vuestra labor, profesionalidad y acierto en todas las consultas que os venimos haciendo. He estado siguiendo las respuestas que diste para crear una macro que identifica...
1 respuesta

Cortar fila de una hoja y pegar en otra hoja en la siguiente libre

Y feliz año! Tengo un excel con 2 hojas, una con datos de pedidos antiguos y otro con datos de pedidos actualizados. Quiero hacer una macro que automáticamente copie la fila de los pedidos nuevos de la hoja 2 en la hoja 1 (al final), es decir...
1 respuesta

Combinar dos rangos de celdas

Hice algo para combinar dos rangos de celdas, pero hay algo que no funciona. Sub combinarceldas() Range("D20:E35500").Select Selection.Merge End Sub En definitiva lo que necesito en combinar los rangos "D20:D35500 y E20:E35500" y no tener que...
1 respuesta

¿Cómo saber el nombre de una autoforma generada por macros? Y como guardar el nombre

Tengo la siguiente instrucción que me genera una autoforma el cual es el siguiente: ActiveSheet.Shapes.AddShape(msoShapeBevel, 0#, 0#, 72#, 36.75).Select Selection.Characters.Text = Range("A1") ¿Mi duda es como puedo saber el nombre de la autoforma...
1 respuesta