Para eliminar un campo calculado de una tabla dinámica utilizando VBA, debes identificar el nombre del campo calculado que deseas eliminar y tener acceso a la tabla dinámica donde se encuentra. Aquí tienes un ejemplo de cómo hacerlo:

Sub EliminarCampoCalculado()
    Dim pt As PivotTable
    Dim ws As Worksheet
    Dim campoCalculado As String

    ' Define el nombre del campo calculado que deseas eliminar
    campoCalculado = "NombreDelCampoCalculado" ' Cambia esto por el nombre del campo calculado

    ' Define la hoja de trabajo donde se encuentra la tabla dinámica
    Set ws = ThisWorkbook.Sheets("NombreDeLaHoja") ' Cambia esto por el nombre de tu hoja

    ' Asegúrate de referenciar la tabla dinámica correcta en la hoja
    Set pt = ws.PivotTables("NombreDeLaTablaDinamica") ' Cambia esto por el nombre de tu tabla dinámica

    ' Eliminar el campo calculado
    On Error Resume Next ' Evitar errores si el campo calculado no existe
    pt.CalculatedFields(campoCalculado).Delete
    On Error GoTo 0

    MsgBox "Campo calculado eliminado con éxito."

End Sub

• Abre el Editor de Visual Basic para Aplicaciones (VBA) presionando `ALT + F11`.
• Inserta un nuevo módulo a través de `Insertar > Módulo`.
• Escribe el siguiente código VBA:

Asegúrate de modificar `NombreDelCampoCalculado`, `NombreDeLaHoja` y `NombreDeLaTablaDinamica` por el nombre del campo calculado, la hoja de trabajo y la tabla dinámica correspondientes en tu libro de Excel.

• Cierra el Editor de VBA y regresa a Excel.
• Ejecuta el macro `EliminarCampoCalculado` desde el menú de macros (`ALT + F8`), seleccionando el macro y haciendo clic en «Ejecutar».

Este código busca el campo calculado dentro de la tabla dinámica especificada y lo elimina. Si el campo calculado no existe, simplemente continuará sin mostrar un error gracias a la línea `On Error Resume Next`.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto