Combobx'un 3 kolonuna Benzersiz Veri almak

[Ergün Güler]

Selam,
Örnek dosyam ektedir. Açıklama mevcuttur. Kısaca, A,B,C kolonlarındaki verileri benzersiz şekilde Combobox'un 3 kolonuna almak istiyorum.
Yardımcı olabilirseniz çok sevinirim.
İyi çalışmalar.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz...

Private Sub UserForm_Initialize()
 
Dim i As Long, deg As Variant, x As Integer
Dim d
 
With Me.ComboBox1
    .ColumnHeads = True
    .ColumnCount = 3
    .ColumnWidths = "100;100;100"
End With
 
Set d = CreateObject("Scripting.Dictionary")
 
For i = 1 To 12
    deg = Cells(i, "A") & "*" & Cells(i, "B") & "*" & Cells(i, "C")
    If Not d.exists(deg) Then
        d.Add deg, deg
        With ComboBox1
            .AddItem (x)
            .Column(0, x) = Split(deg, "*")(0)
            .Column(1, x) = Split(deg, "*")(1)
            .Column(2, x) = Split(deg, "*")(2)
            x = x + 1
        End With
    End If
Next i
 
End Sub

.

 

[Ergün Güler]

Merhaba,

Bu şekilde deneyiniz...

Private Sub UserForm_Initialize()
 
Dim i As Long, deg As Variant, x As Integer
Dim d
 
With Me.ComboBox1
    .ColumnHeads = True
    .ColumnCount = 3
    .ColumnWidths = "100;100;100"
End With
 
Set d = CreateObject("Scripting.Dictionary")
 
For i = 1 To 12
    deg = Cells(i, "A") & "*" & Cells(i, "B") & "*" & Cells(i, "C")
    If Not d.exists(deg) Then
        d.Add deg, deg
        With ComboBox1
            .AddItem (x)
            .Column(0, x) = Split(deg, "*")(0)
            .Column(1, x) = Split(deg, "*")(1)
            .Column(2, x) = Split(deg, "*")(2)
            x = x + 1
        End With
    End If
Next i
 
End Sub

.

Selam,
Sayın Ömer Hocam çok teşekkür ederim. Ellerinize sağlık.
Bir sorun var. Combobox'tan şeçim yapınca seçtiğim satırın tamamı görünmüyor. Bunu problemiş nasıl giderebiliriz?

 

[Ergün Güler]

Selam,
Yukarıdaki sorumun bir çözümü var mıdır?

 

[Korhan Ayhan]

Selamlar,

Listelerken çoklu sütun listeleyebilirsiniz fakat seçimden sonra ilk sütundaki bilgi görüntülenir. Diğer sütunlar bilgi amaçlıdır.

 

[Ergün Güler]

Selamlar,

Listelerken çoklu sütun listeleyebilirsiniz fakat seçimden sonra ilk sütundaki bilgi görüntülenir. Diğer sütunlar bilgi amaçlıdır.

Selam,
Hocam çok teşekkür ederim.
Çok kullanışlı olmasa da aşağıdaki gibi işimi görür galiba;

Private Sub ComboBox1_Click()
Me.ComboBox1.Value = Me.ComboBox1.Column(0) & " - " _
& Me.ComboBox1.Column(1) & " - " _
& Me.ComboBox1.Column(2)
End Sub

Peki, şu an örnek dosyamda Kolon başlığı mevcut ama isimlendiremedim. Kolon başlıklarına nasıl isim verebiliriz?
İyi çalışmalar.

 

[Ömer]

Kolon başlığı mevcut ama isimlendiremedim. Kolon başlıklarına nasıl isim verebiliriz?

Daha önce kullanmamıştım. Araştırıp, birşey bulursam geri dönüş yaparım.

.

 

[Korhan Ayhan]

Selamlar,

Ergün bey,

Combobox listeleme amaçlı kullanılan bir nesnedir. Sizin istediğiniz şekilde esnek bir kullanımı yoktur.

Çoklu sütunları ve başlıklarını listelemek için ListBox nesnesini kullanmanız daha uygun olacaktır.