Listbox a aktif sayfadan veri aldırmak

[ridvan2111]

Selam arkadaşlar
Listbox a aktif sayfadan veri aldırmak nasıl olacak?

Private Sub UserForm_initialize()
    ListBox1.ColumnCount = 4
    ListBox1.ColumnHeads = True
    ListBox1.ColumnWidths = 60 & ";" & 60 & ";" & 60 & ";" & 60
    ListBox1.RowSource = "a2:ad" & [A65536].End(3).Row
    
    ListBox2.ColumnCount = 10
    ListBox2.ColumnHeads = True
    ListBox2.ColumnWidths = 50 & ";" & 50 & ";" & 50 & ";" & 50
    ListBox2.RowSource = "a2:ak" & [A65536].End(3).Row
End sub

Private Sub MultiPage1_Change()
Select Case MultiPage1.SelectedItem.Caption
Case "SİPARİŞ GİRİŞİ": Sheets("SİPARİŞ GİRİŞİ").Select
Case "KAYITLI SİPARİŞLER": Sheets("SİPARİŞ GİRİŞİ").Select
Case "GÜNLÜK ÜRETİM GİRİŞİ": Sheets("1.makina").Select
End Select
End Sub

diğer sekmelere geçtiğimde ListBox2 ye aktif sayfadaki veriler gelmiyor.

dosyayı ekliyorum fakat açılışta hata verebilir
kod penceresinden kodları görebilirsiniz

yardımlarınız için teşekkürler

 

[abdi]

projenize CCRP Progress bar eklemişsiniz
sanırım hata oradan kaynaklanıyo
bu referansı kaldırırsanız sorun düzeliyor.

iyi çalışmalar