VBA 2010 UserForm z zależnymi ComboBox'ami

Witam
Mam taki kodzik i mi nie działa Help

 
Private Sub UserForm_Initialize()

Dim Chłopcy As Long
Dim Dziewczynki As Long
Dim Niemowlęta As Long
Dim Uniseks As Long


ComboBox1.AddItem "Chłopcy"
ComboBox1.AddItem "Dziewczynki"
ComboBox1.AddItem "Niemowlęta"
ComboBox1.AddItem "Uniseks"

If Dziewczynki = True Then

Select Case ComboBox1.ListIndex
    'Case 0
        'ComboBox3.List = [ChlopcyLista].Value
    Case 1
        ComboBox3.List = [DziewczynkiLista].Value
    'Case 2
        'ComboBox3.List = [NiemowletaLista].Value
    'Case 3
        'ComboBox3.List = [UniseksLista].Value
End Select
End If

End Sub

Hemikalny napisał(a):

Witam
Mam taki kodzik i mi nie działa Help

A jak ma działać? Tzn. jakie działanie jest pożądane a jakie ma miejsce faktycznie.

Widać, że rozpoczynsz programowanie, zastanów się co ten kod zrobi.

Już zrobiłem dzięki.