Sleeper: Selecting Slicer Items

[Ladajakl]

I have problem with my VBA code in excel. VBA code is used for selecting the last date during opening Excel file in slicer.
The code, error and slicer are in PDF file you can to see in enclose.

The mistake is on row:

.SlicerItems("16.2.2015").Selected =True

(Mistake is: runtime error 5 Invalid procedure call or argument.)

Sub GroundHogDay()
Application.ScreenUpdating =False
       Application.EnableEvents =False
       Application.Calculation =False
       ManualUpdate =False
       Application.Calculation = xlCalculationManual
  Dim today AsDate
       today = Now
  Dim todayString AsString
      todayString = Format$(today,"dd.mm.yyyy")
  Dim Item As SlicerItem
      ThisWorkbook.SlicerCaches("Průřez_ProcessingDate").ClearManualFilter
      With ActiveWorkbook.SlicerCaches("Průřez_ProcessingDate")
     'earliest data available in the data
***.SlicerItems("16.2.2015").Selected = True    ------------- here is error***
EndWith
ForEach Item In               
     ThisWorkbook.SlicerCaches("Průřez_ProcessingDate").SlicerItems
If Item.Name = todayString Then
    Item.Selected =True
Else
    Item.Selected =False
EndIf
Next Item
    ThisWorkbook.SlicerCaches("Průřez_ProcessingDate1").ClearManualFilter
    With ActiveWorkbook.SlicerCaches("Průřez_ProcessingDate1")
   'earliest data available in the data
   **.SlicerItems("16.2.2015").Selected =True   
EndWith
ForEach Item In   
    ThisWorkbook.SlicerCaches("Průřez_ProcessingDate1").SlicerItems
If Item.Name = todayString Then
    Item.Selected =True
Else
    Item.Selected =False
EndIf
Next Item
    ThisWorkbook.SlicerCaches("Průřez_DatExp").ClearManualFilter
    With ActiveWorkbook.SlicerCaches("Průřez_DatExp")
    'earliest data available in the data
    .SlicerItems("16.2.2015").Selected =True
EndWith
ForEach Item In ThisWorkbook.SlicerCaches("Průřez_DatExp").SlicerItems
If Item.Name = todayString Then
     Item.Selected =True
Else
    Item.Selected =False
EndIf
Next Item
    Application.ScreenUpdating =True
    Application.EnableEvents =True
    Application.Calculation =True
    ManualUpdate =True
    Application.Calculation = xlCalculationAutomatic
    ThisWorkbook.RefreshAll
EndSub

[snb]

Please use a thread title that does reflect the content of your question.

[Ladajakl]

Unfortunatelly, I do not know how I can change title.

[SamT]

Bump for new Title and move to different Forum

[Paul_Hossler]

To select the last Slicer item, try something like this

Sub test()
    Dim i As Long, n As Long
    
    With ActiveWorkbook.SlicerCaches("Slicer_Account")
        n = .SlicerItems.Count
        
        For i = 1 To n - 1
            .SlicerItems(i).Selected = False
        Next I
        
        .SlicerItems(n).Selected = True
    End With
End Sub

[CrystalR]

I could kiss you!!! i've been looking for this FOREVER!!!! THANK YOU!!!! but i want the first thing to be selected, so im going with

Sub Update_Slicer_Date()
    Dim i As Long, n As Long
    
    With ActiveWorkbook.SlicerCaches("Slicer_Day_of_Week")
        n = .SlicerItems.Count
        
        For i = 2 To n - 0
            .SlicerItems(i).Selected = False
        Next i
        
        .SlicerItems(n).Selected = False
    End With
    
        With ActiveWorkbook.SlicerCaches("Slicer_Day_of_Date")
        n = .SlicerItems.Count
        
        For i = 2 To n - 0
            .SlicerItems(i).Selected = False
        Next i
        
        .SlicerItems(n).Selected = False
    End With
End Sub

To select the last Slicer item, try something like this

Sub test()
    Dim i As Long, n As Long
    
    With ActiveWorkbook.SlicerCaches("Slicer_Account")
        n = .SlicerItems.Count
        
        For i = 1 To n - 1
            .SlicerItems(i).Selected = False
        Next I
        
        .SlicerItems(n).Selected = True
    End With
End Sub