كود الانتقال الى شيت محدد حسب قيمة خلية

[ahmed88872]

عند الضغط على زر انتقال يتم الذهاب الى الشيت حسب خلية b2

مثال للتوضيح

خلية b2  بها رقم 5 عند الضغط على زر انتقال يتم الذهاب الى شيت 5 خلية b2  بها رقم 3 عند الضغط على زر انتقال يتم الذهاب الى شيت 3 المساعدة.xlsx

[محمد هشام.]

تفضل اخي 

 

Option Explicit
Sub selectasheet()
If Not SheetExists("" & Sheets("basic").Range("b2").Value) Then
MsgBox "ورقة العمل غير موجودة!"
Else
Sheets("" & Sheets("basic").Range("b2").Value).Select
End If
End Sub
Function SheetExists(SheetName As String) As Boolean
    SheetExists = False
On Error GoTo NoSuchSheet
If Len(Sheets(SheetName).Name) > 0 Then
SheetExists = True
Exit Function
End If
NoSuchSheet:
End Function
 

 

المساعدة.xlsm

[ahmed88872]

جزاكم الله خيرا أخى الكريم

تمام  هذا ما اريده