برجاء المساعدة بكود للانتقال الى نفس الاسم

[فضل]

الى اعضاء المنتدى العظيم

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

مرفق ملف موضح به المطلوب ارجو المساعدة

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

الانتقال الى نفس الاسم.rar

[طارق محمود]

السلام عليكم

المطلوب عمل كود له زر فى الورقة (ورقة2)

وظيفة هذا الكود عندما اقف او انشط اى اسم من هذه الاسماء الموجودة بالورقة رقم 2

ثم اقوم بالضغط على هذا الزر الذى به الكود يقوم بنقلى الى الورقة رقم 1 ويقف على نفس الاسم الذى تم تنشيطه او الوقوف عليه فى الورقة رقم 2

تفضل الكود

Sub T_goto()

a = Selection.Value


If ActiveSheet.Name <> Sheets(2).Name Then MsgBox ("This is not Sheet2"): Exit Sub

x = Sheets(1).[A1000].End(xlUp).Row

For Each ce In Sheets(1).Range("A2:A" & x)

	If ce.Value = a Then rr = ce.Row: Exit For

Next ce

If rr = 0 Then MsgBox ("No name matching " & a & " in Sheet1"): Exit Sub

Sheets(1).Select

Cells(rr, 1).Select


End Sub

والمرفق به الكود والزر

تفضل

الانتقال الى نفس الاسم.rar

[خالد الشاعر]

عمل رائع استاذ طارق

تسلم ايدك

[هشام شلبى]

[فضل]

الاستاذ الفاضل / هشام شلبى

تسلم الايادى ياباشا كود رائع مثل صاحبه وحقق المطلوب

جزاك الله كل خير ياحبيبى والف الف شكر

اجمل المنى وارق التهانى لشخصكم الكريم

[ياسر الحافظ]

الاستاذ طارق

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

وفقك الله

ياسر الحافظ