كود التنقل بين الصفحات داخل الشيت الواحد
ياخذ رقم الصفحة من الرقم الذي مكتوب في الزر للاستاذ عبد الله باقشبر
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
التنقل الى صفحات الطباعة.rar