User Form Controls - Connect ComboBox Selection to Listbox

Looking for vba Code that allows the user to select an item from a comboBox that populates a listbox with three columns.

Private Sub Open_Cmb_Click()
    'This changes the value of the comboBox to year
    Open_Cmb.Value = Format(Open_Cmb.Value, "yyyy")
End Sub

Private Sub UserForm_Initialize()
    Dim Yrng As Range
    Dim Orng As Range
    Dim Yws As Worksheet
    Dim Ows As Worksheet
    Set Yws = Worksheets("DataLogEcn")
    Set Ows = Worksheets("OpenEcnLog")
    Set Yrng = Yws.Range("Year")
    Set Orng = Ows.Range("OpenYear")
    Me.Year_Cmb.List = Yrng.Value
    Me.Open_Cmb.List = Orng.Value

End Sub

Private Sub Year_Cmb_Click()
    'This changes the value of the comboBox to year
    Year_Cmb.Value = Format(Year_Cmb.Value, "yyyy")
    
End Sub

Andy,

I understand I should have clarified that based on the "Year" selected I would like the list box to display columns "C", "E", and "O".

thanks

This how is looks

ENC Test.png

Andy,

I notice when I select a year from the drop down, in the list box the header is below the item did I miss something else?

I notice the add items fill the first column. I'm work on that this afternoon

thanks

Andy I modified the code which looks correct need a little help connecting the drop down box to the list box. I added an additional worksheet called reports

Private Sub CmdReportsClose_Click()
Unload Me
End Sub

Private Sub Cmp_list_Change()

    Dim SourceRange As Excel.Range
    Dim Col1 As String, Col2 As String, Col3 As String
    
    If (Cmp_List.RowSource <> vbNullString) Then
    'Get Range that the List Box is bound to
    Set SourceRange = Range(Cmp_List.RowSource)
    Else
    'Get first row of data
     Set SourceRange = Range("Reports!G2:I2")
     
    Exit Sub
    
End If

    Col1 = Cmp_List.Value
    'Get the value of the second column
    Col2 = SourceRange.Offset(Cmp_List.ListIndex, 1).Resize(1, 1).Value
    'Get the value of the third column
    Col3 = SourceRange.Offset(Cmp_List.ListIndex, 2).Resize(1, 1).Value
    
    'Clean Up
    Set SourceRange = Nothing
    

End Sub



Private Sub Open_Cmb_Click()
    'This changes the value of the comboBox to year
    Open_Cmb.Value = Format(Open_Cmb.Value, "yyyy")

End Sub


Private Sub Open_List_Change()
    Dim SourceRange As Excel.Range
    Dim Col1 As String, Col2 As String, Col3 As String
    
    If (Open_List.RowSource <> vbNullString) Then
    'Get Range that the List Box is bound to
    Set SourceRange = Range(Open_List.RowSource)
    Else
    'Get first row of data
     Set SourceRange = Range("Reports!B2:D2")
     
    Exit Sub
    
End If

    Col1 = Open_List.Value
    'Get the value of the second column
    Col2 = SourceRange.Offset(Open_List.ListIndex, 1).Resize(1, 1).Value
    'Get the value of the third column
    Col3 = SourceRange.Offset(Open_List.ListIndex, 2).Resize(1, 1).Value
    
    'Clean Up
    Set SourceRange = Nothing
    
    End Sub

Private Sub UserForm_Initialize()
    'Set properties of the list box
    With Me.Cmp_List
        .BoundColumn = 1
        .ColumnCount = 3
        .RowSource = "Reports!G2:I2"
        
    With Me.Open_List
        .BoundColumn = 1
        .ColumnCount = 3
        .RowSource = "Reports!B2:D2"
        
    End With
    
    End With
    
End Sub