ComboBox Ad Tanımlama

[ormann]

İyi akşamlar;
Ekli örnek dosyada ComboBox1 e ad tanımlama ile girişler sayfasından B2:B10000 hücre aralığındaki verileri tanımlama yaptım.Benim girişler sayfasında b2:B83 hücre aralığında verilerim.Fakat ComboBox'un boş hücreleri göstermemesi için ne yapmamız gerekiyor.Ayrıca ComboBox un açılış liste haricinde yani serbest veri girişi yapmam için (girişler sayfasında B2:B10000 hücre aralığında olmayan verileri girmek için) hangi özelliğini aktif etmem gerekiyor.
http://dosya.co/rtjbq2eb3ape/ÖRNEK.xlsm.html

 

[askm]

Private Sub ComboBox1_DropButtonClick()
Dim son As Long
son = Sheets("GİRİŞLER").Range("B" & Rows.Count).End(3).Row
ComboBox1.ListFillRange = ""
ComboBox1.ListFillRange = "GİRİŞLER!B2:B" & son
End Sub

 

[ormann]

Çok teşekkür ederim

 

[askm]

Rica ederim. Kolay gelsin.