زر للإنتقال الى كلمة محددة

[samycalls]

كيفية عمل زر للإنتقال الى كلمة فى ورقة اكسيل

انتقال.rar

[الـعيدروس]

السلام عليكم

سمي ايقونة الماكرو خالد

وعين فيها هذا الكود

Sub ALI()

A_T = ActiveSheet.Shapes.Range(Array("Oval 1")).TextFrame2.TextRange.TrimText

Cells.Find(What:=A_T, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

End Sub

[رجب جاويش]

بعد اذن أخى الحبيب العيدروس ( أبو نصار )

فكره أخرى عند وجود اكثر من كلمة ويراد الانتقال الى أى منها

الانتقال 2.rar

[عبدالله المجرب]

الاخ الفاضل العيدروس كود ممتاز

الاخ الفاضل رجب احسنت

[رجب جاويش]

الأخ الحبيب / عبد الله المجرب

الف شكر على هذا المرور العطر