¿Cómo imprimir hojas específicas según los valores de ciertas celdas en Excel?
¿Ha intentado alguna vez imprimir hojas específicas según el valor de una celda? En este artículo, le ofreceremos algunos ejemplos para resolver este problema. ¡Siga leyendo si le interesa!
Imprimir hoja en función de una celda con VBA
Imprimir hoja en función de la celda adyacente con VBA
Imprimir hoja en función de una celda con VBA
Supongamos que tiene dos hojas y desea imprimir la Hoja1, la Hoja2 o ambas según el valor de la celda A1 en la Hoja1. Siga estos pasos:
En este caso, introduzca 1 para imprimir la primera hoja, 2 para imprimir la segunda hoja o 3 para imprimir ambas.
1. Introduzca 1, 2 o 3 según necesite en la celda A1 de la primera hoja y pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en el script del Módulo. Vea la captura de pantalla:
VBA: Imprimir hoja en función del valor de una celda
Sub PrintStuff()
'UpdayebyExtendoffice20180811
Dim xRgVal As Variant
Dim xSheets As Sheets
Set xSheets = ActiveWorkbook.Worksheets
xRgVal = xSheets(1).Range("A1").Value
If (IsNumeric(xRgVal)) And (Len(xRgVal) = 1) Then
Select Case xRgVal
Case 1
xSheets(1).PrintOut
Case 2
xSheets(2).PrintOut
Case 3
xSheets(1).PrintOut
xSheets(2).PrintOut
Case Else
MsgBox "Enter1, 2 or 3 into A1 (1 print Sheet1 2 print Sheet2 3 print Sheet1 and Sheet2 ", , "KuTools For Excel"
Exit Sub
End Select
Else
Exit Sub
End If
End Sub
3. Pulse la tecla F5 para imprimir directamente la(s) hoja(s).
Imprimir hoja en función de la celda adyacente con VBA
Si tiene varias hojas en un libro y desea imprimir una o varias hojas en función de los valores de celdas de ese libro, puede proceder como se indica a continuación:
1. Cree una hoja nueva denominada Hoja de control en el libro que esté utilizando y enumere todos los nombres de hoja en la columna A (incluya o excluya la Hoja de control según sus necesidades). Vea la captura de pantalla:
2. Escriba «imprimir» en la celda adyacente al nombre de la hoja si desea imprimirla. Consulte la captura de pantalla mostrada.
3. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones y haga clic en Insertar > Módulo. Vea la captura de pantalla:
4. Pegue el siguiente código en el Módulo y pulse la tecla F5 para ejecutar el código.
VBA: Imprimir en función de la celda adyacente
Sub CreateControlSheet()
'UpdatebyExtendoffice20170811
Dim i As Integer
Dim xCSheetRow As Integer
Dim xSName As String
Dim xCSheet As Variant
Dim xRgVal As String
On Error Resume Next
xSName = "Control Sheet"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xCSheet = ActiveWorkbook.Worksheets(xSName)
xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row
For i = 2 To xCSheetRow
xRgVal = xCSheet.Range("B" & i).Value
If xRgVal = "Print" Or xRgVal = "print" Then
If xCSheet.Range("A" & i).Value <> "" Then
ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut
End If
End If
Next
xCSheet.Delete
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "Control Sheet"
Range("A1").Select
ActiveCell.FormulaR1C1 = "Sheet Name"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Print?"
For i = 1 To ActiveWorkbook.Worksheets.Count
Range("A" & i + 1).Value = ActiveWorkbook.Worksheets(i).Name
Next
Cells.Columns.AutoFit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Tras ejecutar el código, la(s) hoja(s) se imprimirá(n) de inmediato y, al mismo tiempo, una nueva Hoja de control reemplazará a la anterior.
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
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