عمل كود ينشط ورقة عمل اسمها موجود في خلية معينة

[ابواليسر]

السلام عليكم .فلا وجود لأى مشاركة بدون التحية ...اريد كود ينشط ورقة عمل اسمها = قيمة خلية معينه في ورقة اخرى ..مرفق ملف لتفيذ الكود فيه ولكم جزيل الشكر  ...  وبما انك تريد الحل بالأكواد فكان لزاماً عليك رفع الملف بإمتداد Xlsm تجنباً لإهدار وقت الأساتذة ... تم إعادة رفع الملف بهذا الإمتداد

تنشيط ورقة عمل.xlsm

[mohamed_omar]

 

Sub create_a_sheet_if()
    Dim mhName As String
      mhName = Sheets("ورقة3").Range("a2").Value
    Application.ScreenUpdating = False
    On Error Resume Next
   Worksheets(mhName).Activate
        Application.ScreenUpdating = True
End Sub

 

 

[محي الدين ابو البشر]

ربما

تنشيط ورقة عمل.xlsm

[عبدالفتاح في بي اكسيل]

جرب هذا  الملف    ..اذا تم  كتابة اسم  الورقة خطا  ستظهر لك رسالة تجنبا  لاي خطا  بالكود  لا تحتاج  الى زر للورقة  الاولى 

الازرار  للاوراق  الاخرى عند  الرجوع  للصفحة الرئيسية .

ACTIVATION.xlsm

[ابواليسر]

شكرا لكم جميعا جزاكم الله خيرا