macro to auto move cursor to start column

p45cal · #5 12-22-2019, 05:23 PM

Using a macro, if you've only one area on a sheet where you want this to happen then a variation of this in the sheet's code-module:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errhandler
Set myRng = Range("A1:F6") '<<<set your area here.
If Intersect(Target, myRng) Is Nothing Then
  Application.MoveAfterReturnDirection = xlDown
Else
  Application.EnableEvents = False
  myRng.Select: Target.Activate
  Application.EnableEvents = True
  Application.MoveAfterReturnDirection = xlToRight
End If
errhandler:
Application.EnableEvents = True
End Sub

If you have several areas on the same sheet you want to behave in this manner then a variation of this in the sheet's code-module:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errhandler
Set myRng = Range("A1:F6,C10:F11") '<<<set your areas here.
If Intersect(Target, myRng) Is Nothing Then
  Application.MoveAfterReturnDirection = xlDown
Else
  For Each are In myRng.Areas
    If Not Intersect(are, Target) Is Nothing Then
      Set myRng = are
      Exit For
    End If
  Next are
  Application.EnableEvents = False
  myRng.Select: Target.Activate
  Application.EnableEvents = True
  Application.MoveAfterReturnDirection = xlToRight
End If
errhandler:
Application.EnableEvents = True
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro Needed to Move Info from Column A to Column B and C	rsrasc	Excel Programming	5	04-01-2018 06:05 AM
A macro to find a symbol, delete it, and move the cursor to that location	JayBird24	Word VBA	1	08-19-2016 04:26 PM
move cursor	anand	Word VBA	14	07-07-2015 05:57 AM
How do I move the cursor back to the text from a comment without using the mouse?	MsT	Word	2	04-24-2014 05:48 PM
can't move the cursor in Word	pieboy	Word	2	02-13-2009 07:15 PM