Filter listbox using combobox

[Prokopis]

Hi,
I have a form with a combobox filled with usernames which are read from a column.
and also an item from combobox is selected (current user).

Dim user
Dim RangeUsernames As Variant
Dim PName As Variant
Dim num As Integer
Dim userNumOnCombo As Integer
    
user = Sheets("User_Logins").Range("F7").Value
    
'Define last Row with data
 Set WS = Worksheets("Users_Table")
 With WS
        Set LastCellA = .Cells(.Rows.Count, "A").End(xlUp)
 End With

    
If LastCellA.row = 10 Then
	RangeUsernames = "A10"
Else
	RangeUsernames = "A10:A" & LastCellA.row
    End If
    
num = 0
For Each PName In Sheets("Users_Table").Range(RangeUsernames)
        ComboBox1.AddItem (PName)
        ComboBox1.ListIndex = num
        
        If PName = user Then
            userNumOnCombo = num
        End If
        
        num = num + 1
 Next PName
    
'Currect user selected on Combobox
 ComboBox1.ListIndex = userNumOnCombo

I have also a ListBox1 and I would like to populate the listbox with info about users (4 columns)
which are saved on Sheets("User_Logins") Range("A10" & LastCellA.row) using the combobox.value.

The range has values like
Username1 Day1 Date1 Hour1
Username2 Day1 Date1 Hour2
Username1 Day2 Date2 Hour3
....

I populate the values

With ListBox1
        .ColumnHeads = True
        .ColumnCount = 4
        .ColumnWidths = "80;80;80;50"
        .RowSource = Sheets("User_Logins").Range("A10:D" & LastCellA.row).Address
 End With

but I don't know how can I use the combobox to filter the data.

I would like to write a message like "No DATA FOUND " if user has no rows with login.

Finally, how can I have a choice 'All' in combobox for showing data from all users.


I appreciate your help
Thanks a lot

[westconn1]

Finally, how can I have a choice 'All' in combobox for showing data from all users.

put it in a (top) cell in rowsource, or use a checkbox to override the combobox

but I don't know how can I use the combobox to filter the data.

there may be other methods, but the 2 that spring to mind are:-
sort the table by username, then find the first and last for the selected user, use as rowsource for listbox

or use a SQL query with ADO to create a recordset where user = combobox.text, additem each record from recordset, which would be my preference