Last column?

[Mike D.]

Hi. I have a way to find the last row in a column:

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

How would I find the last column in a row?

Thanks!

Mike.

 

[Tom Ogilvy]

for row 10 for example:

rwNumber = 10
lastColumn = Cells(rwnumber,columns.count).End(xltoLeft).Column

 

[Guest]

Thanks, Tom.

Is there a way to refer to the column letter instead? I
am trying to select all the columns with data in it by
using the "Columns" command.

For instance, Columns("A:C").select would select the first
three columns. Is there a way to use the column numbers
instead?

Thanks again,
Mike.

 

[Tom Ogilvy]

Columns(1).Resize(,3)

would be A:C

But you could do

Dim rng as Range
set rng = Range(Cells(1,1),Cells(1,256).End(xltoLeft))
msgbox rng.entireColumn.Address

 

[Guest]

Thanks, Tom!

-----Original Message-----
Columns(1).Resize(,3)

would be A:C

But you could do

Dim rng as Range
set rng = Range(Cells(1,1),Cells(1,256).End(xltoLeft))
msgbox rng.entireColumn.Address

--
Regards,
Tom Ogilvy




.