¿Cómo comprobar si existe una tabla dinámica en un libro de trabajo?
Si hay múltiples tablas dinámicas en tu libro de trabajo y ahora quieres saber rápidamente si existe una tabla dinámica específica en este libro, normalmente podrías ir al cuadro de diálogo Opciones de Tabla Dinámica para verificar el nombre de la tabla dinámica uno por uno. Sin embargo, esto es muy lento y tedioso cuando hay decenas o cientos de tablas dinámicas. Aquí te puedo mostrar un truco para resolver esta tarea.
Comprobar si existe una tabla dinámica en un libro de trabajo con una función definida por el usuario
Para saber rápidamente si existe una tabla dinámica en el libro de trabajo actual, puedes crear una Función Definida por el Usuario para resolverlo.
1. Abre el libro de trabajo en el que deseas comprobar si existe la tabla dinámica.
2. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
3. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.
Código VBA: Comprobar si existe una tabla dinámica en un libro de trabajo
Function PivotExist(Name As String) As Boolean
'Update 20141112
Dim sh As Worksheet
Dim pt As PivotTable
PivotExist = False
For Each sh In ActiveWorkbook.Worksheets
For Each pt In sh.PivotTables
If pt.Name = Name Then
PivotExist = True
Exit For
End If
Next
Next
End Function
4. Luego guarda y cierra este código, regresa a tu hoja de cálculo, introduce esta fórmula =pivotexist("salereport") en una celda en blanco, ver captura de pantalla:
Notas: (1.) En la fórmula anterior, “salereport” es el nombre de la tabla dinámica que deseas comprobar.
(2.) Debes ingresar el nombre de la tabla dinámica entre comillas dobles, y el nombre debe distinguir mayúsculas y minúsculas.
5. Después de ingresar la fórmula, presiona la tecla Enter; si obtienes VERDADERO en tu celda, la tabla dinámica existe; si obtienes FALSO, la tabla dinámica no existe.
Artículos relacionados:
¿Cómo enumerar todas las tablas dinámicas de un libro de trabajo?
¿Cómo agregar varios campos a una tabla dinámica?
Las mejores herramientas de productividad para Office
Potencia tus habilidades en 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 lleva la interfaz de pestañas a 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 nuevas ventanas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!