selecting the last non blank row.
I need to create a macro to select the last non blank row in a workshee
and then convert it into it's values ( the row has formulas on it, bu i will need the values only when the macro runs). I hope this make sense. Thanks for your help -- Message posted from http://www.ExcelForum.com |
selecting the last non blank row.
To find the last USED row use this:
lastUsedRow = Worksheets("Sheet1").UsedRange.Row Worksheets("Sheet1").UsedRange.Rows.Count - 1 To find the first EMPTY row after the last used row omit the "- 1" lik so: firstEmptyRow = Worksheets("Sheet1").UsedRange.Row Worksheets("Sheet1").UsedRange.Rows.Count The same works with Columns: lastUsedCol = Worksheets("Sheet1").UsedRange.Column Worksheets("Sheet1").UsedRange.Columns.Count - 1 - Piku -- Message posted from http://www.ExcelForum.com |
selecting the last non blank row.
Assuming your data was in column A, use:
Range("A65536").End(xlUp).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False -- Message posted from http://www.ExcelForum.com |
selecting the last non blank row.
Thanks.
Is there a way to copy and paste the whole row instead of only on column -- Message posted from http://www.ExcelForum.com |
selecting the last non blank row.
Hi
try Range("A65536").End(xlUp).Select Selection.entirerow.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False -- Regards Frank Kabel Frankfurt, Germany Thanks. Is there a way to copy and paste the whole row instead of only one column? --- Message posted from http://www.ExcelForum.com/ |
selecting the last non blank row.
Change:
Range("A65536").End(xlUp).Select To: Range("A65536").End(xlUp).EntireRow.Select -- Message posted from http://www.ExcelForum.com |
All times are GMT +1. The time now is 11:08 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com