list box

[mmn1000]

hi
I have two listboxes in my form, the first is fixed and the second is variable
How can I select any of the options associated with the first listbox so that its sub-set is displayed in the second listbox

 

[mmn1000]

To do this I used the following code

Private Sub UserForm_Initialize()
    Me.ListBox1.List = Sheet1.Range("A1:A9").Value
End Sub

Private Sub UserForm_Initialize()

With ListBox1
    .AddItem "100"
    .AddItem "200"
    .AddItem "300"
End With

End Sub


Private Sub ListBox1_Change()

Dim index As Integer
index = ListBox1.ListIndex

ListBox2.Clear

Select Case index
    Case Is = 0
        With ListBox2
            .AddItem "101"
            .AddItem "102"
            .AddItem "103"
        End With
    Case Is = 1
        With ListBox2
            .AddItem "201"
            .AddItem "202"
            .AddItem "203"
        End With
    Case Is = 2
        With ListBox2
            .AddItem "301"
            .AddItem "302"
            .AddItem "303"
        End With
End Select

End Sub

But in the datasheet each group is listed as list01,list02,..
How do I call these lists in the form?

 

[Fuji]

try

Private Sub UserForm_Initialize()
    With Sheets("data").[a1].CurrentRegion
        Me.ListBox1.List = Application.Index(.Value, 0, 1)
    End With
End Sub

Private Sub ListBox1_Click()
    With Sheets("data").[a1].CurrentRegion
        Me.ListBox2.Column = .Rows(Me.ListBox1.ListIndex + 1).Range("b1").Resize(, .Columns.Count - 1).Value
    End With
End Sub

 

[mmn1000]

try

Private Sub UserForm_Initialize()
    With Sheets("data").[a1].CurrentRegion
        Me.ListBox1.List = Application.Index(.Value, 0, 1)
    End With
End Sub

Private Sub ListBox1_Click()
    With Sheets("data").[a1].CurrentRegion
        Me.ListBox2.Column = .Rows(Me.ListBox1.ListIndex + 1).Range("b1").Resize(, .Columns.Count - 1).Value
    End With
End Sub

This is almost like on my request
But I want to be like the picture below

 

[Fuji]

What is the logic to populate ListBox2 to such strange list that doesn't exist in the table?
my guess, ListBox1_Click event code

Private Sub ListBox1_Click()
    With Sheets("data").[a1].CurrentRegion
        Me.ListBox2.List = .Columns(Me.ListBox1.ListIndex + 2).Range("a2").Resize(.Rows.Count - 1).Value
    End With
End Sub