Mam mały problem. Próbuję napisać taki mały formularz do prowadzenia bazy danych o filmach w excelu za pomoca vba. Na 1 arkuszu mam liste filmów na 2 reżyserów a na 3 gatunki. O ile wypełnienie comboboxa z rokiem nie było problemem to teraz mam problem z wypelnieinem listy przy reżyserze i gatunku. Mianowicie pole gatunek uzupełnia misie tylko wtedy kiedy jestem na arkuszu z Gatunkami analogicznie reżyserzy. Nie mogę tego obejść aby pola były wypelnione podczas gdy aktywny jest arkusz z filmami.
Próbowałęm już wieloma sposoboami ale zazwyczaj wszystko kończy sie na runtime error 1004 method range of object _worksheet failed
Jesli dobrze zrozumiaem idę vba to przez odwołanie Arkusz3.Range("A1") powiniem sie odwołac do komórki A1 w arkusz3 z dowlnego miejsca, jednak tak się niestety nie dzieje.
Uzywam excela 2007
Private Sub UserForm_Initialize()
Dim r()
Dim y, i As Integer
Dim d As Variant
Dim g As Range
y = Year(Date) - 1920
ReDim r(y)
For i = 0 To y
r(i) = 1920 + i
Next i
UserForm1.ComboBox_year.List = r
With Arkusz3
For Each g In Range("A2", Selection.End(xlDown))
UserForm1.ComboBox_gatunek.AddItem (g.Value)
Next g
End With
'g = Arkusz3.Range("A2", Selection.End(xlDown))
'With Me.ComboBox_gatunek
' .List = g
'End With
With Arkusz4
d = Range("A2:B2", Selection.End(xlDown))
With UserForm1.ComboBox_director
.List = d
End With
End With
End Sub