الواعد قام بنشر يونيو 10, 2005 مشاركة قام بنشر يونيو 10, 2005 السلام عليكم ورحمة الله وبركاته ... الأخوة أساتذة وأعضاء منتديات أوفيستا.... تحيه طيبة .... أرجوا منكم مساعدتي في التالي : لدي ورقة عمل مكونة من خمسة وعشرون صفحة .. يوجد في طيها كشوفات حساب للعملاء تتكون من عشرون كشف .. وهي قابله للزيادة بإزدياد العملاء مستقبلاً ( أي الكشوفات ) وأريد عمل قائمة منسدلة تظم أسماء هؤلاء العملاء لكي أصل الى كشف كل عميل بالضغط على أسمه من القائمة المنسدله فينقلني تلقائياً الى الكشف مثلاً: أحمد محمد خالد حسن فمجبرد الضغط على أسم العميل خالد من القائمة المنسدلة يتم نقلي مباشرة لكشف حسابة مع العلم أنه قد يصل عدد العملاء الى أكثر من مائة عميل قريباً إنشاء الله . أرجوا أني قد أوصلت الفكرة .... ولكم مني كل التقدير رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر يونيو 11, 2005 مشاركة قام بنشر يونيو 11, 2005 - أهلاً بك بيننا ... تفضل طلبك بالمرفقات ____________________.zip رابط هذا التعليق شارك More sharing options...
الواعد قام بنشر يونيو 11, 2005 الكاتب مشاركة قام بنشر يونيو 11, 2005 جزاك الله خير أخي حسام وكثر الله من أمثالك وزادك الله علماً إلى علمك هذا الخيط الضائع مني والحمد لله وجدته في هذا المنتدى النبراس أرجوا التوفيق لكم .. وشكراً سوف تكون طلباتي كثيرة ... أنتظروني رابط هذا التعليق شارك More sharing options...
walf10 قام بنشر يونيو 24, 2005 مشاركة قام بنشر يونيو 24, 2005 الاستاذ حسام نور عند جعل احدى الصفحات مخفية تضهر بالقائمة المنسدلة وعند فتح الصفحة يضهر هنالك مشكلو بالكود كيف يمكن اخفاء الصفحة من القائمة المنسدله رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر يونيو 25, 2005 مشاركة قام بنشر يونيو 25, 2005 السلام عليكم ... جرب التعديل التالي : _______.rar رابط هذا التعليق شارك More sharing options...
walf10 قام بنشر يوليو 3, 2005 مشاركة قام بنشر يوليو 3, 2005 الاستاذ محمد حجازي في حالة الضغط على زر انتقال بدون تحديد صفحة معينة يظهر خطأ ويقوم بفتح الكود كيف يمكن إلغاء ذلك ولك الشكر رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر يوليو 4, 2005 مشاركة قام بنشر يوليو 4, 2005 السلام عليكم ... يمكنك حل المشكلة عن طريق تعديل الكود : 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 بالتوفيق رابط هذا التعليق شارك More sharing options...
walf10 قام بنشر يوليو 5, 2005 مشاركة قام بنشر يوليو 5, 2005 السادة / المشرفين و الاعضاء الكرام بعد تعديل الكود تعود المشكلة الاولى و هي ظهور الصفحات المخفية بالقائمة المنسدله رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر يوليو 7, 2005 مشاركة قام بنشر يوليو 7, 2005 السلام عليكم ... الملف يعمل عندي تمام ، عاين المرفق : ___.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها