LennyLearner55
New Member
- Joined
- Jul 31, 2020
- Messages
- 1
- Office Version
- 365
- Platform
- Windows
- Web
I have the code below and would like to make an if statement of if value is between 1-60 , True, otherwise False.
Is this possible?
Sub test()
'
' Test
'Clear Filters First
ActiveWorkbook.SlicerCaches("Slicer_27_Jul_20").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_21_Sep_20").ClearManualFilter
With ActiveWorkbook.SlicerCaches("Slicer_27_Jul_20")
.SlicerItems("3").Selected = True
.SlicerItems("11").Selected = True
.SlicerItems("19").Selected = True
.SlicerItems("56").Selected = True
.SlicerItems("62").Selected = False
.SlicerItems("74").Selected = False
.SlicerItems("86").Selected = False
.SlicerItems("91").Selected = False
.SlicerItems("105").Selected = False
.SlicerItems("119").Selected = False
.SlicerItems("128").Selected = False
.SlicerItems("129").Selected = False
.SlicerItems("133").Selected = False
.SlicerItems("134").Selected = False
.SlicerItems("135").Selected = False
.SlicerItems("136").Selected = False
.SlicerItems("139").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("163").Selected = False
.SlicerItems("183").Selected = False
.SlicerItems("190").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("212").Selected = False
.SlicerItems("369").Selected = False
.SlicerItems("428").Selected = False
.SlicerItems("430").Selected = False
.SlicerItems("582").Selected = False
End With
End Sub
Is this possible?
Sub test()
'
' Test
'Clear Filters First
ActiveWorkbook.SlicerCaches("Slicer_27_Jul_20").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_21_Sep_20").ClearManualFilter
With ActiveWorkbook.SlicerCaches("Slicer_27_Jul_20")
.SlicerItems("3").Selected = True
.SlicerItems("11").Selected = True
.SlicerItems("19").Selected = True
.SlicerItems("56").Selected = True
.SlicerItems("62").Selected = False
.SlicerItems("74").Selected = False
.SlicerItems("86").Selected = False
.SlicerItems("91").Selected = False
.SlicerItems("105").Selected = False
.SlicerItems("119").Selected = False
.SlicerItems("128").Selected = False
.SlicerItems("129").Selected = False
.SlicerItems("133").Selected = False
.SlicerItems("134").Selected = False
.SlicerItems("135").Selected = False
.SlicerItems("136").Selected = False
.SlicerItems("139").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("163").Selected = False
.SlicerItems("183").Selected = False
.SlicerItems("190").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("212").Selected = False
.SlicerItems("369").Selected = False
.SlicerItems("428").Selected = False
.SlicerItems("430").Selected = False
.SlicerItems("582").Selected = False
End With
End Sub