Formdan listbox kısıtlamasi varmi

[ASMET67]

çalışma dosyamda 1 adet Userform user form ve user form üzerinde 3 adet Multipage bulunmaktadir.
Multipage1 userformun direk üstünde
multipage2 iser Multipage1 in 2 sasyfasında
multipage3 iser Multipage1 in 3 sasyfasında
Ayrıca multipagelerde 9 adet Listbox bulunmaktadir.
kodlar bu şekilde sorunsuz çalışmakta .
Yalnız multipage3 ünü 3 üçüncü sayfasına 10.listboxı eklediğinde ve kodunu yazdığımda macro bu koda geldiğinde excel geçersiz bir uygulama yürüttü ve kapatılacak mesajı geliyor . Okey dediğimde excel kapanıyor. 10.listboxi sildiiğimde yine sorunsuz çalışıyor. Nasıl bir yol izlemem konusunda bir fikri olan varmı. Lisbox yerile başka nasıl bir nesne ekleyebilirim.

 

[ASMET67]

Sorunu bulamadim yardimci olacak arkadaşlar yokmu

 

[Ferhat Pazarçevirdi]

Merhabalar

Userformun Initialize olayında şu şekilde kodlamalar yapılmış.

Listbox5.ColumnCount = 7
'ListBox5.ColumnWidths = "50,100,50,50,50,50,50"
Listbox5.RowSource = "Urun_Listesi!a2:e" & [Urun_Listesi!a65536].End(3).Row
Listbox5.ColumnHeads = True

Ancak kodda refere edilen nesne malesef form üzerinde yok. Listbox5'in ismini Lis5 olarak değiştirebileceğinizi düşünerek (çünkü bu isimde bir listbox var) aşağıdaki kodları kullanmanızı tavsiye edeceğim.

Lis5.ColumnCount = 7
'ListBox5.ColumnWidths = "50,100,50,50,50,50,50"
Lis5.RowSource = "Urun_Listesi!a2:e" & [Urun_Listesi!a65536].End(3).Row
Lis5.ColumnHeads = True

Böylelikle, Automation error'le karşılaşmazsınız.

NOT :Başka nesnelerede aynı şekilde kodla başvuru varsa, dediğim gibi kodlardaki isimlendirme ile userform üzerindeki nesne isimlerinin uyuşup uyuşmadığını kontrol ediniz.