Find next empty row ?

[theta]

Hi

Anybody got a simple macro to find the next empty row, and make active cell column A of this row?

Also want it so that it only looks for empty rows AFTER row 14

Also, I have a seperate macro to input some formulas, how would I make it so that it will only run if the current row is higher than 14 ?

Help appreciated

T

 

[theta]

Thanks guys ill give them a try now.

Basically want to select column A on the first row that is completely empty

I wasn't very clear before

It's so that somebody can say "insert contract" and it will find the next blank row, and make column A the active cell ready for input

 

[jim may]

Mick has supplied you with some VERY NICE Code. To accomplish what you want
Copy his exact code into a Standard Module and make the following changes ONLY before running:

Replace this line >>> 'MsgBox "Row " & Dn.Row
With this line >>> Range("A" & Dn.Row).Select

PS: Great Code Mick - Thanks!!!

Jim May

 

[mancubus]

another option:

(after spending some time on this solution, i should post )

Sub ActivateBlankRows()
 
For i = 15 To Rows.Count
    If Application.CountA(Rows(i)) = 0 Then
       Cells(i, 1).Select
       Exit Sub
    End If
Next i

 
End Sub

 

[theta]

Thanks guys all work great!