اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

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

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

اعلم اني اكثرت من طلباتي ولكن الناس بالناس والكل بالله عندي مشكلتين حاولت جاهد في حلها ولكن لقلة معرفتي في ربط او دمج كودين مع بعض فشلت بعد اكثر من 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

بالتوفيق

  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

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

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

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information