مهند الزيدي قام بنشر فبراير 25, 2014 مشاركة قام بنشر فبراير 25, 2014 السلام عليكم ... أعزائي خبراء المنتدى ... أرجو منكم مساعدتي في عمل فورم ... الشرح داخل المرفق فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة_3.rar رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر فبراير 25, 2014 مشاركة قام بنشر فبراير 25, 2014 أخي العزيز / مهند الزيدي مارأيك في هذه الطريقة حيث هناك خلايا مساعدة تم تلوينها باللون الأحمر لمعرفتها إن شاء الله يحقق هذا مطلوبك لاحظ المرفق فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة_3_2.rar 1 رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 25, 2014 الكاتب مشاركة قام بنشر فبراير 25, 2014 اخي العزيز الشهابي .... اشكر اجابتك السريعة ... أريد ان يكون العمل على الفورم .... وعند اضافة جداول اخرى في كل صفحة تظهر على القائمة المنسدلة ... مع التقدير والامتنان ... رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 25, 2014 مشاركة قام بنشر فبراير 25, 2014 الاخ الكريم ع السريع ... شاهد المرفق ... هل هذا هو ما تريد ؟؟ نسألكم الدعاء لوالدي ( رحمه الله ) فورم انتقال باسم الورقة واسم نطاق.rar 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 25, 2014 مشاركة قام بنشر فبراير 25, 2014 السلام عليكم الاخ الحبيب / الشهابي لم ار ردك الا بعد ارسال الرد ... فعذرا حيث قمت بارسال المشاركة سريعا نظرا لضيق الوقت لدي الآن تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 25, 2014 الكاتب مشاركة قام بنشر فبراير 25, 2014 الأخ العزيز .. حمادة عمر .. أشكر إجابتك .. مع شكري للأخ الشهابي ... غايتنا هي الوصول لأبسط الحلول ولا فرق عندي بينك وبين الأخ الشهابي ... هناك مشكلة عندما أذهب الى مثال 1 وأختار منها الذهاب الى مثال 2 تظهر أسماء الجداول للورقة مثال 1 ولاتظهر لبقية الصفحات ... عندما أريد الإنتقال الى صفحة معينة يجب أن يظهر أسماء الجداول التي فيها.. مع تقديري وإعتزازي فورم انتقال باسم الورقة واسم نطاق.rar رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 25, 2014 مشاركة قام بنشر فبراير 25, 2014 السلام عليكم الاخ الكريم / مهند الزيدي بارك الله فيك ولكن عذرا فلقد تم تنفيذ طلبك في عجاله ... وكان الغرض الوصول للفكرة التي تقصدها فقط وهذا تعديل بسيط ليتناسب مع طلبك كما تريد ( باذن الله ) استبدل الاكواد الموجودة لديك في الفورم بالاكواد التالية Private Sub ComboBox1_Change() Sheets(ComboBox1.Text).Select ComboBox2.Clear With ComboBox2 For I = 1 To 250 If Not IsEmpty(Cells(2, I)) Then ComboBox2.AddItem Cells(2, I) Next End With End Sub Private Sub CommandButton1_Click() Sheets(ComboBox1.Text).Select With ActiveSheet For Each c In Range(Cells(2, 1), Cells(2, 256)) If c = ComboBox2.Value Then c.Select Next End With Unload Me End Sub Private Sub UserForm_Activate() ComboBox1.Clear For T = 1 To ThisWorkbook.Sheets.Count R = Sheets(T).Name ComboBox1.AddItem R Next End Sub في انتظار ردك ونسألكم الدعاء تقبل خالص تحياتي فورم انتقال باسم الورقة واسم نطاق-ss.rar 2 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 25, 2014 مشاركة قام بنشر فبراير 25, 2014 أخي الكريم هل هذا ما تقصده أنا سويت إنتقال تلقائي للصفحات في الكمبوبوكس 1 وفي الكمبوبوكس2 اسماء الجدول وعند إختيار احد الجداول فيتلك الصفحة عند الضغط على زر go مباشرة ينتقل بك للجدول المختارفورم.rar 1 رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 25, 2014 الكاتب مشاركة قام بنشر فبراير 25, 2014 وفقك الله لكل خير ورحم الله والدك .. وأسكنه فسيح جناته .... أشكرك جدا على هذا الرد الرائع ...أخي العزيز .. بارك الله فيك رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 25, 2014 مشاركة قام بنشر فبراير 25, 2014 السلام عليكم الاخ الكريم / مهند الزيدي بارك الله فيك ولكن عذرا فلقد تم تنفيذ طلبك في عجاله ... وكان الغرض الوصول للفكرة التي تقصدها فقط وهذا تعديل بسيط ليتناسب مع طلبك كما تريد ( باذن الله ) استبدل الاكواد الموجودة لديك في الفورم بالاكواد التالية Private Sub ComboBox1_Change() Sheets(ComboBox1.Text).Select ComboBox2.Clear With ComboBox2 For I = 1 To 250 If Not IsEmpty(Cells(2, I)) Then ComboBox2.AddItem Cells(2, I) Next End With End Sub Private Sub CommandButton1_Click() Sheets(ComboBox1.Text).Select With ActiveSheet For Each c In Range(Cells(2, 1), Cells(2, 256)) If c = ComboBox2.Value Then c.Select Next End With Unload Me End Sub Private Sub UserForm_Activate() ComboBox1.Clear For T = 1 To ThisWorkbook.Sheets.Count R = Sheets(T).Name ComboBox1.AddItem R Next End Sub في انتظار ردك ونسألكم الدعاء تقبل خالص تحياتي فورم انتقال باسم الورقة واسم نطاق-ss.rar أخي حماده عمر كود ممتاز أنا إستعملت هذا الكود يؤدي نفس الطريقه Private Sub ComboBox1_Change() Me.ComboBox2.Clear On Error Resume Next For h = 2 To 11 Me.Controls("TEXTBOX" & h).Value = "" Next Me.ComboBox2.Value = "" If Me.ComboBox1.Value = "" Then: Exit Sub Sheets(ComboBox1.Value).Select Call HMA End Sub Sub HMA() With ComboBox2 For I = 1 To 50 If Not IsEmpty(Cells(2, I)) Then ComboBox2.AddItem Cells(2, I) Next End With End Sub Private Sub CommandButton1_Click() Sheets(ComboBox1.Text).Select With ActiveSheet For Each c In Range(Cells(2, 1), Cells(2, 256)) If c = ComboBox2.Value Then c.Select '"ÌÏæá" & " " & "" Then c.Select Next End With End Sub Private Sub UserForm_Activate() ComboBox1.Clear For T = 1 To ThisWorkbook.Sheets.Count R = Sheets(T).Name ComboBox1.AddItem R Next End Sub رابط هذا التعليق شارك More sharing options...
حسام مصطفي قام بنشر فبراير 25, 2014 مشاركة قام بنشر فبراير 25, 2014 منتهي الروعة والجمال والحلاوة والاتقان استاذي الكبير / حمادة عمر وراائع وومتاز من الاخ المتميز / الجموعي تقبلوا تحياتي رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 25, 2014 مشاركة قام بنشر فبراير 25, 2014 وفقك الله لكل خير ورحم الله والدك .. وأسكنه فسيح جناته .... أشكرك جدا على هذا الرد الرائع ...أخي العزيز .. بارك الله فيك السلام عليكم الاخ الكريم / مهند الزيدي بارك الله فيك اللهم آمين ...آمين واكرمك الله في الدارين تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 25, 2014 مشاركة قام بنشر فبراير 25, 2014 السلام عليكم الاخ الكريم / الجموعي بارك الله فيك كود جميل ... تسير في طريق جميل الا وهو طريق التميز وفي انتظار اعمالك وروائعك ومساعداتك للجميع تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 25, 2014 مشاركة قام بنشر فبراير 25, 2014 السلام عليكم الاخ الكريم / حسام مصطفي بارك الله فيك تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 25, 2014 الكاتب مشاركة قام بنشر فبراير 25, 2014 شكر جزيل للأخوة .. الأخ حمادة .. الأخ الشهابي .. الأخ الجموعي .. أدامكم الله لخدمة الناس ورفع رايات العلم المعرفة .. رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 25, 2014 الكاتب مشاركة قام بنشر فبراير 25, 2014 ولا أنسى ... أخي العزيز ... رجب جاويش .. الذي دائما ما ساعدني في عمل الفورم..... رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 25, 2014 الكاتب مشاركة قام بنشر فبراير 25, 2014 ممكن عمل المطلوب داخل المرفق ... بارك الله فيكم فورم انتقال باسم الورقة واسم نطاق.rar رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر فبراير 26, 2014 مشاركة قام بنشر فبراير 26, 2014 حبيبي وأستاذي القدير / حمادة عمر ما هذه الأخلاق الرائعة التي تتمتعون بها تعتذر مني أنا بالعكس نحن الذين يجب أن نعتذر لكم بارك الله فيكم ورفع الله قدركم وأثابكم كل خير ورحم الله والدكم وأسكنه فسيح جناته وبالنسبة لطلب أخينا مهند اليزيدي فقد استعملت أكوادكم في حل عملته هذا الصباح وأحببت أن أشارككم فيه تحياتي وتقديري رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر فبراير 26, 2014 مشاركة قام بنشر فبراير 26, 2014 أخي العزيز / مهند الزيدي هذا حل عن طريق الفورم كا طلبت بس الفضل يعود لأستاذنا الكبير حمادة عمر وأكواده الرائعة مثله فقد استخدمتها من أجل عمل القوائم المنسدلة لللأوراق و الجداول بس هناك شرط حتى يتم العمل بشكل صحيح وهو : أن يكون عدد الأعمدة في كل جدول ( 8) لأن هناك معادلة في النطاق المسمى ( النطاق ) وكذلك النطاق المسمى ( الترقيم ) تحدد بداية النطاق ونهايته للفورم المرن لأستاذنا الكبير عبد الله باقشير فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة_3_2.rar رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 26, 2014 الكاتب مشاركة قام بنشر فبراير 26, 2014 أخي العزيز ... الشهابي ... اشكر لك أطلالتك الرائعة ... دائما ما أرى الحلول الرائعة على منتدى أوفسينا الرائع .. التي لم أجدها مع باقي المنتديات ... وبدون مجاملة .. صار عندي أدمان على منتداكم الرائع .. حيث أني أرى كافة الأخلاق الرائعة من قبل المشرفين والأعضاء .. وفقكم الله لكل خير .. واشكر أخوتي ( حمادة عمر ) , ( رجب جاويش ) , ( الجموعي ) وكل من ساعدني .. ,أتمنى لهم الصحة والنجاح وحفظ الله أهالكم ورحم الماضين منهم .. رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 26, 2014 الكاتب مشاركة قام بنشر فبراير 26, 2014 أعزائي ممكن كود زر الطباعة في الفورم المرن ظمن النطاق رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر فبراير 26, 2014 مشاركة قام بنشر فبراير 26, 2014 أخي العزيز / مهند الزيدي هناك خطأ في معادلات النطاق وهذا الملف بعد التصحيح فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة_3_2.rar رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر فبراير 26, 2014 الكاتب مشاركة قام بنشر فبراير 26, 2014 أخي العزيز الشهابي أرجو منك مساعدتي في عمل المطلوب داخل المرفق فورم انتقال باسم الورقة واسم نطاق.rar رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 26, 2014 مشاركة قام بنشر فبراير 26, 2014 تفضل يا اخي تقبل تحياتي فورم انتقال باسم الورقة واسم نطاق_4.rar رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر فبراير 27, 2014 مشاركة قام بنشر فبراير 27, 2014 أخي العزيز / مهند الزيدي تم عمل المطلوب بعد الأستفادة من عمل أخينا العزيز الأستاذ / الجموعي حفظه الله فورم انتقال باسم الورقة واسم نطاق_4.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان