الذهاب لأوراق العمل بواسطة قائمة منسدله

[الواعد]

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

الأخوة أساتذة وأعضاء منتديات أوفيستا....

تحيه طيبة .... أرجوا منكم مساعدتي في التالي :

لدي ورقة عمل مكونة من خمسة وعشرون صفحة .. يوجد في طيها كشوفات حساب

للعملاء تتكون من عشرون كشف .. وهي قابله للزيادة

بإزدياد العملاء مستقبلاً ( أي الكشوفات )

وأريد عمل قائمة منسدلة تظم أسماء هؤلاء العملاء لكي أصل الى كشف كل عميل

بالضغط على أسمه من القائمة المنسدله فينقلني تلقائياً الى الكشف

مثلاً:

أحمد

محمد

خالد

حسن

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

مع العلم أنه قد يصل عدد العملاء الى أكثر من مائة عميل قريباً إنشاء الله .

أرجوا أني قد أوصلت الفكرة .... ولكم مني كل التقدير

[حسام نور]

- أهلاً بك بيننا ... تفضل طلبك بالمرفقات

____________________.zip

[الواعد]

جزاك الله خير أخي حسام وكثر الله من أمثالك وزادك الله علماً إلى علمك

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

أرجوا التوفيق لكم .. وشكراً

سوف تكون طلباتي كثيرة ... أنتظروني

[walf10]

الاستاذ حسام نور

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

كيف يمكن اخفاء الصفحة من القائمة المنسدله

[محمد حجازي]

السلام عليكم ...

جرب التعديل التالي :

_______.rar

[walf10]

الاستاذ محمد حجازي

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

يظهر خطأ ويقوم بفتح الكود

كيف يمكن إلغاء ذلك ولك الشكر

[محمد حجازي]

السلام عليكم ...

يمكنك حل المشكلة عن طريق تعديل الكود :

Private Sub CommandButton1_Click()
 Sheets(Cmb_NameSheet.Text).Select
 End
End Sub

إلى :

Private Sub CommandButton1_Click()
 If Not Cmb_NameSheet.Text = "" Then
   Sheets(Cmb_NameSheet.Text).Select
 End If
 End
End Sub

بالتوفيق

[walf10]

السادة / المشرفين و الاعضاء الكرام

بعد تعديل الكود تعود المشكلة الاولى و هي ظهور الصفحات المخفية بالقائمة المنسدله

[محمد حجازي]

السلام عليكم ...

الملف يعمل عندي تمام ، عاين المرفق :

___.rar