Setting the cursor position in cell text using VBA

[gallan]

I would like to be able to set the position of the cursor in the text in a particular cell using VBA.

The situation is that I am creating a lab report writer. Using then worksheet_selection_event I can determine where on the page the user clicked (by making the columns quite narrow), and bring the text for that row (which resides in the 1st cell of the row) to the formula bar for editing. I would like to be able to move the cursor along in the formula bar to the correct place in the text (or close to it) based on where on the screen they clicked in order to edit the line.

Can anyone tell me the code for doing this?

Thanks

 

[BrianB]

Something like this :-

'===================================================================================
'- MOVE CURSOR IN THE FORMULA BAR AS REQUIRED
'- Brian Baulsom September 2007
'===================================================================================
Sub test()
    Dim c As Integer
    c = 3
    '------------------------------------------------------------------------------
    Range("A1").Select      ' select cell
    SendKeys "{F2}", True   ' activate formula bar. cursor is to right of contents.
    DoEvents
    '------------------------------------------------------------------------------
    '- move cursor 3 characters to the left in the formula bar
    '- or in the cell if Tools/Options/Edit .. "Edit directly in cell" is checked
    SendKeys "{LEFT " & CStr(c) & "}", True         ' ="{LEFT 3}"
    DoEvents
End Sub
'-----------------------------------------------------------------------------------

 

[ZdenekP]

I am using Excel 2016. BrianB's code doesn't work for me until I merge all the keystroke commands into single "DoEvents" session.

Modified Code:
'===================================================================================
'- MOVE CURSOR IN THE FORMULA BAR AS REQUIRED
'===================================================================================
Sub test()
Dim c As Integer
c = 3
'------------------------------------------------------------------------------
Range("A1").Select ' select cell
SendKeys "{F2}", True ' activate formula bar. cursor is to right of contents.
SendKeys "{LEFT " & CStr(c) & "}", True ' ="{LEFT 3}"
DoEvents

End Sub
'-----------------------------------------------------------------------------------