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.

Saludos.

Debes adjuntar un archivo.

Atte.

joshua

Adjunto archivo.

Saludos.

Ejemplo.zip

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.