Random slicer value selected automatically

Yes, it is possible. I would recommend cycling through slicer items rather than randomising because it's easier, otherwise you would have to code in 'human random' as opposed to 'actual random' (remember when Apple had to make the iPod shuffle less random because users didn't like it).

Here's something for you to work with on the selecting slicer items part:

Private Sub SelectNextSlicerItem()

    On Error Resume Next
    
    Const sSlicerName   As String = "Slicer_mySlicer"
    
    Static iPos         As Integer
    Static sc           As SlicerCache
    
    Dim i               As Integer
    Dim bAction         As Boolean
    
    'Set slicer and check
    If sc Is Nothing Then Set sc = ThisWorkbook.SlicerCaches(sSlicerName)
    If sc Is Nothing Then GoTo Exit_Proc
    
    'Turn off updating/events
    bAction = True
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    'Increase counter, loop if end reached
    If iPos >= sc.SlicerItems.Count Then iPos = 0
    iPos = iPos + 1
    'Reset filter
    sc.ClearAllFilters
    'Perform selection action
    For i = 1 To sc.SlicerItems.Count
        sc.SlicerItems(i).Selected = (i = iPos)
    Next i
    
Exit_Proc:
    If bAction Then
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
        End With
    End If
    Exit Sub
    
End Sub

Hiya,

My code selects the next item each time you run it. Just integrate my code into your loop, call it to move to the next item. It's just a base starting point so you can customise it further.

There are many many other posts on refreshing data connections for TV dashboards, there's lots of examples of that code out there. However that's not the subject of this thread and so--after searching and trying existing solutions--if you cannot get it to work I would recommend starting a new thread on that subject.

Hope that helps

Quick mod could be:

Private Sub SelectNextSlicerItem()

    On Error Resume Next
    
    Const sSlicerName   As String = "Slicer_mySlicer"
    
    Static iPos         As Integer
    Static sc           As SlicerCache
    
    Dim i               As Integer
    Dim bAction         As Boolean
    
    'Set slicer and check
    If sc Is Nothing Then Set sc = ThisWorkbook.SlicerCaches(sSlicerName)
    If sc Is Nothing Then GoTo Exit_Proc
    
    'Turn off updating/events
    bAction = True
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    'Increase counter, loop if end reached
    If iPos > sc.SlicerItems.Count Then iPos = 0
    iPos = iPos + 1
    'Reset filter
    sc.ClearAllFilters
    'Perform selection action
    If iPos <= sc.SlicerItems.Count Then
        For i = 1 To sc.SlicerItems.Count
            sc.SlicerItems(i).Selected = (i = iPos)
        Next i
    End If
    
Exit_Proc:
    If bAction Then
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
        End With
    End If
    Exit Sub
    
End Sub

Iīll check it now and let you know asap
thanks for your help

EDIT : YES !!!!!! it works !!! thanks a lot