Combobox ile ilgili

[udentr2002]

Merhaba Değerli arkadaşalr,

1. sorum comboboxa sayfadan veri alırken boş olan satırları göstermesin.
2. sorum ise comboboxa sayfadan veri alırken mükerrer kayıtların görünmemesi

Bunun için nasıl bir kod yazabilirim.

SAYGILARIMLA

 

[Ömer]

Merhaba,

Bu şekilde deneyin. Veriler A sütununda düşünülmüştür.

Private Sub UserForm_Initialize()
 
    Dim i As Integer, hucre
 
    With CreateObject("Scripting.Dictionary")

        For i = 2 To Cells(Rows.Count, "[COLOR=blue]A[/COLOR]").End(xlUp).Row
            hucre = Cells(i, "A")
            If hucre <> "" Then
                If Not .exists(hucre) Then .Add hucre, Nothing
            End If
        Next i
        
        Me.ComboBox1.List = .keys

    End With
 
End Sub

.

 

[udentr2002]

hOCAM ÇOK TEŞEKKÜRLER