Imprimir según valor de celda (URGENT.E)
He creado un libro Excel con una serie de macros y no consigo que me funcione una de ellas.
Necesito crear un botón que en función del valor de una celda de la Hoja 1 imprima el resto de hojas. Por ejemplo si el valor de la celda A2 de la hoja 1 es igual a "prueba2", al pulsar el botón de la hoja 1, se imprima la hoja 2. Si es igual a "prueba3", al pulsar el botón de la hoja 1, se imprima la hoja 3.
Es urgente.
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
H o l a
te paso la macro
Sub imprimir()
Set h1 = Sheets("Hoja1")
hoja = h1.Range("A2")
If hoja = "" Then
MsgBox "ingrese nombre de la hoja a imprimir", vbCritical
For Each h In Sheets
If UCase(h.Name) = UCase(hoja) Then
imprime = True
Exit For
End If
Next
If imprime Then
Sheets(hoja).PrintOut Copies:=1, Collate:=True
Else
MsgBox "La hoja no existe"
End If
End SubValora la respuesta para finalizar saludos!
Me faltó algunos ajustes te paso la macro actualizada
Sub imprimir()
'//por Aortiz
Set h1 = Sheets("Hoja1")
'
hoja = h1.Range("A2")
If hoja = "" Then
MsgBox "ingrese nombre de la hoja a imprimir", vbCritical
End
'
For Each h In Sheets
If UCase(h.Name) = UCase(hoja) Then
imprime = True
Exit For
End If
Next
'
If imprime Then
Sheets(hoja).PrintOut Copies:=1, Collate:=True
Else
MsgBox "La hoja no existe"
End If
End Subvalora la respuesta para finalizar saludos!
