هل يوجد كود مرن بحيث يتغير تلقائيا بتغير اسم الورقه

[علي المصري]

وجدت في المنتدى اكواد لتغير اسم الورقة حسب محتوى خلية ما

 ولكن

اسماء الشيتات تكون موجود في بعض الاكواد التي استعملها

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

[سليم حاصبيا]

استاذ علي/السلام عليكم

جرب هذا الشيء مع اني شخصياً لم افعل ذلك

وردت غلطة املائية يجب تداركها 

ATIVESHEET يجب ان تكتب  ACTIVESHEET

SUB VARIABLESHEET()
IF ATIVESHEET.NAME=SHEETS(“ 1اسم الصفحة”) .NAME  GO TO 1
IF ATIVESHEET.NAME=SHEETS(“ 2اسم الصفحة”) .NAME  GO TO 2
IF ATIVESHEET.NAME=SHEETS(“ 3اسم الصفحة”) .NAME GO TO 3
1:
"تكتب هنا الكود الأول
ثم EXIT SUB   
2:
"تكتب هنا الكود الثاني
ثم EXIT SUB   
3:
"تكتب هنا الكود  الثالث
END SUB

 و هكذ

[علي المصري]

وعليكم السلام ورحمة الله وبركاته

استاذنا  سليم حاصبيا

 

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

 

لو تكرمت ياريت مثال عملى كي افهم الامور صحيحة

[سليم حاصبيا]

السلام عايكم 

استاذ علي اليك مثال على ما أقصده

علي المصري.rar

[علي المصري]

السلام عليكم ورحمة الله وبركاته

جزاك الله عني خير

 

للأسف ليس هو المطلوب

المطلوب يمكنك فهمه من الملف المرفق

قمت بنجربة الازرار أولا ً سوف تجدها تعمل إن شاء الله

ثم قم بتغيير البيانات الموجودة في الخلية الملونة بالاصفر

سوف تجد اسم الورقة قد تغير

وبعد اضغط على الأزرار تجدها لا تعمل وتظهر ان هناك خطأ في البرمجة

 

هل يمكن حل هذه المشكلة ؟

شكرا

علي المصري.rar

[سليم حاصبيا]

استاذ على

تم التعديل على الكود ليتناسب مع رغبتكم

 

علي المصري 1.rar

[علي المصري]

شكرا استاذ سليم

جزاك الله عنى خيرا