Para ocultar filas en blanco en una tabla dinámica utilizando VBA, puedes seguir estos pasos. Vamos a asumir que deseas trabajar con una tabla dinámica en Excel. El siguiente código VBA verifica cada ítem de campo en la tabla dinámica y oculta aquellos que están en blanco.

Sub OcultarFilasEnBlanco()
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem
    Dim ws As Worksheet

    ' Cambia "Hoja1" al nombre de tu hoja de cálculo
    Set ws = ThisWorkbook.Sheets("Hoja1")
    
    ' Cambia "TablaPivote1" al nombre de tu tabla dinámica
    Set pt = ws.PivotTables("TablaPivote1")
    
    ' Cambia "Campo1" al nombre del campo que deseas verificar
    Set pf = pt.PivotFields("Campo1")

    ' Itera a través de cada ítem del campo de la tabla dinámica
    For Each pi In pf.PivotItems
        ' Oculta el ítem si está en blanco
        If pi.Name = "(blank)" Or pi.Name = "(en blanco)" Then
            pi.Visible = False
        Else
            pi.Visible = True
        End If
    Next pi
End Sub

• Abre Excel y accede al Editor de Visual Basic presionando `ALT + F11`.
• Inserta un nuevo módulo haciendo clic en `Insertar > Módulo`.
• Copia y pega el siguiente código en el módulo:
• Ajusta las referencias en el código:
• Reemplaza `»Hoja1″` con el nombre real de la hoja de cálculo que contiene la tabla dinámica.
• Reemplaza `»TablaPivote1″` con el nombre real de tu tabla dinámica.
• Reemplaza `»Campo1″` con el nombre del campo que deseas revisar para encontrar valores en blanco.
• Ejecuta el script presionando `F5` o usando el menú `Ejecutar > Ejecutar Sub/UserForm`.

Este script recorrerá los ítems del campo especificado y ocultará aquellos que estén en blanco en tu tabla dinámica.

Recuerda hacer siempre una copia de seguridad de tus datos antes de ejecutar scripts de VBA, para proteger tus datos de cambios inesperados.

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