¿Cómo eliminar una hoja de cálculo según el valor de una celda en Excel?
Si tienes varias hojas de cálculo en un libro y necesitas eliminar ciertas hojas basándote en el contenido de una celda específica, VBA puede ayudarte a automatizar esta tarea. Por ejemplo, podrías querer eliminar todas las hojas donde la celda A1 contenga una palabra o frase determinada. Esta guía te mostrará cómo usar VBA para identificar y eliminar rápidamente estas hojas en Excel.
Eliminar hoja de cálculo según el valor de una celda con código VBA
Eliminar hoja de cálculo según el valor de una celda con código VBA
Aquí te presentaré un código que puedes usar para eliminar todas las hojas en las que una celda específica tenga un valor determinado; sigue estos pasos:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.
Código VBA: Eliminar hoja de cálculo según el valor de una celda:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted " & cnt & " worksheets.", vbInformation, "Kutools for Excel"
End Sub
Nota: En el código anterior, A1 es la celda específica que contiene el texto en base al cual deseas eliminar las hojas.
3. Luego, presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que ingreses el valor específico en base al cual deseas eliminar las hojas, ver captura de pantalla:
4. Luego haz clic en el botón Aceptar, y se eliminarán de inmediato todas las hojas en las que la celda A1 tiene el texto KTE. Ver captura de pantalla:
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos