Note: The other languages of the website are Google-translated. Back to English

¿Cómo eliminar la hoja de trabajo según el valor de la celda en Excel?

Supongamos que tengo varias hojas de trabajo dentro de un libro de trabajo, ahora quiero eliminar las hojas según el valor de la celda. Por ejemplo, si la celda específica A1 contiene el texto "KTE", todas las hojas cuya celda A1 tiene este texto deben eliminarse de una vez. Este artículo puede ayudarlo a lidiar con esta tarea en Excel.

Eliminar la hoja de trabajo según el valor de la celda con el código VBA


flecha azul burbuja derecha Eliminar la hoja de trabajo según el valor de la celda con el código VBA

Aquí, presentaré un código para que elimine todas las hojas en las que la celda específica tiene un cierto valor, haga lo siguiente:

1. Mantenga pulsado el botón ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: elimine la hoja de trabajo según el valor de la 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 cierto texto en el que desea eliminar las hojas.

3. Entonces presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que ingrese el valor específico en el que desea eliminar las hojas, vea la captura de pantalla:

doc eliminar hoja por celda 1

4. Y luego haz clic OK , todas las hojas cuya celda A1 tiene el texto KTE se han eliminado a la vez. Ver captura de pantalla:

doc eliminar hoja por celda 2


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (4)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
pregunta rápida, el código anterior funciona para mí para eliminar hojas de trabajo que contienen el valor ingresado, pero ¿qué pasa si quiero eliminar hojas de trabajo que no contienen el valor ingresado? Intenté reemplazar el operador "=" con el operador <>", pero no funciona. ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Ankur,
Como dijiste, solo necesitas cambiar "=" a " <>" como se muestra a continuación:

Sub eliminar hoja por celda ()
Dim shName como cadena
Dim xName como cadena
Dim xWs como hoja de trabajo
Dim cnt como entero
shName = Application.InputBox("Ingrese el texto, no elimine las hojas según:", "Kutools para Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
ct = 0
Para cada xW en ThisWorkbook.Sheets
Si xWs.Range("A1").Valor <> shName Entonces
xWs.Eliminar
cnt = cnt + 1
Si terminar
Siguiente xWs
Application.DisplayAlerts = True
MsgBox "Ha eliminado" & cnt & "hojas de trabajo", vbInformation, "Kutools for Excel"
End Sub

Inténtalo, espero que te pueda ayudar!
Este comentario fue minimizado por el moderador en el sitio
Buenas tardes,
¿Podría decirme si hay una forma de responder automáticamente que sí cuando se le solicite eliminar la hoja? Muchísimas gracias.
Este comentario fue minimizado por el moderador en el sitio
Hola de nuevo, No importa mi última pregunta. Agregué lo siguiente antes y después de la línea Eliminar: Application.DisplayAlerts = False
Application.DisplayAlerts = True

No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL