View Single Post
 
Old 06-10-2020, 03:36 PM
trevorc trevorc is offline Windows 7 32bit Office 2013
Competent Performer
 
Join Date: Jan 2017
Posts: 174
trevorc will become famous soon enoughtrevorc will become famous soon enough
Default use VBA to enter cell and edit existing text

Hi All,
Just trying to tweak my system a bit, I have this bit of code to add data to some cells
, after adding this i would like to enter one of those cell and start typing. If i double click the cell it will run other VBA code so don't want to have to do that to start typing. Is there a way using VBA to select the cell and have the cursor positioned at the end of the existing text ready to add more text.

Code:
If Not Intersect(Target, Sh.Range("D4:D5000")) Is Nothing Then 
          
            tttt = Format(Date, "ddmmyy")
            Sheets("Clipsal Customer").Range("A" & ActiveCell.Row) = "RMA" & tttt & "CC-"
            Sheets("Clipsal Customer").Range("B" & ActiveCell.Row) = Date
            Sheets("Clipsal Customer").Range("C" & ActiveCell.Row) = "Received for Repair"
            
            Sheets("Clipsal Customer").Range("A" & ActiveCell.Row).Select
' Code to place here to enter cell and start typing
  End If
Reply With Quote