Prev: Startup files open while login.
Next: Macro to delete entire row
From: thread on 12 May 2010 04:57
hi all
i'm trying to use SendKeys to simulate rutine action.
i'm doing the actions on web based system but from some reason after
using the enter in the sendkeys the rest of the actions are not
working
this is the code
Dim i, J As Long
Range("A1").Select
While Selection.Font.ColorIndex = 4
Selection.Offset(1, 0).Select
Wend
Selection.Font.ColorIndex = 4
i = Selection.Cells
SendKeys "%{TAB}", True
SendKeys "{DEL}", True
SendKeys i, True
SendKeys "{ENTER}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True

thank you for any advice
From: Gary''s Student on 12 May 2010 07:00
Try inserting a DoEvents command immediately after the

SendKeys "{ENTER}", True
--
Gary''s Student - gsnu201002


"thread" wrote:

> hi all
> i'm trying to use SendKeys to simulate rutine action.
> i'm doing the actions on web based system but from some reason after
> using the enter in the sendkeys the rest of the actions are not
> working
> this is the code
> Dim i, J As Long
> Range("A1").Select
> While Selection.Font.ColorIndex = 4
> Selection.Offset(1, 0).Select
> Wend
> Selection.Font.ColorIndex = 4
> i = Selection.Cells
> SendKeys "%{TAB}", True
> SendKeys "{DEL}", True
> SendKeys i, True
> SendKeys "{ENTER}", True
> SendKeys "{TAB}", True
> SendKeys "{TAB}", True
> SendKeys "{TAB}", True
> SendKeys "{TAB}", True
> SendKeys "{TAB}", True
>
> thank you for any advice
> .
>
 | 
Pages: 1
Prev: Startup files open while login.
Next: Macro to delete entire row