Simple One: Auto-Select Adjacent Cell

[Frith]

Morning...

Trust me, there's a method to the below madness...

In range A1:A10, I'm just trying to auto-select the next lower cell. For instance, when I click on A1, I need the curser to automatically jump to A2. There's just one thing - I need the curser to jump "into" that lower cell (i.e., so that it's "blinking" in the cell, as if I had double-clicked it).

Much thanx,
Frith

 

[hyat]

Maybe:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Application.EnableEvents = False
 
On Error GoTo ExitHere
 
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    Target.Offset(1, 0).Select
    SendKeys "{F2}"
End If
 
ExitHere:
Application.EnableEvents = True
 
End Sub

 

[Frith]

Thanks a lot! BTW, is there any way to do this while having the option to successfully select the cell on the "second" attempt? That is, I select A1, the cursor gets bumped down to A2 (per code). But if I select A1 a "second" time, the cursor remains on A1 (per normal routine)?

Thanx again,
Frith

 

[hyat]

Try this:

Dim PrevSel As Range
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Application.EnableEvents = False
 
On Error GoTo ExitHere
 
If PrevSel Is Nothing Then Set PrevSel = Range("A1")
 
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    If Target.Address <> PrevSel.Address Then
        Set PrevSel = Target
        Target.Offset(1, 0).Select
        SendKeys "{F2}"
    Else
        SendKeys "{F2}"
    End If
End If
 
ExitHere:
Application.EnableEvents = True
 
End Sub

 

[hyat]

On second thoughts, this might work better.

Dim PrevSel As Range
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Application.EnableEvents = False
 
On Error GoTo ExitHere
 
If PrevSel Is Nothing Then Set PrevSel = Range("B1")
  
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    If Target.Address <> PrevSel.Address Then
        Set PrevSel = Target
        Target.Offset(1, 0).Select
        SendKeys "{F2}"
    Else
        SendKeys "{F2}"
    End If
Else
    Set PrevSel = Target
End If
 
ExitHere:
Application.EnableEvents = True
 
End Sub