
Contenido
Para eliminar todos los elementos calculados en una tabla dinámica utilizando VBA, puedes seguir estos pasos. Asumiré que tienes una hoja con una tabla dinámica y deseas eliminar todos los elementos calculados. Aquí te proporciono un ejemplo de código VBA que puedes utilizar:
Sub EliminarElementosCalculados()
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim i As Long
' Cambia "Hoja1" por el nombre de tu hoja que contiene la tabla dinámica
Set ws = ThisWorkbook.Worksheets("Hoja1")
' Cambia "NombreTablaDinamica" por el nombre de tu tabla dinámica
Set pt = ws.PivotTables("NombreTablaDinamica")
' Iterar a través de cada campo en la tabla dinámica
For Each pf In pt.PivotFields
' Verificar si el campo tiene elementos calculados y eliminarlos
If pf.IsCalculated Then
For i = pf.CalculatedItems.Count To 1 Step -1
pf.CalculatedItems(i).Delete
Next i
End If
Next pf
MsgBox "Todos los elementos calculados han sido eliminados.", vbInformation
End Sub
- Abre Excel y presiona `ALT + F11` para abrir el editor de VBA.
- Ve a `Insertar` > `Módulo` para crear un nuevo módulo.
- Copia y pega el siguiente código en el módulo:
- Asegúrate de reemplazar `»Hoja1″` con el nombre de la hoja de cálculo que contiene la tabla dinámica y `»NombreTablaDinamica»` con el nombre de tu tabla dinámica.
- Cierra el editor de VBA.
- Ejecuta la macro presionando `ALT + F8`, selecciona `EliminarElementosCalculados` y haz clic en `Ejecutar`.
Este código VBA recorre todos los campos de la tabla dinámica y elimina cualquier elemento calculado que encuentre. Ten en cuenta que, al eliminar elementos calculados, no se podrán restaurar a menos que los vuelvas a crear manualmente.