macros buttons to select options on multiple points in a slicer at a time

S

SAIYABEAST

New Member
Joined
Apr 7, 2022
Messages
1
Office Version
  1. 365
Platform
  1. Windows
so im trying to make a dynamic chart that will display data from multiple selections on a splicer using clickable buttons for specific selections. i used macros and was able to make the buttons i wanted for those selections but once i click a button there is a long period where its running the macros for the splicer selections. is there a way to speed it up? this is the code i have for the macros button selections. if someone can help that would be awesome.


Sub LF_Door()
'
' LF_Door Macro
' Selects LF_Door Points
'

'
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 003").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 003").Selected = True
.SlicerItems("Point 004").Selected = True
.SlicerItems("Point 005").Selected = True
.SlicerItems("Point 006").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
End Sub
Sub Hood()
'
' Hood Macro
' selects Hood points
'

'
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 001").Selected = True
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 001").Selected = True
.SlicerItems("Point 002").Selected = True
.SlicerItems("Point 027").Selected = True
.SlicerItems("Point 028").Selected = True
.SlicerItems("Point 030").Selected = True
.SlicerItems("Point 031").Selected = True
.SlicerItems("Point 032").Selected = True
.SlicerItems("Point 033").Selected = True
.SlicerItems("Point 034").Selected = True
.SlicerItems("Point 035").Selected = True
.SlicerItems("Point 036").Selected = True
.SlicerItems("Point 037").Selected = True
.SlicerItems("Point 038").Selected = True
.SlicerItems("Point 039").Selected = True
.SlicerItems("Point 040").Selected = True
.SlicerItems("Point 041").Selected = True
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("(blank)").Selected = False
End With
End Sub
Sub LR_Door()
'
' LR_Door Macro
' selects points for LR_Door
'

'
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 008").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 008").Selected = True
.SlicerItems("Point 009").Selected = True
.SlicerItems("Point 010").Selected = True
.SlicerItems("Point 011").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
End Sub
Sub L_QRT()
'
' L_QRT Macro
' selects points for L_QRT
'

'
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 012").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 012").Selected = True
.SlicerItems("Point 013").Selected = True
.SlicerItems("Point 014").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
End Sub
Sub R_QRT()
'
' R_QRT Macro
' selects points for R_QRT
'

'
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 015").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 015").Selected = True
.SlicerItems("Point 016").Selected = True
.SlicerItems("Point 017").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
End Sub
Sub RR_Door()
'
' RR_Door Macro
' selects points for RR_Door
'

'
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 018").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 018").Selected = True
.SlicerItems("Point 019").Selected = True
.SlicerItems("Point 020").Selected = True
.SlicerItems("Point 021").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
End Sub
Sub RF_Door()
'
' RF_Door Macro
' selects points for RF_Door
'

'
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 022").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 022").Selected = True
.SlicerItems("Point 023").Selected = True
.SlicerItems("Point 024").Selected = True
.SlicerItems("Point 025").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 029").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
End Sub
Sub CP()
'
' CP Macro
' selects points for CP
'

'
With ActiveWorkbook.SlicerCaches("Slicer_Panel")
.SlicerItems("Point 029").Selected = True
.SlicerItems("Point 001").Selected = False
.SlicerItems("Point 002").Selected = False
.SlicerItems("Point 003").Selected = False
.SlicerItems("Point 004").Selected = False
.SlicerItems("Point 005").Selected = False
.SlicerItems("Point 006").Selected = False
.SlicerItems("Point 007").Selected = False
.SlicerItems("Point 008").Selected = False
.SlicerItems("Point 009").Selected = False
.SlicerItems("Point 010").Selected = False
.SlicerItems("Point 011").Selected = False
.SlicerItems("Point 012").Selected = False
.SlicerItems("Point 013").Selected = False
.SlicerItems("Point 014").Selected = False
.SlicerItems("Point 015").Selected = False
.SlicerItems("Point 016").Selected = False
.SlicerItems("Point 017").Selected = False
.SlicerItems("Point 018").Selected = False
.SlicerItems("Point 019").Selected = False
.SlicerItems("Point 020").Selected = False
.SlicerItems("Point 021").Selected = False
.SlicerItems("Point 022").Selected = False
.SlicerItems("Point 023").Selected = False
.SlicerItems("Point 024").Selected = False
.SlicerItems("Point 025").Selected = False
.SlicerItems("Point 026").Selected = False
.SlicerItems("Point 027").Selected = False
.SlicerItems("Point 028").Selected = False
.SlicerItems("Point 030").Selected = False
.SlicerItems("Point 031").Selected = False
.SlicerItems("Point 032").Selected = False
.SlicerItems("Point 033").Selected = False
.SlicerItems("Point 034").Selected = False
.SlicerItems("Point 035").Selected = False
.SlicerItems("Point 036").Selected = False
.SlicerItems("Point 037").Selected = False
.SlicerItems("Point 038").Selected = False
.SlicerItems("Point 039").Selected = False
.SlicerItems("Point 040").Selected = False
.SlicerItems("Point 041").Selected = False
.SlicerItems("(blank)").Selected = False
End With
End Sub
Sub Clear_Filter()
'
' Clear_Filter Macro
' Clears splicer filter
'

'
ActiveWorkbook.SlicerCaches("Slicer_Panel").ClearManualFilter
End Sub
 

Excel Facts

How to calculate loan payments in Excel?
Use the PMT function: =PMT(5%/12,60,-25000) is for a $25,000 loan, 5% annual interest, 60 month loan.
You must log in or register to reply here.

Similar threads

M
  • Solved
Find the data and get the cell address
Replies
4
Views
277
Peter_SSs
Peter_SSs
H
  • Solved
Copy the first line and paste it at the start of all subsequent sheets in the same tab
Replies
4
Views
162
harzer
H
H
  • Solved
Search for topics based on their groups.
Replies
7
Views
140
Peter_SSs
Peter_SSs
H
  • Solved
Transpose data.
Replies
4
Views
108
harzer
H
H
  • Solved
Creation of arrows for 2 family trees.
Replies
8
Views
180
harzer
H

Forum statistics

Threads
1,214,980
Messages
6,122,563
Members
449,088
Latest member
Motoracer88

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top