ارجو المساعدة فى كيفية ربط الفورم مع الاكسل

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

السلام عليكم

اولا اشكر المنتدى الرائع الذى استفيد منه جدا وكلما وقعت فى مشكلة اجد الحل عندكم بأذن الله

بارك الله مجهودكم وجعلها فى موزازين حسناتكم

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

ثم الرجوع مرة اخرى للقائمة او الفورم الرئيسى

وهو تقريبا 50 ايقونة تفتح 50 شيت

حتى اتمكن من ادخال البيانات داخل الشيت او البحث فى الشيت عن الداتا المطلوبة

ارجو المساعدة جزاكم الله خيرا

وسوف احاول رفع نسخة من البرنامج بعد حذف معلومات منه حيث انه يخص العمل

فى انتظار ردودكم فارجو الا تبخلوا على

[عبدالله المجرب]

اخي فيفا زلاتا

باذن الله ستجد الحل في هذه المنتدى الغالي

في انتظار ملفك

ابواحمد

[zine pef]

السلام عليكم

تحية أخ أبو أحمد

الأخ فيفا زلاتا ارفقت ملف تنقل بين الشيت و الأخر

Classeur1.rar

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

الاخ الفاضل

ابو احمد

جزاك الله خيرا على ردك السريع

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

لهذا هل يمكن ان ارسله لك على الايميل الخاص

ارجو الافادة وجزاك الله خيرا

اخوك فيفا

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

الاخ العزير زين

اشكرك كثيرا على الملف

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

ولكن مش عارف اثبت الفورم على الشاشة او اخليه يظهر تلقائى بع الانتهاء من العمل ويرجع تانى الى الشاشة الرئيسية

جزاك الله خيرا وجعله فى ميزان حسناتك

اخوك فيفا

[عبدالله المجرب]

الاخ الفاضل

ابو احمد

جزاك الله خيرا على ردك السريع

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

لهذا هل يمكن ان ارسله لك على الايميل الخاص

ارجو الافادة وجزاك الله خيرا

اخوك فيفا

يمكنك ارساله على الخاص

وساقوم بعمل ما باستطاعتي

ابواحمد

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

يمنك استخدام الكود التالى للاختيار بين اوراق العمل مع التغيير التلقائى لاسماء اوراق العمل

Private Sub UserForm_Activate()

    ComboBox1.Clear

    For i = 1 To Sheets.Count

        ComboBox1.AddItem (Sheets(i).Name)

    Next i

End Sub

Private Sub ComboBox1_Change()

    Sheets(ComboBox1.Text).Activate

End Sub

مرفق ملف

السلام عليكم

Form.rar

[احمد فضيله]

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

[bowman]

جزاكم الله خيرا اخوانى لقد استفدت كثرا