fill listbox (ActiveX) based combobox (ActiveX)

Hello elsg,

You have password protected your workbook. You need to either post the password or a copy of the workbook with the protection removed.

Put this code in sheet AleVBA's worksheet module.

Option Explicit

Private Sub ComboBox1_Change()
Dim idx As Long

    idx = Me.ComboBox1.ListIndex
    
    If idx <> -1 Then
        Me.ListBox1.List = Sheets("OrigData").Range("A" & (idx + 1) * 2).Resize(2, 13).Value
    End If
    
End Sub

Private Sub Worksheet_Activate()
    Me.ComboBox1.ListFillRange = ""
    Me.ComboBox1.List = Range("T2:T15").Value
End Sub

PS To get started you'll need to activate AleVBA which you can do by selecting the first sheet then going back to AleVBA.

Oops, forgot one more thing, you need to change the no of columns in the listbox.

Currently that's set to 0, add this to set it to 13.

Me.ListBox1.ColumnCount = 13

This is where that code would go.

Private Sub Worksheet_Activate()
    Me.ComboBox1.ListFillRange = ""
    Me.ComboBox1.List = Range("T2:T15").Value
    Me.ListBox1.ColumnCount = 13
End Sub

I'm afraid there's no autosize for columns in a listbox, you'll need to set the column widths yourself either in design mode or with code.

You'll need code for that, can't post anything specific right now but it would look something like this.

For I = 0 To Me.Listbox1.ListCount - 1
    With Me.Listbox1 
         .List(I, 1) = Format(.List(I, 1), "hh:mm")
         .List(I, 5) = Format(.List(I, 5), "hh:mm")
         .List(I, 8) = Format(.List(I, 8), "hh:mm") 
    End With
Next I