من كومبوبوكس لخلية بعدة أسطر

[نايف - م]

السلام عليكم

عندي قائمة فيها أكثر من 6000 اسم - أرغب في تحميلها على كومبوبوكس - ثم استخدامه في وضع الأسماء التي أرغب بنفس الخلية بسطر مستقل لكل اسم - وأن تظهر كل الأسماء عند تفعيل اليوسرفورم في ليست بوكس

شكرا

ملف مرفق

المصنف1.rar

تم تعديل أكتوبر 21, 2013 بواسطه نايف - م

[نايف - م]

كأنو السؤال صعب

طيب ممكن كود نستعمله بعد كتابة بضع كلمات بحيث ننتقل لسطر جديد بالخلية و بشكل مستمر -طبعا دون استخدام ألتر + أنتر

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

Private Sub ComboBox1_Change()
ActiveCell.Value = ActiveCell.Value & Chr(10) & ComboBox1
End Sub

[أبو حنــــين]

او استعمل هذا التعديل

Private Sub ComboBox1_Change()
If ActiveCell = "" Then
ActiveCell.Value = ComboBox1.Value
Else
ActiveCell.Value = ActiveCell.Value & Chr(10) & ComboBox1.Value
End If
End Sub

تم تعديل أكتوبر 22, 2013 بواسطه أبو حنين

[نايف - م]

رائع أخي أبو حنين -بارك الله فيك وزادك علما فوق علم

سؤال أخي فإن كان المطلوب ليست بوكس كيف يكون الكود

[أبو حنــــين]

هل تقصد اضافة الاسماء من الكمبوبكس الى الليست بوكس

[نايف - م]

لأ أخي أفصد من الليست بوكس للخلية متعددة الأسطر

[أبو حنــــين]

السلام عليكم

ضع هذا الكود

Private Sub ListBox1_Click()

If ActiveCell = "" Then
ActiveCell.Value = ListBox1.List(ListBox1.ListIndex)
Else
ActiveCell.Value = ActiveCell.Value & Chr(10) & ListBox1.List(ListBox1.ListIndex)
End If

End Sub

[نايف - م]

شكرا لك

لكن القائمة بها أكثر من عمود وأنا أريد تحديد القيمة من عمود (t,2)

[نايف - م]

طيب هي المشكلة حليتها :

ActiveCell.Value = ActiveCell.Value & Chr(10) & ListBox1.List(ListBox1.ListIndex, (1))

لكن عندما طبقتها على كوماند بوتون و ليس ليستبوكس كليك لم يعمل

ممكن مساعدة