كود اضافة الارقام فى ComboBox

[إبراهيم ابوليله]

الاحوه الكرام

تحيه طيبه وبع

اريد كود اضافة الارقام فى كومن بوكس

Book1.rar

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

تستطيع استعمال هذا

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Dim Ar

Ar = Array("1", "2", "3", "4")

ComboBox1.List = Ar

End Sub

[رعد العزاني]

استاذي ابو حنين

السلام عليكم ورحمه الله وبركاته

التوفيق الدائم

اشكرك جزيل الشكر على كل ما تقدمة لنا ودعواتنا لكم

تم تعديل أكتوبر 19, 2012 بواسطه دغيدى

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

جزاك الله خيرا أخي رعد

[إبراهيم ابوليله]

الاخ ابو حنين

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

ولكن ماراريده بالضبط موجود فى المرفق

combobox.rar

[إبراهيم ابوليله]

للرفع

[عبدالله باقشير]

السلام عليكم

ضع الكود من ضمن اكواد الفورم

Private Sub UserForm_Initialize()

Me.ComboBox1.Column = Range("B3:H3").Value

Me.ComboBox2.Column = Range("B4:H4").Value

End Sub

[إبراهيم ابوليله]

الاخ عبد الله

بارك الله فيك

الكود الذى تفضلت بهى يعمل اذا كان الزر فى نفس الشيت

لكن ماذا لو كان الزر فى شيت اخر

[عبدالله باقشير]

الاخ عبد الله

بارك الله فيك

الكود الذى تفضلت بهى يعمل اذا كان الزر فى نفس الشيت

لكن ماذا لو كان الزر فى شيت اخر

الحق اسم الورقة بالنطاق

مثلا:/

Sheets("1").Range("B3:H3")

[إبراهيم ابوليله]

الاخ عبد الله بارك الله فيك

ومشكورا على الرد

ولكن هذا ما قمت انا بالمحاوله به

ولكن يحدث خطأ

RUN TIME ERROR '9

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

مع العلم بانك مشغول جدا

بارك الله فيك

[إبراهيم ابوليله]

الاخ عبد الله بارك الله فيك

وفعلا كان الخطأ من عندى

مشكورا على الاهتمام

وجزاك الله خيرا على اعمالك ومشاركاتك