Saltar al contenido

Imprimir hojas segun condicion.


Recommended Posts

publicado

Buenas noches gente!

Estoy enfrascado en una macro, que me extrae el trabajo diario en hoja2, a partir de la fila 17. Luego, cada 30 filas se copia automaticamente a Hoja3, las siguientes 30 filas a Hoja 4, asi sucesivamente.

Me imprime la primera hoja, (ya he puesto por macro cual quiero que sea la impresora predeterminada), pero lo que no se si se podra hacer, es que si en la hoja2, hay =< de 30 filas (se puede hacer tambien por la columna A), desde las filas 17 a 46, que me imprima la hoja3. Si hay entre 31 y 60 filas, entre las filas 47 a 76, que imprima tambien la hoja4, si hay entre 61 y 90 filas, que imprima hoja5.

Espero haberme explicado bien.

Gracias por vuestro tiempo y saludos.

publicado

Solucionado con esta macro:

Sub Imprimirseguncondicion()
Dim hj
Application.ScreenUpdating = False
For Each hj In Array("Hoja3", "Hoja4", "Hoja5")
With Worksheets(hj)
If .[b1] > 1 Then
.PrintOut:
End If
End With
Next hj
Application.ScreenUpdating = True
End Sub
[/CODE]

Saludos.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.