Sendkey F2 for range of cells

[The_Steward]

Hello,

I have been looking for a straightforward and reliable method to do sendkey "F2" on range of cells.

I want users to be sent directly to edit mode when selecting certain cells, which will allow them to copy or enter data in a more user friendly manner.

Kind regards,
Luke

 

[GWteB]

You need VBA for that. It's also recommended to use the advantage of Excel's feature to name a range of certain cells.
If you agree then select all the required cells while pressing the CTRL key and name them "CertainCells" (without the quotes) using the name box, which is usually visible to the left of the formula bar.
After that, right click on the tab of the worksheet to be affected to open its context menu, click View Code to open the VBE within the worksheets code module and paste the code below in the right hand pane. See if this works for you.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge = 1 Then
        If Not Excel.Application.Intersect(Target, Range("CertainCells")) Is Nothing Then
            VBA.SendKeys "{F2}"
        End If
    End If
End Sub

 

[The_Steward]

You need VBA for that. It's also recommended to use the advantage of Excel's feature to name a range of certain cells.
If you agree then select all the required cells while pressing the CTRL key and name them "CertainCells" (without the quotes) using the name box, which is usually visible to the left of the formula bar.
After that, right click on the tab of the worksheet to be affected to open its context menu, click View Code to open the VBE within the worksheets code module and paste the code below in the right hand pane. See if this works for you.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge = 1 Then
        If Not Excel.Application.Intersect(Target, Range("CertainCells")) Is Nothing Then
            VBA.SendKeys "{F2}"
        End If
    End If
End Sub

Amazing! Worked Perfectly. I was even able to edit VBA code to work with protected sheets and merged cells.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge > 1 Then


        If Not Excel.Application.Intersect(Target, Range("CertainCells")) Is Nothing Then
        ActiveSheet.Unprotect Password:=""
            VBA.SendKeys "{F2}"
              Else

    ActiveSheet.Protect Password:=""
        End If
    End If
End Sub

 

[The_Steward]

P.S For all questions i've asked on this forum and others. This was perhaps the most clear, concise and helpful response i've ever received. If you ever do any consulting work please feel free to let me know, as your ability to understand problems and communicate is excellent.

 

[GWteB]

You're welcome and thanks for the feedback