انتخاب آخرین سطر موجود در شیت

[mobinsaffarpour]

سلام دوستان

میخوام از طریق کدنویسی روشی رو معرفی کنید که بتونم بعد از اجرای کد آخرین ردیف موجود در شیت به انتخاب دربیاد . ضمناً اگر محدوه اطلاعات من از ستون a تا d هست فقط ردیف انتخابی از a تا d انتخاب شده باشه. ضمناً این نکته رو هم باید در نظر داشت که در صورت

خالی بودن چندین ردیف اونها رو در نظر نگیره و بره آخرین ردیف اطلاعات رو انتخاب کنه.

لطفاً یک نمونه فایل قرار دهید . متشکر از لطف شما .

ضمناً خیلی توی انجمن گشتم اما متاسفانه کد مورد نظرم رو پیدا نکردم .

[iranweld]

با سلام
از کد زیر استفاده کنیدبرای شیت یک و دو و برای ستون A میباشد

Dim sht1, sht2 As Worksheet
Dim LastRow1, LastRow2 As Long
'====================
Set sht1 = ThisWorkbook.Worksheets(Sheet1.Name)
Set sht2 = ThisWorkbook.Worksheets(Sheet2.Name)

lastrow1 = sht1.Cells(sht1.Rows.Count, "A").End(xlUp).Row
LastRow2 = sht2.Cells(sht2.Rows.Count, "A").End(xlUp).Row 

[nikkhah]

سلام
ملاحظه بفرمایید .( اگر مشکلی بود مطرح کنید .)

لینک به آخرین محدوده مورد نظر

[mobinsaffarpour]

کاربر محترم nikkhah

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

[mobinsaffarpour]

کاربر محترم iranweld

از زحمات جنابعالی کمال تشکر رو دارم . اما متاسفانه فایل تورن رو که اجرا می کنم اجرا نمیشه . ضمناً تمام کار من با یک شیت هست و فقط میخوام آخرین ستون اطلاعات رو توی محدوده همون اطلاعات انتخاب کنه و اصلاً هیچ کاری اگر مابین اطلاعات خالی بودن نداشته باشه . مرسی

[generalsamad]

با سلام
فایل ضمیمه رو ببینید کمکتون میکنه
بدون کد نویسی انجام شده
فرمول

1)برای رفتن به آخرین سطر انگلیسی

=HYPERLINK("#"&"'" &"sheet1" & "'!" &ADDRESS(MATCH(REPT("z";255);A:A);1);"رفتن به آخرین سطر") 

2)برای رفتن به آخرین سطر فارسی

=HYPERLINK("#"&"'"&"sheet1"&"'!"&ADDRESS(MATCH(REPT("ی";255);A:A);COLUMN(A1));"رفتن به آخرین سطر") 

3)برای رفتن به آخرین سطر عددی

=HYPERLINK("#"&"'"&"sheet1"&"'!"&ADDRESS(MATCH(9.99999999999999E+307;A:A);COLUMN(A1));"رفتن به آخرین سطر") 

4)برای رفتن به آخرین سطر

=HYPERLINK("#"&"'"&"sheet1"&"'!"&ADDRESS(MAX(MATCH(REPT("ی";255);A:A);MATCH(9.99999999999999E+307;A:A));COLUMN(A1));"رفتن به آخرین سطر") 

فایل ضمیمه گردید

[mobinsaffarpour]

سلام مدیر محترم

همانطور که اول عرض کردم باید از طریق کدنویسی vba انجام بشه

[generalsamad]

با یکی از این 3 کد میتونید به آخرین سطر پر شده در ستون A بروید

Private Sub CommandButton1_Click()
Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub 

Private Sub CommandButton2_Click()
With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    Range("A" & LastRow).Select
End With
End Sub 

Private Sub CommandButton3_Click()
Cells(Application.Rows.Count, 1).End(xlUp).Select
End Sub 

[mobinsaffarpour]

دوست عزیز متشکرم واقعاً زحمت کشیدید.