Userform Combobox boş verilerinde listelenmesini engellemek

[Kavinsky]

Üstatlarım merhaba.
Giderlerimi girmek için bir adet userforma sahibim. LIST sayfasından d2:d50 arasındaki verileri almak istiyorum fakat d50 hücresine kadar henüz dolu değil,ama ileride dolma ihtimali olduğu için 10 kere kod girmeme adına d50 ye kadar verileri listelemesini istedim fakat boş olan verileri de gösteriyor. Benim istediğim şey şu boş olan verileri de açılır listede göstermesin ve ilk açıdlığında ilk sıradaki seçimi göstererek açılsın, combobox en alttakini seçiyor açılışta. Kodlar aşağıdaki gibi , umarım ne istediğimi anlatabilmişimdir. Şimdiden çok teşekkür ederim.

Private Sub ComboBox1_Change()
    Dim bul As Range
    With Sheets("LIST")
    For Each bul In .Range("D2:D50")
    If ComboBox1.Value = bul.Value Then
    TextBox5.Value = bul.Offset(0, 0).Value
        End If
    Next bul
    End With
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub ComboBox1_Change()
    If ComboBox1.Value <> "" Then TextBox5.Value = ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
    With Sheets("LIST")
        For Each Veri In .Range("D2:D50")
            If Veri.Value <> "" Then
                ComboBox1.AddItem Veri.Value
            End If
        Next
    End With
    ComboBox1.ListIndex = 0
End Sub

 

[Kavinsky]

Üstat ellerine, emeğine sağlık tam istediğim gibi olmuş.