Comboboxta boş satırların gözükmemesi

[sin77]

Merhaba arkadaşlar. Başlıktata yazdığım gibi ComboBoxta boş satırların gözükmemesi için nasıl bir makro yazmalıyız acaba. Formda bayağı gezindim ama bulamadım bir türlü. Yardımcı olursanız sevinirim. Tşk.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub UserForm_Initialize()
Dim sat As Long
Application.ScreenUpdating = False
For sat = 1 To Cells(65536, "a").End(xlUp).Row
    If Cells(sat, "a") <> "" Then
        ComboBox1.AddItem Cells(sat, "a").Value
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[sin77]

Tşk. ederim Ziya Bey. bunu giriş adlı sayfamın B1:B500 arası listeme nasıl uygulayabilirim acaba?

 

[sin77]

Yardımcı edebilecek misini?

 

[Necdet]

merhaba,

Ziya beyin kodlarındaki "a" ları "B" yapınız.

 

[sin77]

olmadı hata veriyor. İlgili userformda intialize kodunda başka macro var, acaba ondanmı?, Cells lerin önüne Sheets("GİRİŞ") sayamıda yaıyorum yinede hata veriyor.