كود للتنقل بين الصفحات داخل الشيت

[وليد زقزوق]

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

1المصنف3.rar

[أحمد فؤاد]

أخي الحبيب

تفضل المرفق

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

[وليد زقزوق]

الاستاذ /

أحمد فؤاد

ليس هذا ما اقصدة يرجي النظر الي ملفي ثانية

[أبو محمد عباس]

السلام عليكم

بعد اذن الاخ العزيز احمد فؤاد المحترم  جزاه الله خيرا

اخي العزيز وليد المحترم

اليك الملف وفيه ارتباط تشعبي واعتقد هو المطلوب

تقبلوا فائق احترامي وقديري

الارتباط التشعبي.rar

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

اخى وليد

الاخوه الافاضل

اسمحو لى بالمشاركه

هذا كود يقوم بعمل باستخراج اسماء الشيتات فى الشيت ليست

وذلك بمجرد الذهاب الى شيت ليست

ثم يقوم عمل لينك باسم شيت ليست فى الخليه a1

فى كل شيت

اتمنى ان يفى بالغرض

عمل قائمة باسماء الشيتات وربطها كازرار.rar

[قنديل الصياد]

بعد اذن الاخوة الافاضل

اثراءا  للموضوع  قم بزيارة الرابط التالى

 

http://www.officena.net/ib/index.php?showtopic=23380&hl=

[وليد زقزوق]

الاخ

أبو محمد عباس

شكرا جدا

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

[أبو محمد عباس]

السلام عليكم

اخي اليك الملف بعد ادراج الكود الذي ارسله الاستاذ قنديل الصياد جزاه الله خيرا بالرابط التالي

http://www.officena.net/ib/index.php?showtopic=23380&hl= للاخ romio جزاه الله خيرا

ارجو ان يكون هو المطلوب

مع فائق احترامي وتقديري

 

ا--الانتقال الى الصفحات بالكود.rar

[عبدالله باقشير]

السلام عليكم

 

ياخذ رقم الصفحة من الرقم الذي مكتوب في الزر

Sub kh_PageSelect()
Dim P As Integer
Dim Adr As String
On Error GoTo 1
P = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
Adr = ActiveSheet.HPageBreaks(P - 1).Location.Address
Range(Adr).Select

1:
If Err Then Err.Clear: Range("a2").Select
End Sub

المرفق 2010

التنقل الى صفحات الطباعة.rar

[أبو محمد عباس]

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

الاستاذ الفاضل والعالم العلامة عبد الله باقشير حفظكم الله سبحانه وتعالى وبارك لكم في علمكم وعملكم

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

جعله الله سبحانه وتعالى في ميزان حسناتكم واعطاكم الصحة والعافية

تقبل فائق احترامي وتقديري