"foamfollower" wrote in message
om...
is there such a command line to 'find the first empty cell' (in a column)?

This illustrates two methods. The first fails if the column is empty or if
there is data in the last cell. The second finds the second cell if the
column is empty. It also finds some cell further up the column if the last
cell is not empty. If your column always has data in it and never nears the
bottom row, these will work as is. Otherwise you may need to add tests for
special cases.

Sub findit()

Dim r As Range

'1) Use Find.
Set r = Columns("F").Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows)(2)
Application.Goto r
MsgBox r.AddressLocal

'2) Use End
Set r = Columns("F").Cells(Rows.Count).End(xlUp).Offset(1, 0)
Application.Goto r
MsgBox r.AddressLocal

End Sub

Note that the unqualified Column("F") refers to column F in the active
sheet, if it exists. Use
Workbooks("Book1.xls").Worksheets("Sheet1").Column ("F"). etc. or equivalent
to specify a particular worksheet and workbook.

Also, look up Last Cell on Google. This is last-cell (or first empty cell)
thing is a common concern.

--
Bob Kilmer


"foamfollower" wrote in message
om...
is there such a command line to 'find the first empty cell'?