كومبوبوكس مع قائمة مرنة

[نايف - م]

أريد أن يكون في الكومبوبوكس عامودين

استخدمت

With ComboBox3

.ColumnCount = 2
.ColumnWidths = "100;100"
.ColumnHeads = True
endrow = Sheets("list").Range("A1").End(xlDown).Row
.AddItem Sheets("list").Range("A" & endrow, ("B1"))
 End With

و لم ينجح الأمر

البيانات موجودة في A - B

أعرف أنه يمكن تحديد العامودين على الشكل التالي

.rowsorce

لكن هكذا لا تكون مرنة

list.rar

تم تعديل يونيو 10, 2015 بواسطه نايف - م

[نايف - م]

يه يه

يا جماعة الخير معقول

ملف وأرفقنا

الخبرة بالمنتدى و موجودة

وين المشكلة

[احمد عبد الناصر]

السلام عليكم

 

جرب هذه 

Private Sub UserForm_Initialize()
With ComboBox1

.ColumnCount = 2
.ColumnWidths = "100;100"
.ColumnHeads = True
endrow = Sheets("list").Range("A1").End(xlDown).Row
'.AddItem Sheets("list").Range("A" & endrow, ("B1"))
Data = "=list!a2:b" & endrow
.RowSource = Data
 End With
End Sub

تحياتي