Move after entry

[seacrest]

Is there a way if after say an entry has been made in cell A4 the active cell becomes
B1 and continue down the sheet.

 

[jimboy]

Seacrest,

Right mouse over sheet1 (or sheet name) and select view code, the paste this...

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A4") <> "" Then Range("b1").Select

End Sub

 

[seacrest]

thats great but i need it to continually run down the sheet after each entry

 

[jimboy]

OK, try this;

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If ActiveCell.Row = 5 Then ActiveCell.Offset(-4, 1).Select


End Sub