Hi
I have a spreadsheet with with 8 columns and unlimited rows which needs to be filled in.
How can I modify my current code so that when i press enter it goes to the next empty cell in row until the column 8 ("H") then to the next row?
Currently this code only does column "A" and "B" - I need to "H"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim erow As Long
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Row
If Cells(erow - 1, 1).Offset(0, 1) = "" Then
Cells(erow - 1, 1).Offset(0, 1).Select
Else: Cells(erow, 1).Select
End If
End Sub
Bookmarks