¿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: