تفعيل الأزرار وربطها بالصفحة الرئيسية والعكس

[Yasser Fathi Albanna]

السادة أعضاء أعظم منتدى

تحية طيبة وبعد

مرفق شيت إكسيل به 20 شيت بهم أزرار أريد ربطهم بالصفحة الرئيسية والعكس ربط الصفحة الرئيسية بكل شيت للتنقل ما بين الصفحة الرئيسية وكل شيت على حدا

مع تسمية الأزار فى الصفحة الرئيسية بإسم الشيت المنتقل إليه مع شرح إمكانية تغيير إسم الشيت فى الصفحة الرئيسية وفى الشيت نفسة

إما بالأكواد وإما بالماكرو ولكننى حاولت بالماكرو ولم أنجح

 

ولسيادتكم خالص الشكر والتقدير

مع وافر التحية

Sales Reports.rar

[ibn_egypt]

أخى الفاضل

 

جرب الملف المرفق لربما به طلبك

 

تحياتى      

Sales Reports.rar

[Yasser Fathi Albanna]

أخى الفاضل Ibn_eygpt

الشكر والتقدير لإهتمامك ولكن هل فى إمكانية لتفعيل الأزرار نفسها لتقوم بنفس المهمة كما فى الشيت الذى أرفقته فى البداية

ولك خالص الشكر والتقدير

[ibn_egypt]

خلاص استبدل الازرار دى بشكل عادي واعمل Hyperlink لاى شيت يعجبك

 

زي المرفق كده بدل ما تفضل تكتب كود لكل زر

 

تحياتي  

Sales Reports.rar

[Yasser Fathi Albanna]

كل الشكر والتقدير لحضرتك وهاتعب حضرتك

ممكن كود واحد على شيت واحد وانا هاطبقة على الكل

فانا بالفعل أعرف كيفية ربط الشكل العادى بهيبر لينك ولكنى أريد تعلم كيفية ربط الزر للتنقل

وأسف لتعطيل حضرتك

[ibn_egypt]

اتفضل يا باشمهندس

 

ادرج ActiveX Command Button واضغط عليه Double click واكتب الكود التالى

Worksheets("Sheet20").Activate

أو ممكن تعمل ماكرو بنفس الكود السابق وتيجي على الزر العادي اللى في الشيت بتاعك واضغط Right-Click واختار Assign Macro واختار اسم الماكرو اللى انت عامله

 

مرفق ملف للتوضيح

 

تحياتي  

Sales Reports.rar

[Yasser Fathi Albanna]

تسلم إيدك يا أستاذ / بن مصر

ولك خالص الشكر والتقدير وشكرا لتعبك معايا

[ibn_egypt]

 

تسلم إيدك يا أستاذ / بن مصر

ولك خالص الشكر والتقدير وشكرا لتعبك معايا

 

 

سلمك الله اخى الفاضل من كل شر، تحياتى