Eliminar Filas para Imprimir

16/05/2005 - 21:16 por Luis Caro | Informe spam
Saludos a todos.
Si tengo una Hoja de Cotización,como Plantilla,y deseo que a partir de
cierta Fila no me imprima las Filas Vacías.
Planilla con Celdas de A23:H40 para llenar con datos de Cotización.Total de
Filas a llenar 17.
Si solo lleno tres Filas con Datos(23-24-25), que me imprima esas Filas y no
las Vacías(De 26 hasta 40).Luego me imprima lo que aparece de 41-52)
Si lleno 15 Filas,que me Imprima las 15,no Imprima las dos
restantes(Borrando bordes,inclusive).Luego imprima de 41-52
Como hago para que me Imprima sólo las Filas con datos?
Espero haber sido claro.
Gracias.



Cordialmente
Luis Caro
lgus3@NOSPAMEPM.net.co
No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002

Preguntas similare

Leer las respuestas

#6 Luis Caro
17/05/2005 - 21:23 | Informe spam
Si KL. Perdona, pero olvidé que en la Columna A se encuentran Formulas para
que el resultado sea "".
Formula: =SI(B30>O;8;"")
Cómo quedaría entonces la Macro?
Gracias

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002
Respuesta Responder a este mensaje
#7 KL
17/05/2005 - 21:42 | Informe spam
Hola Luis,

Prueba este codigo.

Saludos,
KL

Sub ImprimirDatos()
Dim fila As Range
Application.ScreenUpdating = False
With ActiveSheet.Range("A23:H40")
For Each fila In .Rows
fila.Hidden = (fila.Find(What:="*", _
LookIn:=xlValues) Is Nothing)
Next fila
'cambia PrintPreview por PrintOut
.Parent.PrintPreview
.Rows.Hidden = False
End With
Application.ScreenUpdating = True
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida