رفتن به آخرین سطر جدول

[ظهور 313]

سلام و عرض ادب
1- میخواستم ببینم چه جوری میتونم توی یك جدول به آخرین سطر جدول برم (دقت بفرمایید كه آخرین سطر جدول ممكنه خالی باشه و ممكنه دارای اطلاعات باشه. در هر صورت باید آخرین سطر جدول باشه)

2- چه طوری میشه توی vb گفت كه از سلولس كه در حال انتخاب هست، یكی به پایین حركت كن (یعنی سلول بعدی رو انتخاب كنیم)؟

ممنون میشم اگرراهنمایی بفرمایید

[iranweld]

با سلام

جواب سوال دوم

Sub Macro1()
ActiveCell.Offset(1, 0).Select
End Sub 

[مهندس تبریزی]

سلام دوست عزیز:
اگر بخواهیم آخرین ردیف پر جدول را در ستون a بدست بیاوریم کافیه از دستور زیر استفاده کنیم

=counta(a:a)

اگر بخواهیم اولین ردیف خالی جدول را در ستون a بدست بیاوریم کافیه از دستور زیر استفاده کنیم

=counta(a:a)+1

البته در صورتی است که در خود شیت این کا را بکنید و
اگر با کد نویسی بخواهید اولین سطر خالی را بدست آورید از کد زیر در vba استفاده فرمائید

Sub endrow()
Dim endrow As Long
    
            endrow = WorksheetFunction.CountA(Range("A:A")) + 1
End Sub