END, SHIFT+ENTER in VBA

[JZonneveld]

Hi, I am new to VBA and these forums but since every question I put in Google directed me here I figured I'd just make my own account.

I can't find a way to use the END, SHIFT+ENTER function from VBA. This is important because the file contains empty cells and the amount of colums varies per file. The title row is always complete so this function is perfect when used manually. I can't get it to work in VBA though.

When I record a macro, VBA will just specify the range.

Can somebody help me with VBA code that does the same thing?

 

[steve the fish]

Hi. So you want to find the number of used columns in Row 1 for example? Have I read that right?

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

 

[JZonneveld]

Thanks for your reply. Its not exactly what I am looking for though. I want VBA to select the entire row of data. (which has empty cells) The first row is complete so with the END, SHIFT+ENTER function I can select the other rows entirely.

This function doens't get recorded in the macro though . It just specifies the range I ended up with. I want to be able to do the same thing within VBA.

 

[steve the fish]

This should be a better method than using end. It assumes row 1 is the header row:

lc = Cells(1, Columns.Count).End(xlToLeft).Column
Range(ActiveCell, Cells(ActiveCell.Row, lc)).Select

 

[JZonneveld]

This works. Thanks a lot.

(I'm sure I'll be back with more questions though )