change slicer seletion based on cell value

luvbite38

Active Member
Joined
Jun 25, 2008
Messages
368
Hi guys,

Idk if this is even possible.

Is there a way to programatically change the slicer selection based on cell value.

Lets say, if the Cell A1 = 1, select A, B and C in slicer. if 2 then D,E and F and so on.

I have 12 conditions (1 to 12) in the drop down box.

Thanks in advance.

Regards,
A
 

Excel Facts

What is the last column in Excel?
Excel columns run from A to Z, AA to AZ, AAA to XFD. The last column is XFD.
Hi A,

Yes, that can be done.

You can get a good framework for that by using the macro recorder to record your manual steps.

If you'd like some help with that please..
1. Provide the name of the Slicer
2. Clarify the mapping between the value in A1 and the Slicer Items to be Selected. (you provided an example, but you'll run out of letters before getting to A1=12). Can you provide an example that is more like your actual case? If there isn't a clear pattern like your example, you'll need to store the mapping somewhere (perhaps in the VBA code itself, or in a lookup table in your workbook).
 
Upvote 0
Hi,

I have a similar question that I hope someone can help me with. I've been googling for quite some time but I have been unable to find a solution that works for me. I'm also a novice (if it can even be called that) at VBA so putting it all together has proven to be quite a task.

I have a table in Sheet1 that displays overview data for sales. There are four "category" columns in A to D with titles "Region", "Country", "Product" and "Price". The fifth and final column displays month of month increase/decrease in sales. The table has 1,800 rows.

What I want to do is to have a button in the sixth column that reads "Populate graph". When the user clicks on the button, he/she will be taken to Sheet2 where I have a pivot table report with a couple of charts and four slicers based on the category columns in Sheet1. Note that the pivot table in Sheet2 is not based on the data in Sheet1 but it contains the same categories for the slicers. So when the button in Sheet1 is clicked, the slicers in the pivot table in Sheet2 will filter based on Sheet1 cell values A2, B2, D2 and C2 and populate the graph.

Is this possible? I'm using Excel Professional Plus 2010.

Many thanks in advance and thanks for all the valuable threads that have helped me in the past.

Best regards,
Daniel
 
Upvote 0
Hi Daniel and Welcome to MrExcel,

I'd suggest that you also start by using the macro recorder to record the steps as you do them manually.
If you'll do that and post the resulting code here, I'll help you clean it up and generalize it.

I don't really understand why the macro is reading the values in Row 2 of the Table in Sheet1.
Is there something special about that row that sets it apart from the others in the 1,800 row data table, or are you wanting to have the potential to apply the categories in any of the 1,800 rows in Sheet1 to the slicers?
 
Upvote 0
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​
 
Upvote 0
I re-wrote the VBA after finding code that seemed more efficient (at least a lot less typing).

It still runs fairly slow, takes maybe 10 seconds to refresh the slicers after clicking the button. Maybe it is what it is, slicers can definitely be a bit slow when they are based on 50k rows of data.

Below my latest VBA code:


Sub Product_Button_Procedure()
' Runs three main macros - copying over the product details to the dashboard sheet, clearing slicers and then changes slicer settings


Application.Run "Copy_Product_Details"

Application.Run "Slicers_Clear"

Application.Run "Slicers_Update"

End Sub




Sub Copy_Product_Details()
' Copies the product details to Dashboard worksheet cell A300 that the Slicers_Update macro then checks the value of


Worksheets("Product details").Range("A" & ActiveCell.Row & ":H" & ActiveCell.Row).Copy _
Destination:=Worksheets("Dashboard - Detailed").Range("A300")

End Sub






Sub Slicers_Clear()
' Clears currently selected items in slicers


Sheets("Dashboard - Detailed").Select
ActiveWorkbook.SlicerCaches("Slicer_Price").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_Product").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_Region").ClearManualFilter


End Sub






Sub Slicers_Update()
' Updates slicer values based on cells in row 300




' Update Region slicer


Dim region As String
region = Sheets("Dashboard - Detailed").Range("A300")


Dim item As SlicerItem


For Each item In ThisWorkbook.SlicerCaches("Slicer_Product").SlicerItems
If item.Name = region Then
item.Selected = True
Else
item.Selected = False
End If
Next item


' Update Product slicer


Dim product As String
product = Sheets("Dashboard - Detailed").Range("B300")


For Each item In ThisWorkbook.SlicerCaches("Slicer_Product").SlicerItems
If item.Name = product Then
item.Selected = True
Else
item.Selected = False
End If
Next item


' Update Price slicer


Dim price As String
price = Sheets("Dashboard - Detailed").Range("D300")




For Each item In ThisWorkbook.SlicerCaches("Slicer_Price").SlicerItems
If item.Name = price Then
item.Selected = True
Else
item.Selected = False
End If
Next item


End Sub
 
Upvote 0

Forum statistics

Threads
1,213,489
Messages
6,113,949
Members
448,534
Latest member
benefuexx

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