Sub Macro3()
'
' Macro3 Macro
'
'
With ActiveWorkbook.SlicerCaches("FiltroDati_ANNO")
.SlicerItems("2014").Selected = True
.SlicerItems("2013").Selected = False
.SlicerItems("2015").Selected = False
End With
With ActiveWorkbook.SlicerCaches("FiltroDati_anno_c1")
.SlicerItems("2014").Selected = True
.SlicerItems("2008").Selected = False
.SlicerItems("2009").Selected = False
.SlicerItems("2010").Selected = False
.SlicerItems("2011").Selected = False
.SlicerItems("2012").Selected = False
.SlicerItems("2013").Selected = False
.SlicerItems("2015").Selected = False
End With
End Sub |