¿Cómo puedo comprobar si una hoja ya existe en un libro?
Cuando tiene decenas o incluso cientos de hojas de cálculo en un libro y necesita encontrar o verificar si una hoja específica existe, la tarea suele resultar extremadamente laboriosa. A continuación, le ofrecemos un código VBA y una herramienta práctica para comprobar rápidamente la existencia de una hoja en su libro.
Comprobar si una hoja existe en un libro con VBA
Comprobar si una hoja existe y cambiar a ella con Kutools para Excel 
Comprobar si una hoja existe en un libro
Siga los pasos que se indican a continuación para copiar y ejecutar el código VBA y comprobar si una hoja existe en el libro de trabajo actual.
1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana, haga clic en Insertar > Módulo para abrir una nueva ventana de módulo y, a continuación, copie el siguiente código VBA en dicha ventana.
VBA: Comprueba si una hoja existe en un libro.
Function CheckSheet(pName As String) As Boolean
'Updateby20140617
Dim IsExist As Boolean
IsExist = False
For i = 1 To Application.ActiveWorkbook.Sheets.Count
If Application.ActiveWorkbook.Sheets(i).Name = pName Then
IsExist = True
Exit For
End If
Next
CheckSheet = IsExist
End Function3. Guarde este código, regrese a la hoja y seleccione una celda en blanco para introducir la fórmula =CheckSheet("Shee1") («Sheet1» indica el nombre de la hoja que desea comprobar si existe). Pulse la tecla Entrar: si el resultado es FALSO, significa que dicha hoja no existe; si es VERDADERO, confirma que sí está presente en el libro de trabajo actual.
Comprobar si una hoja existe y cambiar a ella con Kutools para Excel mediante VBA
Con la función definida anteriormente solo puede comprobar si una hoja existe, lo cual resulta bastante complicado. Sin embargo, con Kutools para Excel, la Navegación muestra una lista con todos los nombres de las hojas, permitiéndole desplazarse para buscar la que necesita o filtrar por nombre; además, al encontrarla, puede hacer clic directamente en su nombre para cambiar a ella al instante.
Tras instalar gratuitamenteKutools para Excel, proceda como se indica a continuación:
1. Active el libro en el que desea comprobar si existe un nombre de hoja y, a continuación, haga clic en Kutools > Navegación. Vea la captura de pantalla:
2. A continuación, en el panel emergente, haga clic en el botón Libro y Hoja para expandir el panel; allí podrá ver todos los nombres de las hojas en la lista de nombres y desplazarse para buscarlos.
3. También puede activar la opción Filtrar, escribir las palabras clave del nombre de la hoja que desea comprobar y, de inmediato, aparecerá el nombre de la hoja especificada; al hacer clic en dicho nombre, se cambiará directamente a esa hoja.
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