birden fazla sütunu birleştirerek comboboxta listeleme

[EKREM1661]

selamlar..arkadaşlar..

birden fazla sütundaki verileri combobox kutusunda birleştirmek suretiyle nasıl birleştirebiliriz..Bu konuyu forumdan "AddItem" yöntemiyle öğrenmiştik..Fakat bana sütunlardaki tüm verilerin listelenmesi gerekiyor...

örnek dosyanın basit bir şekli ektedir..yardımcı olursanız sevinirim..

 

[Levent Menteşoğlu]

Bunu iki şekilde yapabilirsiniz.

Rowsource ile veriyi alırsanız kolon sayısını 3 yapabilirsiniz.

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 3
ComboBox1.ColumnWidths = "20;40;40"
son = [a65536].End(3).Row
ComboBox1.RowSource = "a2:c" & son
End Sub

Additem yöntemi ile alacaksanız bu sefer hücreleri birleştirebilirsiniz.

Private Sub UserForm_Initialize()
son = [a65536].End(3).Row
For a = 2 To son
ComboBox1.AddItem Cells(a, "a") & "-" & Cells(a, "b") & " " & Cells(a, "c")
Next
End Sub

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[EKREM1661]

sevgili leventm hocam..
Teşekkür ediyorum..üzerimizde hakkınız var..sizleri hayırla yad ederim..

 

[EKREM1661]

sayın Seyit Tiken..sizlere de aynı tekrarla teşekkür ediyorum..
farklı ve değişik uygulamalara sahip olduk..muvaffakiyetler diliyorum..