اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by محي الدين ابو البشر,

الردود الموصى بها

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

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

رابط هذا التعليق
شارك

 

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

 

 
  • Thanks 1
رابط هذا التعليق
شارك

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

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

ACTIVATION.xlsm

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information