Macro para seleccionar Slicers

[infesno_]

Buenos días estimados

Alguno que sea tan amable de ayudarme con la macro del archivo adjunto,  el archivo tiene 2 slicers, uno de país y otro de Zona,  la macro del ejemplo debería seleccionar en el slicer de país "USA" y en el Slicer de ZONA, la "zona a" y "zona b" pero no me sirve,

Muchas gracias.

Saludos,

prueba slicer.xlsm

[LeandroA]

hola tienes algunas cosas mal fijate asi (los valores los toma de la hoja Note)

Sub test()
	Dim i As Integer
    Dim CY_WK As String
    Dim CY_W As String
    
    
    CY_WK = UCase(Sheets("Note").Range("A2").Value)
    
    With ActiveWorkbook.SlicerCaches("Slicer_país")
        .ClearManualFilter
        
        For i = 1 To .SlicerItems.Count
             If UCase(.SlicerItems(i).Value) = CY_WK Then
                  .SlicerItems(i).Selected = True
             Else
                  .SlicerItems(i).Selected = False
             End If
        Next
        
    End With
    
    CY_W = UCase(Sheets("Note").Range("b2").Value)
    
    With ActiveWorkbook.SlicerCaches("Slicer_zona")
        .ClearManualFilter
        For i = 1 To .SlicerItems.Count
             If UCase(.SlicerItems(i).Value) = CY_W Then
                  .SlicerItems(i).Selected = True
             Else
                  .SlicerItems(i).Selected = False
             End If
        Next
    End With
End Sub
	

prueba slicer.xlsm

[infesno_]

Leandro, mil gracias,  funciona perfecto,

otra duda.

me ayudas con este ejemplo del mismo archivo, algo cambiado, no logro que se marquen 2 o 3 países y los otros queden desmarcados. ?

este código funciona para un país y una zona!

 

Sub Test3()
    Dim País_ As String
    País_ = "Perú"                'por ejemplo marcar Perú, USA y Honduras
   
    Dim item As SlicerItem
   
    For Each item In ThisWorkbook.SlicerCaches("Slicer_país").SlicerItems
        If item.Name = País_ Then
            item.Selected = True
        Else
            item.Selected = False
        End If
    Next item
   
   
   
    Dim Área_ As String
    Área_ = "zona a"
   
    Dim item2 As SlicerItem
   
    For Each item2 In ThisWorkbook.SlicerCaches("Slicer_zona").SlicerItems
        If item2.Name = Área_ Then
            item2.Selected = True
        Else
            item2.Selected = False
        End If
    Next item2
    

 
End Sub

prueba slicer-4.xlsm

[infesno_]

macro ok

 

Sub Test3()
    Dim Área_ As String
    Dim País_ As String
    País1 = "Perú"
    País2 = "USA"
    País3 = "Brasil"
    País4 = "Honduras"
   
    área1 = "zona aX"
    área2 = "Zona b"
    área3 = "Zona C"
    área4 = "Zona d"
    área5 = "Zona E"
    área6 = "zona f"
    área7 = "zona g"
   
    Dim item As SlicerItem
    For Each item In ThisWorkbook.SlicerCaches("Slicer_país").SlicerItems
        If item.Name = País1 Then
            item.Selected = True
        ElseIf item.Name = País2 Then
            item.Selected = True
        ElseIf item.Name = País3 Then
            item.Selected = True
        ElseIf item.Name = País4 Then
            item.Selected = True
        Else
            item.Selected = False
        End If
    Next item
    Dim item2 As SlicerItem
    For Each item2 In ThisWorkbook.SlicerCaches("Slicer_zona").SlicerItems
        If item2.Name = área1 Then
            item2.Selected = True
        ElseIf item2.Name = área2 Then
            item2.Selected = True
        ElseIf item2.Name = área3 Then
            item2.Selected = True
        ElseIf item2.Name = área4 Then
            item2.Selected = True
        ElseIf item2.Name = área5 Then
            item2.Selected = True
        ElseIf item2.Name = área6 Then
            item2.Selected = True
        ElseIf item2.Name = área7 Then
            item2.Selected = True
        Else
            item2.Selected = False
        End If
    Next item2
End Sub