پيدا كردن آخرين سطر در يك محدوده تعريف شده

[misammisam]

با سلام

من يه محدوده دارم مثلا به اسم data و با مختصات Sheet1!$8:$20 ، يه كد ميخوام كه آخرين سطر اين محدوده ( data ) رو مشخص كنه .
در ضمن در اين محدوده امكان داره يكسري خط اينسرت بشه و ممكن محدوده تغيير كنه . مثلا امكان داره 5 خط به اين محدوده اينسرت بشه و اين محدوده به مختصات Sheet1!$8:$25 تغيير كنه و يا حتي كم بشه .

تشكر

[امين اسماعيلي]

[B][FONT=Tahoma] With Sheet1
    lastrow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        
End With[/FONT][/B]

به جای شیت 1 میتونی Activesheet یا هر شیت دیگه ای بزاری . این بهترین کدی هستش که تا حالا دیدم . CountA هم خوبه و یه سری کد دیگه اما با سل خالی تو محدوده مشکل دارین یا م زیاد حال نکردم. شما یه متغییر Dim Lastrow اولش تعریف کن . بعد مثلا برای محدوده میشه sheet1.range("A2:H"&Lastrow) و.

[s.cheraghi]

اگر قصد دارین آخرین سطر این محدوده را بدست بیارید(بدون توجه به اینکه خالی است یا پر) از دستور زیر استفاده کنید:

Cells(Range("Data").Cells(Range("data").Count).Row, 1)

اگر قصد دارین که آخرین سطر پر مربوط به این محدوده را بدست بیارید، از دستور زیر هم میتوانید استفاده کنید:

Cells(Range("Data").Cells(Range("data").Count).Row, 1).End(xlUp)