Combobox çoklu sutun

[merakli_72]

mrb,
combobox'a row source özelliği ile
B,C,G sutundaki verileri nasıl alabilirz (3 sutun halinde)
otomatik tamamlama C sutununa göre olacak.

Bu mümkün değilse Additem yöntemi ile 3 sutun nasıl eklenebilir.
Teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki örneği inceleyiniz. Farklı yöntemlerde olabilir.

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
Dim dz() As String
Dim Son As Integer
Son = [B65536].End(3).Row
ReDim dz(1 To Son, 1 To 3)
    With ComboBox1
        .ColumnCount = 3
        .ColumnWidths = 75
        .Width = 220
        .Height = 16
        .ListRows = 6
        .BoundColumn = 2
    End With
For i = 1 To Son
    dz(i, 1) = Cells(i, "B")
    dz(i, 2) = Cells(i, "C")
    dz(i, 3) = Cells(i, "G")
Next i
ComboBox1.List() = dz()
End Sub

 

[merakli_72]

çok teşekkür ederim,
peki burda kolonlara başlık verilebilirmi

 

[Necdet]

Merhaba,

Önceki mesajımdaki yöntemle başlık eklenmedi, RowSource yöntemi ile başlıklar eklendi.

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim Son As Integer
    Son = [B65536].End(3).Row
    Dim dz() As String
    ReDim dz(Son - 1, 2)
    With ComboBox1
        .RowSource = "B2:G" & Son
        .ColumnCount = 6
        .ColumnHeads = True
        .ColumnWidths = "50;50;0;0;0;50"
        .Width = 220
        .Height = 20
        .ListRows = 8
        .BoundColumn = 2
    End With
End Sub

 

[merakli_72]

Sayın Necdet bey,
.BoundColumn = 2
otomatik tamamlama sutununu değiştirmiyor sanırım,
ilk sutuna (B) göre otomatik tamamlama yapıyor, C sutununa göre otomatik tamamlama nasıl yaptırabiliriz
Teşekkürler

 

[Necdet]

Merhaba,

C sütununu başa almak gerek o zaman. BoundColumn= 2 sonucu combo value da C sütununu dikkate almasını sağlıyor.