الانتقال لأوراق العمل في المصنف

[محمد حجازي]

السلام عليكم ...

هذا كود يقوم بالانتقال للورقة التي تقوم بإدخال اسمها :

Sub SelectSheets()
  Dim MySheets As Worksheet
  Dim SheetsName As String
1 SheetsName = Application.InputBox(prompt:="ادخل اسم الورقة المراد الانتقال إليها", Title:="اسم الورقة", Type:=2)
  If SheetsName = "" Or SheetsName = "False" Then
    Exit Sub
  Else
    For Each MySheets In ActiveWorkbook.Worksheets
      If MySheets.Name = SheetsName Then
         Sheets(SheetsName).Select
         Exit Sub
      End If
    Next MySheets
       MsgBox ("لاتوجد ورقة بهذا الاسم")
       GoTo 1
  End If
End Sub

SelectSheets.zip

تم تعديل يناير 25, 2005 بواسطه محمد حجازي

[ابومؤنس]

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

ماشاء الله عليك اخي محمد متميز . يعطيك الله الف عافية

اتمني لك ولجميع الاخوان التوفيق والنجاح ,,,,

[حسام نور]

أكثر من رائع أخي محمد حجازي .... تميز بلا حدود ولكن هل يمكن تطوير ذلك للأنتقال للصفحه المطلوبه عن طريق قائمة منسدله تحوي أسماء الصفحات ؟

تم تعديل يناير 26, 2005 بواسطه حسام نور

[محمد حجازي]

السلام عليكم ...

الأخ حسام نور ، تفضل المثال كما طلبت :

SelectSheets1.zip

[حسام نور]

- تميز وإبداع بلا حدود أخي محمد حجازي ... تستحق كل خير والحقيقه هذه الميزه جاءت بوقتها حيث اقوم بعمل يحتاج لمثل هذه الميزه الرائعه