Boa tarde!

Sub MandeSeuModelo()
Dim cache As Excel.SlicerCache
Set cache = ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_valor")
Dim sItem As Excel.SlicerItem
For Each sItem In cache.SlicerItems
    Range("M1").Value = sItem.Name
Next sItem
End Sub

Att

Boa tarde!

Sub MandeSeuModelo()
Dim cache As Excel.SlicerCache
Set cache = ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_valor")
Dim sItem As Excel.SlicerItem
For Each sItem In cache.SlicerItems
    Range("M1").Value = sItem.Name
Next sItem
End Sub

Att

Valeu. Mas nesse caso não estou conseguindo usar como eu quero.

No caso a "Slicer" possui 05 opções. Quero que ele traga o valor que esta no momento selecionado.
Nesse código ele está sempre me trazendo a ultima opção da slicer.

Bom dia!!

No seu sua necessidade deve ser atendida somente por VBA, formula não serve?
=CONTAGEMCONJUNTOCUBO(INFODADOSTABELADINÂMICA("Saldo";$G$1;"Descrição";"Calça Azul marinho (Operações)";"Tamanho";"G"))

para mais veja:
http://www.powerpivotpro.com/2010/12/an ... -formulas/

Att

Bom dia!!

Veja se o arquivo em anexo ajuda.

Fonte:
http://www.jkp-ads.com/articles/slicers05.asp

Att

Alexandre,
Consegue enviar sem que seja formatação 7z?
Nesse PC estou utilizo FileZip e ele não abre esse arquivo.

Boa tarde!!

Então baixe logo, pois é contra as regras!!!

Obs: Moderadores, fovar remover o arquivo não compactado, assim que houver 1 download.

Att

Conseguir converter.. Valeu! Conseguisse o que precisava!