Simple (I think) VBA question

[paliman]

Hi everybody.
I recorded a macro with the macro recorder and I need to make a little change to it. And as I know almost nothing about VBA I hope that someone here can give me a clue.

At some point I have this line:

Selection.End(xlToLeft).Select

I need this line to select the first cell of the row that I'm in, but there may be blank cells in the road, so this instruccion won't work. How can I cange it to fix my needs?

Many thanks to all of you

Pali.

 

[Damon Ostrander]

Hi paliman,

If you really want the first cell, not the first cell containing data, then the code is just:

Cells(Selection.Row,1).Select

However, if you really want the first cell containing data you need to replace it with the following:

If IsEmpty(Cells(Selection.Row,1)) Then
Cells(Selection.Row,1).End(xlToRight).Select
Else
Cells(Selection.Row,1).Select
EndIf

The key here is to do the End operation from the left end of the row to the right. The If..Then..Else is needed because of the possibility that the first cell in the row isn't empty and doing the End(xlToRight) would therefore take you to the end of the data in the row rather than the beginning.

 

[paliman]

Thanks very much for your help. In this case, column A is always filled, so I need to select the cell A-whatever.

Thanks again.

 

[ramankumar]

You can do like this. In the IF statement you can do what ever you want in the if statement.

Selection.End(xlToLeft).Select
If ActiveCell.Value = "" Then
MsgBox "First Cell is Blank"
End If