Macro to find the first empty cell in a column

[Jchicoine]

Hi !

I'm looking for a macro which will find the first empty cell in a column please !

Thanks a lot !

[ggardner]

This should do it:

ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

[Tommy Bak]

You could also try
Range("A1").End(xldown).Offset(1,0).Select

wich should be a lot quicker

regards Tommy

[Jchicoine]

Thanks a lot guys !

It's very nice !

[Pear]

I think the following covers all possible situations (the other two suggested solutions may not) :-

If Application.WorksheetFunction.CountA("A:A") = 0 Then
[A1].Select
Else
On Error Resume Next
Columns(1).SpecialCells(xlCellTypeBlanks)(1, 1).Select
If Err <> 0 Then
On Error GoTo 0
[A65536].End(xlUp)(2, 1).Select
End If
On Error GoTo 0
End If

[assman]

Do we need to add a Form button and also add a Module to copy the coding? TQ

[_lovemeet_]

I think the following covers all possible situations (the other two suggested solutions may not) :-

If Application.WorksheetFunction.CountA("A:A") = 0 Then
[A1].Select
Else
On Error Resume Next
Columns(1).SpecialCells(xlCellTypeBlanks)(1, 1).Select
If Err <> 0 Then
On Error GoTo 0
[A65536].End(xlUp)(2, 1).Select
End If
On Error GoTo 0
End If

Dear Pear,

You solution is wonderful, however can you please help me with the logic in it as i am new for excel macro .

what i wish to do with this is:-

Can we change the first logic to particular cell of the colums in my case I am willing to find the 9th cell and if it is not blank than move to next cell i.e. 10th.

Thanking you in advance.

Email Id: tech[dot]problemsolved[at]gmail[dot]com