تحديد الشيت من خلال اداة multipage بالنقر على اسم الصفحة التي تحمل نفس اسم الشيت

[Mohmad83]

السلام عليكم اساتذتنا الكرماء

ارجو من جنابكم الكريم المساعدة حيث ارغب بتحديد الشيت من خلال النقر على اسم الشيت في اداة multipage للانتقال للشيت ،، مثلا ان اداة multipage تحتوي على اربع صفحات اسمائه مطابقة لاسماء الشيتات عند اختيار اي صفحة تحمل نفس اسم الشيت تنتقل الى الشيت . تحياتي لمن يمدنا بيد العون

test1.xlsm

[الرائد77]

تفضل . 

هذا االكود 

Private Sub MultiPage1_Change()
    Select Case MultiPage1.Value
        Case 0
          Sheets("sheet1").Activate
          Case 1
          Sheets("sheet2").Activate
          Case 2
          Sheets("sheet3").Activate
          Case 3
          Sheets("sheet4").Activate
    End Select
End Sub

 

test1.xlsm

[Mohmad83]

ياخي اصلن الواحد لا يعرف ماذا يقول لكم لكي يشكركم

اسئل الله ان يمدك بالصحة والعافية والعلم استاذي الرائد77. فعلا حل عبقري  و مميز .. تحياتي لشخصك الكريم