[حل شده] spin button

[pishraw]

با سلام خدمت اساتید
کدی می خوام برای دگمه spin button که بوسیله آن بتوان به سطر اول و اخر یک جدول حرکت کند . با توجه به فایل ضمیمه اگر راهنمایی کنید ممنون میشم

[majid_mx4]

با سلام
توضیح : باید spin-but خود را از قسمت Activex controls انتخاب کنید نه قسمت Form controls
فایل ضمیمه را بررسی نمایید.

Private Sub SpinButton1_SpinDown()
lastrow = Cells(Rows.Count, "a").End(3).Row
Sheet1.Range("a" & lastrow).Select

End Sub

Private Sub SpinButton1_SpinUp()
Sheet1.Range("a3").Select

End Sub

موفق باشید میر

[pishraw]

سپاس استاد میر بزرگ
مثل همیشه عالی