Find Last Used Column In Row ?

[ColinKJ]

Hi,

Can anyone please help.

I frequently use

row = Sheets(1).Range("A65536").End(xlUp).Row

to find the last used cell in a column

Can someone tell me the equivalent to find the last cell used in a row.

ColinKJ

 

[Mark F]

How about something like the code below to find the last column?

intLastColumn = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column

Mark

 

[NateO]

Hi Colin,

In a similar manner, turn on your Macro Recorder, go to the farthest cell possible on the right side of your Spreadsheet (pre 2007, column IV), and hit End, then your left cursor. Turn off your recorder, and you have said syntax.

 

[VoG]

Just for a bit of variety

LastCol = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column

 

[ColinKJ]

Thanks a lot guys.

Always more thank one way of skinning cat.

(Sorry cat lovers it's only a saying.)
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
ColinKJ

 

[scottylad2]

If you know just now where the last cell with data is, start recording and place your cursor in the same column at the top and hit control and down arrow to get to the bottom of the data set then do the same again to get to the bottom of the page. Now use control and UP arrow, which will make your selection jump back into the last cell with data in it, switch to the relative button and move to one cell below then stop recording. as long as your data stays in the same column, then running that macro will always bring you to the cell one below the last one with data in. I'm sure the same trick will work with the last rows but some of the more experienced macro users will know.
be sure to have the same cell as your starting point when running the macro

 

[scottylad2]

Sub Macro7()
'
' Macro7 Macro
'

'
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub