S
Steved
Hello from Steved
Please how can I add a piece of code to below that will allow me to do 2
data entries skip a column then carry on inputing until I reach the last
Colum which is K:\
I thankyou for looking at my issue.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K:K")) Is Nothing Then
Exit Sub
End If
If down Then
Target.Offset(1, 0).Select
Else
n = Target.Row + 1
Range("C" & n).Select
End If
down = Not down
End Sub
Please how can I add a piece of code to below that will allow me to do 2
data entries skip a column then carry on inputing until I reach the last
Colum which is K:\
I thankyou for looking at my issue.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K:K")) Is Nothing Then
Exit Sub
End If
If down Then
Target.Offset(1, 0).Select
Else
n = Target.Row + 1
Range("C" & n).Select
End If
down = Not down
End Sub