Last Column

[Rob]

Hi,

I have used a similar piece of code to find the last row of data by going to
the last row in the sheet and then moving up to the last row containing
data. I want to do the same albeit go to the far most column then go left
to fing the last column with data.

Cells(1,Columns.Count).Select takes me to the last column but adjusting to
the below, just errors.

dim ColNum as Single
ColNum = Cells(1,Columns.Count).End(xlLeft).Select

Any pointers most welcome. Rob

 

[Bob Phillips]

ColNum = Cells(1,Columns.Count).End(xlLeft).Column

HTH

Bob

 

[Mike H]

Rob,

I'm not sure i fully underatand what your asking but to return the column
number os the last used col in a row use.

LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

The 1 represents row 1

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[Rob]

Bob,

Initially the code didn't work but changing End(xlLeft) to End(xlToLeft) all
is working. I run in verison 2007 so wonder whether this is the reason for
a change being required?

Thanks, Rob

 

[Rob]

Thanks Mike, just the job. As you'll see in earlier post, had to change
xlLeft to xlToLeft.

Rob

 

[Mike H]

Gald I could help but note

Thanks Mike, just the job. As you'll see in earlier post, had to change
xlLeft to xlToLeft.

Not for my solution you didn't
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.