مساعده فى كود لفتح الشيت التالى

[احمد حسن الامام]

يرجى المساعده

اريد كود لفتح الشيت التالى بدون وضع اسم الشيت 

مثلا عندى شيتات من 1 الى 15  واقف على الشيت رقم 6 واريد الضغط على زر ينقلنى الى الشيت رقم 7 بحث يمكننى نقل ذلك الزر الى اى شيت دون تغيير الكود

[ابراهيم الحداد]

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

استخدم الكود التالى بعد وضعه فى حدث ThisWorkBook

دبل كليك على الخلية A1 فى كل مرة

 

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$1" Then Exit Sub
On Error GoTo 1:
For i = 1 To Sheets.Count
If ActiveSheet.CodeName = Sheets(i).CodeName Then
Sheets(i + 1).Activate
Exit For
End If
Next
1:
Exit Sub
End Sub

 

[احمد حسن الامام]

تمام والف شكر 

بس كنت عايز الربط بزر

  ولما الزر هذا بالتأكيد أفضل بكثير جدا