VBA equivalent to "Return/Enter" Key

  • Thread starter Thread starter JMay
  • Start date Start date
J

JMay

I've got code that is working up to a point **and stops** -- the screen
(bottom left shows I'm in Edit Mode) - and the cursor is "inside" a cell --
all that I have to do is manually press enter and it completes. soooooo
obviously I'd like to incorporate this "last-step" in the code. Can someone
tell me what I should add to the code to have it complete the update.
TIA,
 
If I understand you correctly, you are editing a cell but want VBA to then
hit enter. I don't think it can be done. Once you go into edit mode, Excel
has full control, and VBA will not resume operation until editing is
complete.

Is there a particular need to do whatever you are trying to do in this
fashion, or could you look at an alternative technique?

Robin Hammond
www.enhanceddatasystems.com
Check out our XspandXL add-in
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If ActiveCell.Font.Strikethrough = True Then
ActiveCell.Font.Strikethrough = False
Else
ActiveCell.Font.Strikethrough = True
End If
SendKeys {Enter} <<< This won't take ???
End Sub

Can you help?
TIA
 
SendKeys "{Enter}",true
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If ActiveCell.Font.Strikethrough = True Then
ActiveCell.Font.Strikethrough = False
Else
ActiveCell.Font.Strikethrough = True
End If
SendKeys {Enter} <<< This won't take ???
End Sub

Can you help?
TIA
Click to expand...
 
The way I read it is that when you double-click the cell, the event is
triggered so the macro is run, and then Excel puts you in edit mode. Cancel
= True takes care of the edit mode problem.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Range, Cancel As Boolean)
With Target(1, 1)
.Font.Strikethrough = Not .Font.Strikethrough
End With
Cancel = True
End Sub
 
Thanks to all; I also ended up adding to a UDF SumNonStrukeThruAmts() the
line:

Application.volatile

Which makes my full procedure work great
Tks,
 
Back
Top