none
Optimización de código VBA para habilitar y deshabilitar pivotitems de una tabla dinámica RRS feed

  • Pregunta

  • Este código funciona correctamente y realiza lo esperado deshabilitando el total de los ítems de una tabla dinámica y dejar un solo ítem, en este caso "MANTEQUILLA", pero es demasiado lenta su ejecución, quisiera saber otro método de realizar lo mismo de una forma instantánea y casi desapercibida para los usuarios del software.

    Sub FilterPivotField()

        Application.ScreenUpdating = False
        
        Dim i As Long
        Dim x As String
        On Error GoTo etiqueta
        Worksheets("TD").Select
        Cells(4, 2) = "MANTEQUILLA"
        Cells(4, 2) = "MANTEQUILLA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("MANTEQUILLA").Position = 1
        End With
        
        Do Until Cells(4, 3) = "Total general"
        
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("ENERGÍA L.P").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("ENERGÍA L.P").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("GENERACIÓN DE FRÍO L.P").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("GENERACIÓN DE FRÍO L.P").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("GENERACIÓN DE VAPOR L.P").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("GENERACIÓN DE VAPOR L.P").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("SERVICIOS INDUSTRIALES R").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("SERVICIOS INDUSTRIALES R").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("AIRE COMPRIMIDO R").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("AIRE COMPRIMIDO R").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("ENERGÍA R").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("ENERGÍA R").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("FRÍO R").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("FRÍO R").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("SERVICIOS DE VAPOR R").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("SERVICIOS DE VAPOR R").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("SERVICIOS DE ACUEDUCTO UHT").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("SERVICIOS DE ACUEDUCTO UHT").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("AIRE COMPRIMIDO UHT").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("AIRE COMPRIMIDO UHT").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("LECHE PASTEURIZADA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("LECHE PASTEURIZADA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("GENERACIÓN DE ENERGÍA UHT").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("GENERACIÓN DE ENERGÍA UHT").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("FRÍO UHT").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("FRÍO UHT").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("VAPOR UHT").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("VAPOR UHT").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("SERVICIOS DE ACUEDUCTO CREMA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("SERVICIOS DE ACUEDUCTO CREMA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("AIRE COMPRIMIDO CREMA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("AIRE COMPRIMIDO CREMA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("ENERGÍA CREMA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("ENERGÍA CREMA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("FRÍO CREMA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("FRÍO CREMA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("VAPOR CREMA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("VAPOR CREMA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("ACUEDUCTO MANTEQUILLA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("ACUEDUCTO MANTEQUILLA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("AIRE COMPRIMIDO MANTEQUILLA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("AIRE COMPRIMIDO MANTEQUILLA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("LECHE UHT FLEXIBLE").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("LECHE UHT FLEXIBLE").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("ENERGÍA MANTEQUILLA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("ENERGÍA MANTEQUILLA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("FRÍO MANTEQUILLA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("FRÍO MANTEQUILLA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("VAPOR MANTEQUILLA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("VAPOR MANTEQUILLA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("ACUEDUCTO TAMPICO").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("ACUEDUCTO TAMPICO").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("AIRE COMPRIMIDO TAMPICO").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("AIRE COMPRIMIDO TAMPICO").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("ENERGÍA TAMPICO").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("ENERGÍA TAMPICO").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("FRÍO TAMPICO").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("FRÍO TAMPICO").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("VAPOR TAMPICO").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("VAPOR TAMPICO").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("CREMA DE LECHE").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("CREMA DE LECHE").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("MANTEQUILLA").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("MANTEQUILLA").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("RECIBO DE LECHE").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("RECIBO DE LECHE").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("TAMPICO").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("TAMPICO").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("SERVICIO INDUTRIS L.P").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("SERVICIO INDUTRIS L.P").Visible = False
                End With
            End If
            
            If ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN").PivotItems("AIRE COMPRIMIDO L.P").Name = Cells(4, 3) Then
                With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
                     .PivotItems("AIRE COMPRIMIDO L.P").Visible = False
                End With
            End If
            
        Loop
                    
    etiqueta:
        
        Application.ScreenUpdating = True
        
    End Sub


    martes, 17 de diciembre de 2013 14:48

Respuestas

  • Hola:

    Yo haría un bucle por .PivotItems y ya esta, así a ojo:

    Sub FilterPivotField()
    
       Dim oPI As PivotItem
       Dim oPVT As PivotTable
    
       Application.ScreenUpdating = False
    
       Set oPVT = ActiveSheet.PivotTables("<tupivottable>")
    
       ' Truco para que vaya más rápido, no actualizamos la PVT'
       oPVT.ManualUpdate = True
    
       ' Recorremos todos los pivotitems y comprobamos su nombre'
       For Each oPI IN oPVT.PivotField("Localización").PivotItems
             oPI.Visible = LCase$(oPI.Name) = "mantequilla" 
       Next oPI
    
       oPVT.ManualUpdate = False
       Application.ScreenUpdating = True
    
    End Sub
    Saludos
    martes, 17 de diciembre de 2013 17:02

Todas las respuestas

  • Hola:

    Yo haría un bucle por .PivotItems y ya esta, así a ojo:

    Sub FilterPivotField()
    
       Dim oPI As PivotItem
       Dim oPVT As PivotTable
    
       Application.ScreenUpdating = False
    
       Set oPVT = ActiveSheet.PivotTables("<tupivottable>")
    
       ' Truco para que vaya más rápido, no actualizamos la PVT'
       oPVT.ManualUpdate = True
    
       ' Recorremos todos los pivotitems y comprobamos su nombre'
       For Each oPI IN oPVT.PivotField("Localización").PivotItems
             oPI.Visible = LCase$(oPI.Name) = "mantequilla" 
       Next oPI
    
       oPVT.ManualUpdate = False
       Application.ScreenUpdating = True
    
    End Sub
    Saludos
    martes, 17 de diciembre de 2013 17:02
  • Ok. Buena solución efectivamente pasa desapercibido por los usuarios, buena solución y oportuna, el mismo día de la publicación, gracias.
    miércoles, 18 de diciembre de 2013 3:17
  • 'Otra de las soluciones eficientes al filtro de un ítem específico de la TD.
    'Nota: Si observamos el recorrido del ciclo se realizará el numero de veces
    'que sea requerido por el número de ítems que se requieran eliminar...Siendo
    'más eficiente que el cuestionamiento de condicionales if...end if dentro del
    'ciclo.

    Sub Filter_energía_lp_sc()

    Application.ScreenUpdating = False
        
    Dim x As String
    On Error GoTo etiqueta
    Worksheets("TD").Select
    Cells(4, 2) = "ENERGÍA L.P"
    Cells(4, 2) = "ENERGÍA L.P"
    With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
        .PivotItems("ENERGÍA L.P").Position = 1
    End With
        
    Do Until Cells(4, 3) = "Total general"

    Worksheets("TD").Select

    x = Cells(4, 3)
        
    Select Case x
            
    Case "ENERGÍA L.P"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("ENERGÍA L.P").Visible = False
        End With
    Case "GENERACIÓN DE FRÍO L.P"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("GENERACIÓN DE FRÍO L.P").Visible = False
        End With
    Case "GENERACIÓN DE VAPOR L.P"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("GENERACIÓN DE VAPOR L.P").Visible = False
        End With
    Case "SERVICIOS INDUSTRIALES R"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("SERVICIOS INDUSTRIALES R").Visible = False
        End With
    Case "AIRE COMPRIMIDO R"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("AIRE COMPRIMIDO R").Visible = False
        End With
    Case "ENERGÍA R"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("ENERGÍA R").Visible = False
        End With
    Case "FRÍO R"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("FRÍO R").Visible = False
        End With
    Case "SERVICIOS DE VAPOR R"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("SERVICIOS DE VAPOR R").Visible = False
        End With
    Case "SERVICIOS DE ACUEDUCTO UHT"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("SERVICIOS DE ACUEDUCTO UHT").Visible = False
        End With
    Case "AIRE COMPRIMIDO UHT"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("AIRE COMPRIMIDO UHT").Visible = False
        End With
    Case "LECHE PASTEURIZADA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("LECHE PASTEURIZADA").Visible = False
        End With
    Case "GENERACIÓN DE ENERGÍA UHT"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("GENERACIÓN DE ENERGÍA UHT").Visible = False
        End With
    Case "FRÍO UHT"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("FRÍO UHT").Visible = False
        End With
    Case "VAPOR UHT"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("VAPOR UHT").Visible = False
        End With
    Case "SERVICIOS DE ACUEDUCTO CREMA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("SERVICIOS DE ACUEDUCTO CREMA").Visible = False
        End With
    Case "AIRE COMPRIMIDO CREMA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("AIRE COMPRIMIDO CREMA").Visible = False
        End With
                
    Case "ENERGÍA CREMA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("ENERGÍA CREMA").Visible = False
        End With
    Case "FRÍO CREMA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("FRÍO CREMA").Visible = False
        End With
    Case "VAPOR CREMA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("VAPOR CREMA").Visible = False
        End With
    Case "ACUEDUCTO MANTEQUILLA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("ACUEDUCTO MANTEQUILLA").Visible = False
        End With
    Case "AIRE COMPRIMIDO MANTEQUILLA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("AIRE COMPRIMIDO MANTEQUILLA").Visible = False
        End With
    Case "LECHE UHT FLEXIBLE"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("LECHE UHT FLEXIBLE").Visible = False
        End With
    Case "ENERGÍA MANTEQUILLA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("ENERGÍA MANTEQUILLA").Visible = False
        End With
    Case "FRÍO MANTEQUILLA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("FRÍO MANTEQUILLA").Visible = False
        End With
    Case "VAPOR MANTEQUILLA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("VAPOR MANTEQUILLA").Visible = False
        End With
    Case "ACUEDUCTO TAMPICO"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("ACUEDUCTO TAMPICO").Visible = False
        End With
    Case "AIRE COMPRIMIDO TAMPICO"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("AIRE COMPRIMIDO TAMPICO").Visible = False
        End With
    Case "ENERGÍA TAMPICO"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("ENERGÍA TAMPICO").Visible = False
        End With
    Case "FRÍO TAMPICO"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("FRÍO TAMPICO").Visible = False
        End With
    Case "VAPOR TAMPICO"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("VAPOR TAMPICO").Visible = False
        End With
    Case "CREMA DE LECHE"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("CREMA DE LECHE").Visible = False
        End With
    Case "MANTEQUILLA"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("MANTEQUILLA").Visible = False
        End With
    Case "RECIBO DE LECHE"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("RECIBO DE LECHE").Visible = False
        End With
    Case "TAMPICO"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("TAMPICO").Visible = False
        End With
    Case "SERVICIO INDUTRIS L.P"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("SERVICIO INDUTRIS L.P").Visible = False
        End With
    Case "AIRE COMPRIMIDO L.P"
        With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("LOCALIZACIÓN")
            .PivotItems("AIRE COMPRIMIDO L.P").Visible = False
        End With
    Case "Total general"
        Exit Do
    Case Else
        Exit Do
        
    End Select
       
    Loop
        
    etiqueta:

        Worksheets("ENERGÍA L.P").Select
        
        Application.ScreenUpdating = True
        
    End Sub
    jueves, 19 de diciembre de 2013 20:10