Imprimir hojas según celda de la primera hoja
Tengo un libro que en la primera hoja introduzco los datos y se rellenan las demás hojas, aquí lo malo que tengo que ir imprimiendo hoja por hoja según el valor de la primera.
Se puede imprimir las hojas que quiera según el valor de las celdas de la hoja1.
Ej... Si en la celda A1 de la hoja1 introduzco (si), que imprima la hoja 2,4,45. Y si pongo (no) que imprima las hojas 3,5,32...
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo una macro para imprimir las hojas. Cambia en la macro los números de hojas que necesitas imprimir para SI y para NO
Sub ImprimirHojas()
'Por.Dante Amor
If UCase(Sheets("hoja1").[A1]) = "SI" Then
hojas = Array(2, 4, 45) 'hojas para SI
Else
hojas = Array(3, 5, 32) 'hojas para NO
End If
'
For h = LBound(hojas) To UBound(hojas)
Sheets(hojas(h)).PrintOut
Next
MsgBox "Impresión terminada", vbInformation
End Sub
