Combobox listesinde boş satırları göstermesin

[sdegirmenci]

Merhaba;
örnek; Combobox1 'in liste aldığı "A1:A500" sütunda bazı satırlarda boşluk var. Bu boş olan satırları almayıp sadece dolu satırları listelemesi mümkünmü acaba; Bu konuda yardımcı olursanız sevinirim.İşlerinizin kolay gelsin.

 

[Korhan Ayhan]

Selamlar,

Belirttiğiniz alanı döngüye alarak ADDITEM yöntemiyle verileri ComboBox nesnesine yükeleyebilirsiniz.

Option Explicit
 
Private Sub UserForm_Initialize()
    Dim X As Long
    
    For X = 1 To 500
        If Cells(X, "A") <> "" Then ComboBox1.AddItem Cells(X, "A")
    Next
End Sub

 

[sdegirmenci]

Hocam ilginize çok teşekkür ederim,
User form değilde excel sayfasında kullandığımız combo için kod üzerinde değişiklik yapmamız gerekirmi?

 

[Korhan Ayhan]

Selamlar,

Keşke ilk mesajınızda SAYFA üzerindeki ComboBox olduğunu belirtseydiniz.

Bu durumda kodu aşağıdaki şekilde değiştirip kullanabilirsiniz.

Private Sub ComboBox1_DropButtonClick()
    Dim X As Long, Veri() As Variant, Satır As Long
    
    For X = 1 To 500
        If Cells(X, "A") <> "" Then
            Satır = Satır + 1
            ReDim Preserve Veri(1 To Satır)
            Veri(Satır) = Cells(X, "A")
        End If
    Next
    If Satır > 0 Then Me.ComboBox1.List = Veri
End Sub

 

[siyahim]

hocam bu verileri sayfa2 den de alabiliyormuyuz

 

[Korhan Ayhan]

Selamlar,

Evet aldırabilirsiniz.

 

[sdegirmenci]

Sayın Korhan Ayhan Hocam ;
Çok teşekkür ederim.İstediğm buydu, hayırlı geceler diyorum.

 

[34tufan34]

Hocam Başka Bir Sayfadan Aldıramadım.
Hangi kodu kullanmalıyım.

Selamlar,

Evet aldırabilirsiniz.

 

[Korhan Ayhan]

Aşağıdaki gibi sayfa adı belirterek işlem yapabilirsiniz.

Private Sub ComboBox1_DropButtonClick()
    Dim X As Long, Veri() As Variant, Satır As Long
    
    For X = 1 To 500
        If Sheets("Sayfa1").Cells(X, "A") <> "" Then
            Satır = Satır + 1
            ReDim Preserve Veri(1 To Satır)
            Veri(Satır) = Sheets("Sayfa1").Cells(X, "A")
        End If
    Next
    If Satır > 0 Then Me.ComboBox1.List = Veri
End Sub