Useforda listbox2 ye veri çağırma

[Abdulhey]

Merhabalar;
Çalışma formu üzerinde bir combo ve 2 listbox var. listbox1 e veri çağırıp comboda da seçebiliyorum. Ama Listbox2 ye veri ekliyemiyorum.
Ekte gönderdiğim çalışmam ile ilgili yardım bekliyorum

 

[danersin]

Kod daha güzel yazılır belki ama bu size yol gösterecektir.



Private Sub MultiPage1_Change()
Dim sonhucre
If MultiPage1.page2.Enabled = True Then
Range("Ab3").Value = 0
Range("Ac3").Value = 0

Comboliste.ListRows = 20
Comboliste.ListStyle = 1
Comboliste.RowSource = "liste1!C3:C62" & sonhucre
ListBox2.RowSource = "Liste1!c3:c62"
ListBox2.ColumnCount = 2
ListBox2.ColumnWidths = 35
ListBox2.ColumnHeads = True
Else
Range("Ab3").Value = 0
Range("Ac3").Value = 0

Comboliste.ListRows = 20
Comboliste.ListStyle = 1
Comboliste.RowSource = "liste!C3:C62" & sonhucre
ListBox1.RowSource = "Liste!c3:c62"
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = 35
ListBox1.ColumnHeads = True

End If

End Sub

 

[Abdulhey]

Teşekkürler Danersin.