How to make SendKeys "{TAB}" wok correctly

[crobando]

Hello all,

This is what I want to do:

There is a webpage that we use all the time, it is internal. Inside that webpage you have a list of items with check boxes, everytime you work a ticket you have to choose just one of those items. For some reason the programmers setup this list in such way that, by default, all items are checked, so we have to go one by one unchecking all items and just leave the one we want. I know they will take a WHILE to fix that so I created a macro to uncheck all boxes.

The problem with this macro is that it requires a lot of "tabs" so it goes crazy if I don't slow it down...

Here is the code:

Public Sub Remove_checks()

Dim ie As Object
Set ie = CreateObject("internetexplorer.application")

ie.Visible = True

ie.navigate Range("B4").Value

Application.Wait (Now + TimeValue("0:00:5"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
SendKeys "( )", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
SendKeys "( )", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
SendKeys "( )", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
SendKeys "( )", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
SendKeys "( )", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
SendKeys "( )", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
SendKeys "( )", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
SendKeys "( )", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}", True
SendKeys "( )", True



End Sub

[crobando]

I had put one second in between each "tab", otherwise it will go anywhere in the page.

Thanks in advance for your help.

[Norie]

This could be done without the notoriously flaky SendKeys.

What exactly is it you have on the page?

Is it separate checkboxes? A list of items with a checkbox next to each?

[crobando]

Correct, A list of items with a checkbox next to each. The are all checked and I want to uncheck them.

[crobando]

Doe anyone have any idea?

[crobando]

Looks like there is no way to fix it... I'll close the thready tomorrow... Thanks anyways

[Norie]

Sorry, I meant to get back to you but been having some laptop woes.

Anyway, what I was going to say is that it is probably possible to do this without SendKeys but
I think we would need to see a URL or some source code.

The URL would be best.

[jeffreybrown]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here