تعديل كود لظهور أسماء الشيتات في كومبوبوكس والانتقال للشيت بعد الاختيار

[TQTHAMI]

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

اسعد الله جميع اوقاتكم اليمن والبركات

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

وهي على النحو التالي 

المشكلة الأولى : عند فتح اليوزر فورم لا تظهر في القائمة أسماء الصفحات لكن لو فتحت أي شيت اخر سيظهر لك اليوزرفورم قم بإغلاقه ثم ارجع الى صفحة الداتا بيسك وافتح اليوزرفور تجد ان اسماء الصفحات موجوده في القائمة بعد اختيار اسم الشيت من القائمة  المنسدلة  واكمال البيانات  والضغط على إضافة بيانات يتم ترحيل البيانات كل الأمور تمام ولكن لا يفتح على الشيت المختار من القائمة  طلبي هو التعديل على الكود بحيث اول ما يفتح الشيت وأختار من القائمة اجد الاسماء وعند التحديد الشيت وعند اكمال البيانات يتم ترحيلها الى الشيت المختار 

ولكل المشرفين والأعضاء والزوار الشكر والاحترام

 

المثال(اوفسينا).xlsm

[أ / محمد صالح]

حسب فهمي للمطلوب

* لعرض أسماء الشيتات في القائمة

يمكنك حذف هذا الكود من حدث إلغاء تفعيل Worksheet_Deactivate لشيت database

Dim w As Worksheet
UserForm1.Co1.Clear
For Each w In ThisWorkbook.Worksheets
UserForm1.Co1.AddItem w.Name
Next w

ووضعه في حدث تفعيل النموذج UserForm_Activate

* ولفتح الشيت الذي يتم اختياره من القائمة نستعمل هذا الكود في حدث تغيير القائمة

بالضغط دبل كلك عليها في النموذج ولصق السطر الأوسط من هذا الكود فقط

Private Sub Co1_Change()
Sheets(Co1.Value).Select
End Sub

بالتوفيق

[TQTHAMI]

شكرا لله ثم لصاحب اليد العليا والفضائل الكثيرة في هذا المنتدى الرائع

أقل ما يمكن أن أقدمه لك كلمة شكر رقيقة تحمل خالص المشاعر الطيبة والصادقة تقديرًا لك على كل ما قدمته لي