القوائم المخصصه

[2saad]

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته

هل يوجد زر عند الضغط عليه ينبثق منه صندوق أو قائمة منسدلة بها أزرار عند الضغط علي أي زر منهم يستدعي كود معين

ولكم جزيل الشكر

[أبوعيد]

نعم يوجد هذا وأكثر في الأكسل ولكن 

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

تقبل تحياتي

[2saad]

 شكرا لرد حضرتك

يعني كما بالملف المرفق يوجد أزرار كثيرة في الورقة الأولي كلها لجلب أكواد لتنفيذ أمر معين

بس شكلها كثير في الورقة

أنا عايز كل الأزرار تكون في قائمة منسدلة أو اي شئ آخر  وأنا أختار من القائمة المنسدلة ما اريده ويتم التنفيذ

يا ريت يكون المطلوب وصلتجربة.xlsm

[محمد هشام.]

تفضل 

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("Q2")) Is Nothing Then
 'خلية التنفيد
    Select Case Range("Q2")
 'اسم الماكرو __________________تعريف الماكرو
           Case "Code1": بحث_واستبدل
 
           Case "Code2": معاينة_مع_الطباعة
 
           Case "Code3": نسخة_طبق_الأصل_من_الشيت

           Case "Code4": saad5
           
           Case "Code5": saad6

           Case "Code6": saad7

    
    End Select
    
End If
End Sub

 

تجربة V1.xlsm

[2saad]

شكرا جزيلا وبارك الله فيك

مفيش حل بدلا من كلمة ( code ) نكتب اسم المطلوب تنفيذه

يعني مثلا بدلا من كلمة ( code1 ) نكتب اسم بحث واستبدال

[محمد هشام.]

نعم ممكن ان  تقوم بتغييره كما تريد مع تغييره داخل الكود

[2saad]

شكرا  لحضرتك وبتعبك معاي كثيرا