سؤال فى الكومبو بوكس

[إبراهيم محمد]

الاساتذة الافاضل  المحترمين

لدى كومبوبكس فى احد النماذج فى ملف الاكسيل

واريد ان اقوم بتحميل بيانات عمودين  متجاورين وهما اعمدة a  و b  من مثلا a4  وحتى نهايه البيانات فى العمود b

ولكنى عندما اجرب فانه ياخذ بيانات عمود واحد فقط ويترك الاخر او يضعهما اسفل بعضهما

فما هو الكود المناسب لذلك  مع العلم باننى اريدة ان يعمل مع صفحه محددة فى الملف

وجزاكم الله خيرا

 

[رجب جاويش]

هل تقصد هكذا

 

Private Sub UserForm_Initialize()
LR = Cells(Rows.Count, 1).End(xlUp).Row
For Each cl In Range("A2:A" & LR)
x = cl & " " & cl.Offset(0, 1)
Me.ComboBox1.AddItem x
Next
End Sub

 

comboBox.rar

[إبراهيم محمد]

خالص الشكر لك استاذ رجب على ردك وبالفعل هذا هو ما اريد وبارك الله فيك

ولو فى طلب صغير  بوضع شرح مبسط للكود  ويكون لك جزيل الشكر والتقدير

[رجب جاويش]

أخى الفاضل

السطر التالى

LR = Cells(Rows.Count, 1).End(xlUp).Row

يأتى برقم آخر خلية تحتوى على بيانات فى العمود A

بعد ذلك حلقة تكرار من الخلية A2 الى آخر خليه بها بيانات

For Each cl In Range("A2:A" & LR)

السطر التالى

x = cl & " " & cl.Offset(0, 1)

يعمل على دمج محتويات كل خلية من العمود A مع الخلية المجاورة

بعد ذلك تم اضافة ناتج الدمج كعنصر جديد فى الكومبوبوكس عن طريق السطر التالى

Me.ComboBox1.AddItem x

أخوك / رجب جاويش تم تعديل فبراير 2, 2013 بواسطه رجب جاويش

[إبراهيم محمد]

ما شاء الله عليك فكرة عبقريه

مسئله دمج البيانات فى خليه واحدة لعرضها فى عمود واحد من الكومبوبوكس

حيث امكن التغلب على مشكله عرضها فى عمودين بكل سهوله ويسر

والف شكر على هذا الشرح الجميل  والمفيد

وزادك الله من علمه

واكرر شكرى وتقديري 

والى اللقاء فى مشاركات اخرى باذن الله

[رجب جاويش]

أخى الفاضل / himass

جزاك الله كل خير