مطلوب كود يقوم بعمل قائمة بأسماء الشيتات وربطها للتنقل منها ؟؟

[هاني مصطفي]

الاساتذة الكرام

احتاج لكود لربط صفحات الملف يقوم بعمل قائمة باسماء الشيتات الموجوده في الملف مهما كانت عددها

ليتم اختيار الشيت المطلوب الانتقال اليه بضغطه زر كما في الارتباط التشعبي مثلا او بازرار

ايهما افضل

معذرة للاساتذة الكرام انني احتاج هذا الكود باقصي سرعة ... فضلا وليس امرا

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الكريم / هاني مصطفي

 

بارك الله فيك

جرب هذا الكود وقم بوضعه في حدث الصفحة الاولي التي تريد اظهار قائمة اسماء

الشيتات فيها

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "قائمة بأسماء الصفحات"
.Cells(1, 1).Name = "Index"
End With
For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
With wSheet
.Range("A1").Name = "Start" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= _
"Index", TextToDisplay:="عودة للصفحة الرئيسية"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub

ارجو ان يفي بطلبك

وشاهد اخي الكريم هذا الرابط عله يفيدك

http://www.officena.net/ib/index.php?showtopic=37316&hl=%2B%D8%A7%D8%B2%D8%B1%D8%A7%D8%B1+%2B%D9%84%D9%83%D9%84+%2B%D8%A7%D9%84%D8%B5%D9%81%D8%AD%D8%A7%D8%AA

جزاك الله خيرا

[هاني مصطفي]

الاستاذ القدير الكبير الغالي / حمادة عمر  -----  الراائع دوما

لم اكن اتوقع سرعة الرد هذه

وهذا يكفيني في هذا المنتدي

والله اهم عندي من الحل نفسه .... كل الشكر والتقدير والاحترام لشخصك الكريم

ولكن اعذرني فانا في البداية حاولت تطبيق الكود علي ملف لدي ولم ينجح

برجاء ارساله في ملف ليسهل تطبيقه معي

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الكريم / هاني مصطفي

 

بارك الله فيك

وجزيل شكري وامتناني علي كلماتك الراائعة

تفضل اخي المرفق 2003  به الكود ويعمل بكفاءة ويمكنك زيادة عدد الصفحات كما تريد

جزاك الله خيرا

 

 

كود للتنقل بين الصفحات ارتباط تشعبي.rar

 

[ضاحي الغريب]

الأخ الحبيب أبوسما ((روح المنتدي ))

بارك الله فيك 

وجعله في ميزان حسناتك

تقبل تحياتي

[هاني مصطفي]

منتهي منهي منتهي

الروووووووووووووووعة

استاذي الحبيب القدير الخبير

حمـــــــــادة عمــــــــر

[حمادة عمر]

الأخ الحبيب أبوسما ((روح المنتدي ))

بارك الله فيك 

وجعله في ميزان حسناتك

تقبل تحياتي

 

السلام عليكم

الاخ الحبيب / ضاحي الغريب

 

بارك الله فيك

مرورك دائما يسعدني جدا

ولقبك غالي وعالي

جزاك الله خيرا

[حمادة عمر]

 

منتهي منهي منتهي

الروووووووووووووووعة

استاذي الحبيب القدير الخبير

حمـــــــــادة عمــــــــر

 

 

السلام عليكم

الاخ الكريم / هاني مصطفي

 

بارك الله فيك

الحمد لله ان وجدت ضالتك

وبسرعة ياعم اهه ... ولا ايه ... ههههه

جزاك الله خيرا

[هاني مصطفي]

بجد انت شخص هايل

واخلاقك عاليه جدا

وفعلا كما قال الاستاذ / ضاحي   انت

روح المنتدي

[حمادة عمر]

جزاك الله خيرا

اخي الكريم

[ابراهيم الشال]

بعد اذن الاستاذ حماده هذا الكود  من احد الاساتذه بالمنتدىNew ورقة عمل Microsoft Excel.rar

[ابراهيم الشال]

بعد اذن الاستاذ حماده هذا الكود  من احد الاساتذه بالمنتدىNew ورقة عمل Microsoft Excel.rar

[حمادة عمر]

الاخ الكريم / ابوعلى

 

بارك الله فيك

مشاركة فعاله وجميله

هذا الكود الذي ارسلته للقدير العلامة الخبير / عبد الله باقشير ...جزاه الله خيرا

وجعله في ميزان حسناتكم

وجعلك الله دائما في عون الجميع

جزاك الله خيرا