كيف اعمل زر انتقال من مكان الى اخر

[ايمن ابوأنس]

اريد التنقل بين الخلايا عن طريق زر مكتوب عليه Next

بمجرد ان اضغط عليه ينتقل الى الخلية التي احددها وهكذا

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

الرجاء الافادة ولكم كل احترام وتقدير

[romio]

الأخ أيمن

إستخدم هذا الكود

Application.Goto Reference:=Worksheets("Sheet2").Range("A154"), _
    Scroll:=True

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

وبالتوفيق

وإذا فيه إستفسار أبلغني

ولو ترفق ملف يكون أفضل

تحياتي لك

[ايمن ابوأنس]

اخي romio

الف الف شكر اخي العزيز على هذا الكود الرائع

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

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

[ايمن ابوأنس]

اخي الكريم

اليوم احتجت ان اجعل هذه الكبسة ( الزر ) ان يفتح ملف ثاني وليس sheet

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

ارجو ان يكون السؤال واضح وهذا توضيح اخر للسؤال فمثلا :

الملف الاول مخزن تحت اسم book1

الملف الثاني مخزن تحت اسم book2

واريد عمل زر في book1 ليفتح خلية معينة من book2

ولك كل احترام وتقدير

[ابو اسامة العينبوسي]

السلام عليكم

Application.Goto Reference:=Workbooks("book2").Worksheets("Sheet1").Range("A100"), Scroll:=True

[ايمن ابوأنس]

اسف اخواني على التأخير في الرد

ولكن لم استطع الدخول للنت لمدة 10 ايام تقريبا

اخي الكريم

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

هذا هو المطلوب بالضبط

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

السلام عليكم

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

كود مختصر  للانتقال الى اى صفحة فى الملف

Sub kandeel()
    Sheets("الصفحة الرئيسية").Select
End Sub

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

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

Sub SheetList_CP()
    Application.CommandBars("Workbook Tabs").ShowPopup
End Sub