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

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

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

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