¿Cómo imprimir páginas u hojas de cálculo específicas en función del valor de una celda en Excel?
¿Ha necesitado alguna vez imprimir páginas u hojas de cálculo específicas en Excel según el valor de una celda? Ya sea para imprimir una página concreta o una hoja completa cuando se cumpla una condición, esta guía le ofrece métodos paso a paso para lograrlo.
Imprimir una página determinada según el valor de una celda con código VBA
Imprimir una hoja de cálculo determinada según el valor de una celda con código VBA
Imprimir una página determinada según el valor de una celda con código VBA
Por ejemplo, si desea que se imprima automáticamente una página específica —como la página 1 de la hoja de trabajo actual— al introducir el número 1 en la celda A1 de dicha hoja, puede seguir estos pasos para lograrlo.
1. Seleccione la celda que contiene el número de página que desea imprimir y pulse simultáneamente las teclas Alt y F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones. A continuación, haga clic en Insertar > Módulo.
2. A continuación, aparecerá la ventana de Microsoft Visual Basic para Aplicaciones; copie y pegue el siguiente código VBA en la ventana de Código.
Código VBA: Imprimir página según el valor de una celda
Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
xPage = .Value
Else: MsgBox "Please specify a cell and enter a page in cell"
Exit Sub
End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
Exit Sub
End If
End Sub3. Pulse la tecla F5 para ejecutar el código. En el cuadro de diálogo Kutools para Excel que aparece, haga clic en el botón Sí para imprimir la página correspondiente o en el botón No si no desea imprimirla. Vea la captura de pantalla:
A continuación, se abrirá la ventana de vista previa de la página correspondiente de la hoja de trabajo actual; haga clic en el botón Imprimir para comenzar la impresión.
Imprimir una página determinada según el valor de una celda con código VBA
Supongamos que desea imprimir la hoja activa cuando el valor de la celda B2 de dicha hoja sea exactamente 1001. Puede lograrlo fácilmente con el siguiente código VBA. Siga estos pasos:
1. Haga clic con el botón derecho en la pestaña de la hoja que desea imprimir según el valor de una celda y, a continuación, haga clic en Ver código en el menú contextual.
2. A continuación, aparecerá la ventana de Microsoft Visual Basic para Aplicaciones; copie y pegue el siguiente código VBA en la ventana de código.
Código VBA: Imprimir hoja de cálculo según el valor de una celda
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
If xCell.Value = 1001 Then
xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut
Else
Exit Sub
End If
End If
End Sub
Nota: Puede ajustar la celda y su valor en el código según sus necesidades.
3. Pulse Alt+Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
Al introducir el número 1001 en la celda B2, aparecerá un cuadro de diálogo Kutools para Excel. Haga clic en el botón Sí para iniciar la impresión o en el botón No para salir directamente del cuadro de diálogo sin imprimir. Vea la captura de pantalla:
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Artículos relacionados:
- ¿Cómo crear un área de impresión dinámica en Excel?
- ¿Cómo imprimir solo la última página de una hoja de cálculo en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos