sendkeys string

[Guest]

I assigned a shortcut key to a macro using "ctrl" and a letter. The
following "sendkeys string:=" does not function as desired when using the
shortcut key. If I run the macro without the shortcut key, the macro runs
properly. Is there a remedy so that the macro may run using the shortcut
key? The macro line is as follows:

Sub lop()
For count = 1 To 3
SendKeys String:="={left}-4~{down}"
Next count
End Sub

 

[Guest]

Try instead:

Sub lop()
For count = 1 To 3
SendKeys String:="={left}-4~{down}"
DoEvents
Next count
End Sub


The DoEvents is nice if you want to send keystrokes to more than one cell.
It alows time for the cells to accept the keys within the loop

 

[Guest]

The macro in the response does not help for the following spreadsheet format.

12 active cell (macro is run from the active cell)
22
44

 

[Guest]

You don't need both the ~ and the down

In A1 thru A3 I enter:

12
22
44

I select B1 and run:

Sub lop()
For Count = 1 To 3
SendKeys String:="={left}-4~"
DoEvents
Next Count
End Sub

The macro enters the following formulas in B1 thru B3:

=A1-4
=A2-4
=A3-4


Is that want you want it to do??

 

[Guest]

Thanks for your assistance.

The results I received when I was positioned in cell B1, ran the macro by
holding down alt + f8, selecting the macro, and pressing enter is as follows
for column A and column B:

12 =A1-4
22
44

The results I receive when I ran the macro by using the shortcut key "ctrl +
t" is a single formula in cell A1 as follows. All other information was
erased.

=A1-4