userformu açmada sorun

[ramazan uçar]

arkadaşlar merhaba
aşağıda eklediğim basit bir çalışma yapmıştım.dosya boyutu küçük olmasına rağmen bilgisayarımda userformu açmakta zorlanıyorum.bazen 20-25 saniye bekliyor bazende hiç açmıyor.nedeni ne olabilir acaba?

 

[Levent Menteşoğlu]

Userform_activate olayına yazılan kodu aşağıdaki ile değiştirin.

Private Sub UserForm_Activate()
Set s1 = Sheets("sayfa1")
For a = 2 To s1.[B65000].End(3).Row
If WorksheetFunction.CountIf(s1.Range("B1:B" & a), s1.Cells(a, "B")) = 1 Then ComboBox1.AddItem s1.Cells(a, "B")
Next
ComboBox2.RowSource = "sayfa1!BH2:BH" & s1.[BH65536].End(3).Row
ComboBox3.RowSource = "sayfa1!BI2:BI" & s1.[BI65536].End(3).Row
ComboBox4.RowSource = "sayfa1!BJ2:BJ" & s1.[BJ65536].End(3).Row
ComboBox5.RowSource = "sayfa1!BK2:BK" & s1.[BK65536].End(3).Row
ComboBox6.RowSource = "sayfa1!BL2:BL" & s1.[BL65536].End(3).Row
ComboBox7.RowSource = "sayfa1!BM2:BM" & s1.[BM65536].End(3).Row
End Sub

 

[ramazan uçar]

hocam teşekkürler elinize sağlık gayet hızlı açıyor şimdi.

 

[Mahmut Kök]

sorununuzu çözdüğünüze sevindim..