Find Last cell with Data in Range

[berty2000]

Hi guys

Im sure this is simple but i cant seem to get anything to work correctly.

Im trying to make active cell the last cell with data in from a range all in the same row.

ActiveSheet.Range("E5:J5").End(xlToRight).Select

xlToRight goes to the first number and xlToLeft goes outside the range

Any ideas what i'm doing wrong please?

 

[Rick Rothstein]

Hi guys

Im sure this is simple but i cant seem to get anything to work correctly.

Im trying to make active cell the last cell with data in from a range all in the same row.

ActiveSheet.Range("E5:J5").End(xlToRight).Select

xlToRight goes to the first number and xlToLeft goes outside the range

Any ideas what i'm doing wrong please?

Try it this way...

ActiveSheet.Cells(5, "K").End(xlToLeft).Select

The Column K reference because it is one column past the end of the range you specified (E5:J5).

 

[berty2000]

That works well, but if there is nothing in the range E:J it will select column C were I have other data, thats why I trying to do it from a range

 

[Rick Rothstein]

That works well, but if there is nothing in the range E:J it will select column C were I have other data, thats why I trying to do it from a range

Give this a try then...

Cells(5, Application.Max(5, ActiveSheet.Cells(5,"K").End(xlToLeft).Column)).Select

 

[berty2000]

Wow Rick that works perfectly, your a god and saved my bacon at work. Thanks man