المساعده فى عمل زر للتنقل بين صفحات محدده

[يثرب]

 أريد عمل زر تنقل بين اوراق محدده مثلا شيت به 20 ورقه اريد عمل زر مخصص لكل خمس ورقات 

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

ريما يكون المطلوب

 

Loop Through Sheets.rar

[يثرب]

اولاً شكرا على ردك ثانياً ليس هذا ما اريده ولكن اريد كود لزر يظهر فقط اسماء اوراق العمل التى احدده و لمزيد من التوضيح انا بستخدم هذا الكود لكنه يظهر كل اوراق العمل انا اريد تحديد اوراق   معينه للظهور

Sub SheetList_CP()
    On Error Resume Next
  Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute
  If Err.Number > 0 Then
    Err.Clear
    Application.CommandBars("Workbook Tabs").ShowPopup
  End If
  On Error GoTo 0
End Sub

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

ريما هذا ينفع

 

 

Sheet Group.rar

[يثرب]

شكرا على استجابتك الكريمه مرفق ملف للتوضيح ليس هذا ما اريده و انا آسف تعبتك معى أخى الفاضل

التنقل بين جميع الشيتات بزر واحد.rar