Results 1 to 6 of 6

change slicer seletion based on cell value

This is a discussion on change slicer seletion based on cell value within the Excel Questions forums, part of the Question Forums category; Hi guys, Idk if this is even possible. Is there a way to programatically change the slicer selection based on ...

  1. #1
    Board Regular
    Join Date
    Jun 2008
    Location
    London
    Posts
    368

    Lightbulb change slicer seletion based on cell value

    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
    Macr

  2. #2
    MrExcel MVP Jerry Sullivan's Avatar
    Join Date
    Mar 2010
    Location
    San Diego, California
    Posts
    7,383

    Default Re: change slicer seletion based on cell value

    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).
    Using Excel 2013

  3. #3
    New Member
    Join Date
    Feb 2015
    Posts
    3

    Default Re: change slicer seletion based on cell value

    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

  4. #4
    MrExcel MVP Jerry Sullivan's Avatar
    Join Date
    Mar 2010
    Location
    San Diego, California
    Posts
    7,383

    Default Re: change slicer seletion based on cell value

    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?
    Using Excel 2013

  5. #5
    New Member
    Join Date
    Feb 2015
    Posts
    3

    Default Re: change slicer seletion based on cell value

    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

  6. #6
    New Member
    Join Date
    Feb 2015
    Posts
    3

    Default Re: change slicer seletion based on cell value

    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

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


DMCA.com