next empty cell - but what if cell is already empty?

[pendle666]

Hello

The first thing in my macro is to move to the next empty cell - which I've done using this:

Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
ActiveCell.Offset(1).Select


This works fine if the active cell is occupied with data, but if it's already on the empty cell then it goes all the way to the very bottom and then gives me an error.

Is there any way around this?

Pendle

 

[SkipVought]

hi,

Then you FIRST test to determine if the cell has a value. If it does, then do your End method. Else you are already in an empty cell.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[pendle666]

Righto, thanks. Errm next question, how do I do that?

Thank you!

 

[zelgar]

Try the following:

Range("a1").End(xlDown).Select
ActiveCell.Offset(1).Select

 

[SkipVought]

depends HOW you use this process. I never use the Select method as you have posted.

If Trim(Selection.Value) <> "" Then
    Selection.End(xlDown).Select
    Selection.End(xlToLeft).Select
    ActiveCell.Offset(1).Select
End If
'the currect selection is EMPTY

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}