[ÇÖZÜLDÜ] Combobox'un kaynaktaki veri miktarı kadar açılması...

[enteresan]

Bu sorunun cevabını bir ara forumda görmüştüm ama o kadar aramama rağmen şu an bulamıyorum. Yardımcı olacak arkadaşlara teşekkür ederim.

Kullandığım bir dosyada combobox'a kaynak olarak 12 satırlık bir alanı gösterdim. Lakin şu an o satırlardan 4 tanesi dolu 8 tanesi boş. Combobox'a tıkladığımda sadece dolu olan 4 satırın gelmesini istiyorum. Diğer boş satırlar gelmesin istiyorum. Yanlışlıkla diğer boş satırlara tıkladığımda hatalı işlem yapmakta. Eğer mümkünse;
-- Öncelikle, sadece dolu olan satırların gelmesini,
--Sonra da yanlışlıkla boş olan satıra tıklandığında makronun çalışmamasını sağlayabilir miyim.

Saygılarımla...

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
If ComboBox1.Value = "" Then
MsgBox "Boş alana tıkladınız.", vbInformation
Exit Sub
End If
'Kodlarınız.
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A1:A" & Cells(65536, "A").End(3).Row
End Sub