مساعده فى انشاء قائمه باسماء شيتات مع وضع لينك لكل شيت لكنه لايعمل

[صابر حمزه]

ارجو المساعده لان ولو هناك طريقه افضل يبقى لكم الشكر

نموزج.rar

[المصباحي]

السلام عليكم

اخي الكريم انت قمت بربط الشيتات عن طريق الهير لينك مرفق لك ملفك مع الشرح طريقة

وهناك طرق جميلة اخرى يمكن استخدامها بالاكواد متل  كود للعالم العلامة عبد الله باقسير جزاه الله كل خير

Sub GO_TO()
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
Activewindow.ScrollColumn = 1
Activewindow.ScrollRow = 1
On Error GoTo 0
End Sub

طريقة الاستفادة من الكود

افتح ملف اكسيل

اضغط على الرز ALT وانت ضاغط على الزر

اضغط على F11 الموجود أعلا لوحة المفاتيح

ستظهر شاشة الماكرو

اضغط على موديول 1

سيتم فتح الموديول

الصق فيه الكود الموجود

 

نموزج.rar

[المصباحي]

اخي الكود موجود في المنتدى الرجاء استخدام خاصية البحت قبل كتابة اي طلب وقد ارفقت اليك ملف لتوضيح أكتر

التنقل بين الصفحات.rar

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

 أخي صابر 

الرجاء ان تذهب الى هذا العنوان

http://www.officena.net/ib/index.php?showtopic=56348

مشاركة رقم 20 و ستجد ما تريد

[إبراهيم ابوليله]

اخى صابر

اليك شت به كود يقوم

بعمل لينك بمجرد اضافة شيت

تفضل

تقبل تحياتى

link.rar

[صابر حمزه]

شكرا على هذا العطاء والتفاعل والرد  وجزاكم الله خيرا على هذا المجهود

[صابر حمزه]

الاخ ابراهيم الشيت ممتاز ولاكن كنت احب اسئل على كثرة الموديول وهل هى تخص الموضوع نفسه ام لا ارجو التوضح 

[إبراهيم ابوليله]

الاخ ابراهيم الشيت ممتاز ولاكن كنت احب اسئل على كثرة الموديول وهل هى تخص الموضوع نفسه ام لا ارجو التوضح 

اخى صابر

الملف المرفق مفهوش غير

موديول واحد

وفاضى

تقبل تحياتى

[صابر حمزه]

اخى ابراهيم هو الموديول واحد لاكن له ثلاث صفحات

New Microsoft Word Document (2).rar

[صابر حمزه]

hv[, hgv]