عمل قائمة منسدلة إنتقال صفحة ونطاق

[مهند الزيدي]

السلام عليكم ... أعزائي خبراء المنتدى ... أرجو منكم مساعدتي في عمل فورم ... الشرح داخل المرفق

فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة_3.rar

[الشهابي]

أخي العزيز / مهند الزيدي

مارأيك في هذه الطريقة 

حيث هناك خلايا مساعدة تم تلوينها باللون الأحمر لمعرفتها

إن شاء الله يحقق هذا مطلوبك 

لاحظ المرفق

فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة_3_2.rar

[مهند الزيدي]

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

[حمادة عمر]

الاخ الكريم

ع السريع ... شاهد المرفق ...

هل هذا هو ما تريد ؟؟

 

نسألكم الدعاء لوالدي ( رحمه الله )

 

فورم انتقال باسم الورقة واسم نطاق.rar

[حمادة عمر]

السلام عليكم

الاخ الحبيب / الشهابي

لم ار ردك الا بعد ارسال الرد ... فعذرا

حيث قمت بارسال المشاركة سريعا نظرا لضيق الوقت لدي الآن

تقبل خالص تحياتي

[مهند الزيدي]

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

فورم انتقال باسم الورقة واسم نطاق.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / مهند الزيدي

بارك الله فيك

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

وهذا تعديل بسيط ليتناسب مع طلبك كما تريد ( باذن الله )

استبدل الاكواد الموجودة لديك في الفورم بالاكواد التالية

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

[الجموعي]

أخي الكريم

هل هذا ما تقصده

أنا سويت إنتقال تلقائي للصفحات في الكمبوبوكس 1

وفي الكمبوبوكس2 اسماء الجدول

وعند إختيار احد الجداول فيتلك الصفحة عند الضغط على زر go

مباشرة ينتقل بك للجدول المختارفورم.rar

[مهند الزيدي]

وفقك الله لكل خير ورحم الله والدك .. وأسكنه فسيح جناته .... أشكرك جدا على هذا الرد الرائع ...أخي العزيز .. بارك الله فيك

[الجموعي]

السلام عليكم

الاخ الكريم / مهند الزيدي

بارك الله فيك

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

وهذا تعديل بسيط ليتناسب مع طلبك كما تريد ( باذن الله )

استبدل الاكواد الموجودة لديك في الفورم بالاكواد التالية

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

[حسام مصطفي]

منتهي الروعة والجمال والحلاوة والاتقان

استاذي الكبير / حمادة عمر

 

وراائع وومتاز من الاخ المتميز  / الجموعي

 

تقبلوا تحياتي

[حمادة عمر]

وفقك الله لكل خير ورحم الله والدك .. وأسكنه فسيح جناته .... أشكرك جدا على هذا الرد الرائع ...أخي العزيز .. بارك الله فيك

 

السلام عليكم

الاخ الكريم / مهند الزيدي

بارك الله فيك

اللهم آمين ...آمين

واكرمك الله في الدارين

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

الاخ الكريم / الجموعي

بارك الله فيك

كود جميل ...

تسير في طريق جميل الا وهو طريق التميز

وفي انتظار اعمالك وروائعك ومساعداتك للجميع

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

الاخ الكريم / حسام مصطفي

بارك الله فيك

تقبل خالص تحياتي

[مهند الزيدي]

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

[مهند الزيدي]

ولا أنسى ... أخي العزيز ... رجب جاويش .. الذي دائما ما ساعدني في عمل الفورم.....

[مهند الزيدي]

ممكن عمل المطلوب داخل المرفق ... بارك الله فيكم

فورم انتقال باسم الورقة واسم نطاق.rar

[الشهابي]

حبيبي وأستاذي القدير / حمادة عمر 

ما هذه الأخلاق الرائعة التي تتمتعون بها 

تعتذر مني أنا بالعكس نحن الذين يجب أن نعتذر لكم 

بارك الله فيكم ورفع الله قدركم وأثابكم كل خير ورحم الله والدكم وأسكنه فسيح جناته

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

تحياتي وتقديري

[الشهابي]

أخي العزيز / مهند الزيدي

هذا حل عن طريق الفورم كا طلبت 

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

فقد استخدمتها من أجل عمل القوائم المنسدلة لللأوراق و الجداول 

بس هناك شرط حتى يتم العمل بشكل صحيح وهو : 

أن يكون عدد الأعمدة في كل جدول ( 8) 

لأن هناك معادلة في النطاق المسمى ( النطاق ) وكذلك النطاق المسمى ( الترقيم ) تحدد بداية النطاق ونهايته للفورم المرن لأستاذنا الكبير عبد الله باقشير

فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة_3_2.rar

[مهند الزيدي]

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

[مهند الزيدي]

أعزائي ممكن كود زر الطباعة في الفورم المرن ظمن النطاق

[الشهابي]

أخي العزيز / مهند الزيدي

هناك خطأ في معادلات النطاق 

وهذا الملف بعد التصحيح 

فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة_3_2.rar

[مهند الزيدي]

أخي العزيز الشهابي أرجو منك مساعدتي في عمل المطلوب داخل المرفق

فورم انتقال باسم الورقة واسم نطاق.rar

[الجموعي]

تفضل يا اخي

تقبل تحياتي

فورم انتقال باسم الورقة واسم نطاق_4.rar

[الشهابي]

أخي العزيز / مهند الزيدي

تم  عمل المطلوب بعد الأستفادة من عمل أخينا العزيز الأستاذ / الجموعي حفظه الله  

فورم انتقال باسم الورقة واسم نطاق_4.rar