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