Hi Jerry,
Thank you for your prompt reply and apologies for my very late reply.
I've gone from not knowing what "record macro" is to being able to run a macro that connects to a database and pulls the stats I need. I'm still a novice and most of the VBA code makes little sense to me, but I have been able to create macros that does what I initially asked about. The problem is that updating the slicers based on a certain cell value takes quite some time. I think this is due to my excessive use of If/Elseif. I'm not sure if there's a better/more efficient solution to this or if I simply have to live with a quite slow slicer update.
What I have created is:
A table that lists region, product, price and other KPIs, one row for each unique product/region/price. This table is not connected to any other pivot table/slicer. To the far right of each row, I've created a button that reads "Populate chart". When clicking this button, the first procedure is copying over the cell values (region, product, price) of selected row to a sheet where I have a pivot table with slicers. Next procedure is updating the slicers based on the values that were copied to the sheet with the dashboard.
There are many variations of "Price" and the macro wouldn't run unless I broke it down to three separate, so I think it's fair to assume that this is the bottleneck. Is there a better way to update slicer settings based on cell value without having to use multiple If/Elseif?
Below is the code for what I created with some of the data.
Sub Button_Macro()
'
' Runs two main macros - copying over the product details to the dashboard sheet, then changes slicer settings. Slicer VBA too long so had to break it down
'
Application.Run "Copy_Details"
Application.Run "Slicer_Region_Product"
Application.Run "Slicer_Price_Part_1"
Application.Run "Slicer_Price_Part_3"
Application.Run "Slicer_Price_Part_2"
End Sub
Sub Copy_Details()
'
' Copies the product details to Dashboard worksheet cell A300 that the slicer macros checks the value of
'
Worksheets("Product details").Range("A" & ActiveCell.Row & ":H" & ActiveCell.Row).Copy _
Destination:=Worksheets("Dashboard - Detailed").Range("A300")
End Sub
Sub Slicer_Region_Product()
'
' Updates the slicer settings for Region and Product based on the values in row 300 in Dashboard - Detailed sheet
'
' CLEAR SLICER SELECTIONS
Sheets("Dashboard - Detailed").Select
ActiveWorkbook.SlicerCaches("Slicer_Region").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_Product").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_Price").ClearManualFilter
' REGION SLICER
If Sheets("Dashboard - Detailed").Range("A300") = "Europe" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Region")
.SlicerItems("Europe").Selected = True
.SlicerItems("North America").Selected = False
.SlicerItems("South America").Selected = False
.SlicerItems("Asia").Selected = False
.SlicerItems("Africa").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("A300") = "North America" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Region")
.SlicerItems("Europe").Selected = False
.SlicerItems("North America").Selected = True
.SlicerItems("South America").Selected = False
.SlicerItems("Asia").Selected = False
.SlicerItems("Africa").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("A300") = "South America" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Region")
.SlicerItems("Europe").Selected = False
.SlicerItems("North America").Selected = False
.SlicerItems("South America").Selected = True
.SlicerItems("Asia").Selected = False
.SlicerItems("Africa").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("A300") = "Asia" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Region")
.SlicerItems("Europe").Selected = False
.SlicerItems("North America").Selected = False
.SlicerItems("South America").Selected = False
.SlicerItems("Asia").Selected = True
.SlicerItems("Africa").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("A300") = "Africa" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Region")
.SlicerItems("Europe").Selected = False
.SlicerItems("North America").Selected = False
.SlicerItems("South America").Selected = False
.SlicerItems("Asia").Selected = False
.SlicerItems("Africa").Selected = True
End With
End If
' PRODUCT SLICER
If Sheets("Dashboard - Detailed").Range("B300") = "Crisps" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Product")
.SlicerItems("Crisps").Selected = True
.SlicerItems("Snickers").Selected = False
.SlicerItems("Mars").Selected = False
.SlicerItems("Hersheys").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("B300") = "Snickers" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Product")
.SlicerItems("Crisps").Selected = False
.SlicerItems("Snickers").Selected = True
.SlicerItems("Mars").Selected = False
.SlicerItems("Hersheys").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("B300") = "Mars" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Product")
.SlicerItems("Crisps").Selected = False
.SlicerItems("Snickers").Selected = False
.SlicerItems("Mars").Selected = True
.SlicerItems("Hersheys").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("B300") = "Hersheys" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Product")
.SlicerItems("Crisps").Selected = False
.SlicerItems("Snickers").Selected = False
.SlicerItems("Mars").Selected = False
.SlicerItems("Hersheys").Selected = True
End With
End If
End Sub
Sub Slicer_Price_Part_1()
' PRICE SLICER PART 1
If Sheets("Dashboard - Detailed").Range("H300") = "-1" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = True
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "0" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = True
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "0,01" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = True
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "0,1" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = True
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "0,2" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = True
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "0,25" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = True
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "0,3" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = True
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "0,5" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = True
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "1" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = True
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "1,1" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = True
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "2" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = True
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "3" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = True
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "4,4" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = True
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "5" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = True
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
End If
End Sub
Sub Slicer_Price_Part_2()
' PRICE SLICER PART 2
If Sheets("Dashboard - Detailed").Range("H300") = "5,5" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = True
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "6" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = True
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "7" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = True
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "9" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = True
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "10" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = True
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "11" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = True
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "13" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = True
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "16,5" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = True
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "20" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = True
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "22" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = True
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "30" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = True
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "33" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = True
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "35" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = True
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "40" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = True
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
End If
End Sub
Sub Slicer_Price_Part_3()
' PRICE SLICER PART 3
If Sheets("Dashboard - Detailed").Range("H300") = "50" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = True
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "55" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = True
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "60" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = True
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "65" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = True
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "100" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = True
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "120" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = True
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "150" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = True
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "165" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = True
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "175" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = True
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "180" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = True
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "200" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = True
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "375" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = True
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "500" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = True
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "1000" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = True
.SlicerItems("2000").Selected = False
End With
ElseIf Sheets("Dashboard - Detailed").Range("H300") = "2000" Then
Sheets("Dashboard - Detailed").Select
With ActiveWorkbook.SlicerCaches("Slicer_Price")
.SlicerItems("-1").Selected = False
.SlicerItems("0").Selected = False
.SlicerItems("0,01").Selected = False
.SlicerItems("0,1").Selected = False
.SlicerItems("0,2").Selected = False
.SlicerItems("0,25").Selected = False
.SlicerItems("0,3").Selected = False
.SlicerItems("0,5").Selected = False
.SlicerItems("1").Selected = False
.SlicerItems("1,1").Selected = False
.SlicerItems("2").Selected = False
.SlicerItems("3").Selected = False
.SlicerItems("4,4").Selected = False
.SlicerItems("5").Selected = False
.SlicerItems("5,5").Selected = False
.SlicerItems("6").Selected = False
.SlicerItems("7").Selected = False
.SlicerItems("9").Selected = False
.SlicerItems("10").Selected = False
.SlicerItems("11").Selected = False
.SlicerItems("13").Selected = False
.SlicerItems("16,5").Selected = False
.SlicerItems("20").Selected = False
.SlicerItems("22").Selected = False
.SlicerItems("30").Selected = False
.SlicerItems("33").Selected = False
.SlicerItems("35").Selected = False
.SlicerItems("40").Selected = False
.SlicerItems("50").Selected = False
.SlicerItems("55").Selected = False
.SlicerItems("60").Selected = False
.SlicerItems("65").Selected = False
.SlicerItems("100").Selected = False
.SlicerItems("120").Selected = False
.SlicerItems("150").Selected = False
.SlicerItems("165").Selected = False
.SlicerItems("175").Selected = False
.SlicerItems("180").Selected = False
.SlicerItems("200").Selected = False
.SlicerItems("375").Selected = False
.SlicerItems("500").Selected = False
.SlicerItems("1000").Selected = False
.SlicerItems("2000").Selected = True
End With
End If
End Sub