Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do you say in VBE language to go to the last filled cell?
I don't think CountA works if there are blank cells in your column. I
either use the UsedRange property if I'm not concerned about the last cell in a specific column/row, but, rather all columns/rows. For a specifice column/row, I always rely on a loop that walks through the cells until it finds the end. I'm sure, though, that there must be a better way and would love to hear about it if anyone knows of one. Here's a sample of my approach: Function GetLastCellInColumn (ws as Excel.Worsheet, iCol as Integer) As Integer ' ' Find last filled cell in column iCol on Worksheet ws ' Dim LastCellInColumn as Integer LastCellInColumn = ws.UsedRange.Rows.Count Do while trim(ws.Cells(LastCellInColumn, iCol)) = "" and LastCellInColumn 0 LastCellInColumn = LastCellInColumn - 1 Loop GetLastCellInColumn = LastCellInColumn End Function "Blewyn" wrote in message ... Number_of_rows = WorksheetFunction.CountA(Range("A1:A" & Rows.Count)) Cells(Number_of_rows,1).Activate Cheers, Blewyn PS This advice given to me by Ron de Bruin in response to a smiliar question a couple of days ago. ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to change German language data into Eglish Language in a colum | Excel Discussion (Misc queries) | |||
language support in excel sheet using a third party language tool | Excel Worksheet Functions | |||
How can I programatically change the language in the language bar? | Excel Discussion (Misc queries) | |||
How to change the excel format from language to language? | Excel Discussion (Misc queries) | |||
How do you say in VBE language to go to the last filled cell? | Excel Programming |