كود لأستاذى عبد الله الأشقر أريد شرحه

[dozens]

' ' åÐÇ ÇáßæÏ ááÚÇáã ÇáÚáÇãÉ ÛÈÏ Çááå ÈÇÞÓíÑ

Sub GO_TO()

On Error Resume Next

Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute

If Err.Number > 0 Then

Err.Clear

Application.CommandBars("Workbook Tabs").ShowPopup

End If

Activewindow.ScrollColumn = 1

Activewindow.ScrollRow = 1

On Error GoTo 0

End Sub

New folder (3).zip

[dozens]

يرجى الشرح أستاذ عبد الله الأشقر.......................

[dozens]

يرجى شرح الكود من الساده الاعضاء..............

[طارق عبد الحكيم]

السلام عليكم

هذا كود للانتقال بين الصفحات ( الأوراق ) .... لاحظ ندما تضيف ورقة جديدة سوف تجدها في الزر الإنتقال إلى

هذا والله أعلم

[dozens]

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

[dozens]

للرفع

[dozens]

للرفع

[dozens]

للرفع