💻 Solución Definitiva: Filtrado de Tablas Dinámicas por Rango de Fechas con VBA

🔧 Paso 1: Preparar la Hoja de Excel

Configura tu hoja de cálculo con:

• Tu tabla dinámica (asegúrate de que se llama "PivotTableCategory")
• Un campo de fecha llamado "Date" en tu tabla dinámica
• Dos celdas para las fechas de inicio y fin (B3 y B4 en el ejemplo)

💻 Paso 2: Implementar el Código VBA

Inserta el siguiente código en el módulo de la hoja de cálculo donde está tu tabla dinámica:

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Verificar si las celdas cambiadas son las de fecha de inicio o fin
    If Not Intersect(Target, Me.Range("B3:B4")) Is Nothing Then

        Dim pt As PivotTable
        Dim dateField As PivotField
        Dim pi As PivotItem
        Dim startDate As Date, endDate As Date
        Dim dateItems As Collection
        Dim itemDate As Date
        
        ' Asegurar que las celdas de fecha contienen valores válidos
        If Not IsDate(Me.Range("B3").Value) Or Not IsDate(Me.Range("B4").Value) Then
            Exit Sub
        End If

        startDate = CDate(Me.Range("B3").Value)
        endDate = CDate(Me.Range("B4").Value)

        ' Validar el rango de fechas
        If startDate > endDate Then
            MsgBox "La fecha de inicio no puede ser posterior a la fecha fin.", vbExclamation
            Exit Sub
        End If

        On Error GoTo ErrorHandler

        ' Mejoras de rendimiento
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        
        ' Verificar que existe la tabla dinámica
        On Error Resume Next
        Set pt = Me.PivotTables("PivotTableCategory")
        If pt Is Nothing Then
            MsgBox "No se encontró la tabla dinámica 'PivotTableCategory'.", vbExclamation
            GoTo ExitSub
        End If
        
        ' Verificar que existe el campo de fecha
        Set dateField = pt.PivotFields("Date")
        If dateField Is Nothing Then
            MsgBox "No se encontró el campo de fecha en la tabla dinámica.", vbExclamation
            GoTo ExitSub
        End If
        On Error GoTo ErrorHandler

        ' Asegurar que el campo está en el área de Filtros
        If dateField.Orientation <> xlPageField Then
            dateField.Orientation = xlPageField
        End If

        ' Habilitar selección múltiple
        dateField.EnableMultiplePageItems = True
        
        ' Limpiar filtros existentes
        dateField.ClearAllFilters
        
        ' Actualización manual para mejor rendimiento
        pt.ManualUpdate = True
        
        ' Recopilar todos los elementos de fecha válidos primero
        Set dateItems = New Collection
        For Each pi In dateField.PivotItems
            On Error Resume Next
            If IsDate(pi.Name) Then
                itemDate = CDate(pi.Name)
                dateItems.Add pi, pi.Name
            End If
            On Error GoTo ErrorHandler
        Next pi
        
        ' Procesar las fechas
        For Each pi In dateField.PivotItems
            On Error Resume Next
            If IsDate(pi.Name) Then
                itemDate = CDate(pi.Name)
                pi.Visible = (itemDate >= startDate And itemDate <= endDate)
            Else
                pi.Visible = False ' Ocultar elementos que no son fechas
            End If
            On Error GoTo ErrorHandler
        Next pi

        ' Aplicar cambios
        pt.ManualUpdate = False
        
        ' Actualizar la tabla dinámica
        pt.RefreshTable
    End If

ExitSub:
    ' Siempre reactivar eventos y actualización de pantalla
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Exit Sub

ErrorHandler:
    ' En caso de error, asegurar que se reactivan eventos y actualizaciones
    MsgBox "Ocurrió un error: " & Err.Description & " (Error #" & Err.Number & ")", vbCritical
    GoTo ExitSub
End Sub

⚙️ Paso 3: Personalizar para Tu Entorno

Ajusta los siguientes parámetros según tus necesidades:

• Nombre de la tabla dinámica: Cambia "PivotTableCategory" por el nombre de tu tabla
• Campo de fecha: Ajusta "Date" al nombre de tu campo de fecha
• Celdas de fechas: Modifica "B3:B4" según la ubicación de tus celdas de fecha

🔧 Si la macro no funciona

Sigue esta lista de verificación:

1. Verifica que los nombres de la tabla dinámica y campo coinciden exactamente
2. Asegúrate de que las fechas en B3 y B4 tienen formato de fecha válido
3. Comprueba que las macros están habilitadas en tu Excel
4. Confirma que el campo de fecha existe en tu tabla dinámica
5. Prueba con un conjunto de datos más pequeño para diagnosticar problemas de rendimiento