Snasui Excel Forum

Code: Select all

Private Sub worksheet_change(ByVal target As Range)
target.Offset(1, 0).Activate
End Sub
Private Sub worksheet_selectionchange(ByVal target As Range)
If target.Row = 36 Then
target.Offset(0, 1).End(xlUp).Activate
End If

End Sub

Code: Select all

Private Sub worksheet_selectionchange(ByVal target As Range)
    If target.Row = 41 Then
        Cells(3, target.Column).Select
    End If
End Sub

Code: Select all

Private Sub worksheet_change(ByVal target As Range)
target.Offset(1, 0).Activate
End Sub
Private Sub worksheet_selectionchange(ByVal target As Range)
If target.Row = 41 Then
    Cells(3, target.Column).Select
End If

End Sub

Code: Select all

 Cells(3, target.offset(0,1).Column).Select