Last Column

[Dathan]

I found this code and I am using it to copy a data set of unknown length:

LastRow = Range(col & Rows.Count).End(xlUp).Row

Can someone help me write something similar for a data set of unknown width? I need something that will find the last column. I've tried this:

LastCol = Range(Columns.Count & row).End(xlLeft).Column

or/and

LastCol = Range(Columns.Count & row).End(xlRight).Column

but for some reason it isn't working. Is my problem with this code or is it somewhere else in my macro? Should either of these work? In advance, thanks!

 

[sergio.exsa]

activesheet.usedrange.columns.count and activesheet.usedrange.rows.count

 

[Norie]

Neither of those will work, Range expects a string representing a range.

I assume here you've defined col as A or whatever?

LastRow = Range(col & Rows.Count).End(xlUp).Row

To find the last column try this.

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

Note this will return the column number.

 

[Dathan]

Thanks Sergio. Can I define LastCol as the value returned from your code?

 

[Dathan]

Nori, your assumption is correct. I will try what you proposed. Thanks!

 

[Dathan]

Norie, your assumption is correct. I will try what you proposed. Thanks!