How can I send SendKeys command to KeyUp event?

[korhan]

Hello forum rats,
I have certain event that is linked to an ActiveX combo box.

Public Sub ComboBox2_KeyUp(ByVal keyCode As MSForms.ReturnInteger, ByVal shift As Integer)
    ' Check if the user is pressing up or down arrow key, if yes run the macro
    If keyCode = 38 Or keyCode = 40 Or keyCode = 13 Then
        Call ComboBox2_Click
    End If
End Sub

I would like to send down arrow key up or down event to this event handler every 10 seconds so that it increases the item index in the combobox and I can just sit back and watch 'till it reaches to the very last item in the combobox.

Is there a way to this?

 

[RickXL]

Hi,

You could try something like this:

Sub Timer()
    Static Index As Long
    ComboBox1.ListIndex = Index
    ComboBox1.DropDown
    Index = Index + 1
    Application.OnTime Now + TimeValue("00:00:01"), "Sheet1.Timer"
End Sub

The code needs to be pasted into the code module for Sheet1 and Sheet1 also need to contain ComboBox1.
Note: It just crashes when it gets to the end of the list.

Regards,

 

[korhan]

Rick,
I have tried a similar method and it works but I am just curious to see how I can actually send a sendkey value as an argument to the keyup function parameter.
I just cannot find the data type for ByVal keyCode As MSForms.ReturnInteger. This is definitely not an integer.
Thanks.