اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

السلام عليكم

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

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

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

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

الارتباط التشعبي.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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information