Sep 04 2019 03:26 PM
Sep 05 2019 04:57 AM
Sep 05 2019 01:27 PM
Sep 05 2019 01:56 PM
Sep 05 2019 03:52 PM
Sep 06 2019 01:57 AM
You can set the ListFillRange utilizing an event called GotFocus so that it doesn't set the ListFillRange each time you type in the ComboBox.
Private Sub ComboBox1_GotFocus()
ComboBox1.ListFillRange = "DropDownListv1"
End Sub
Sep 06 2019 01:32 PM
Sep 06 2019 02:23 PM
Are you having any other events like KeyPress or KeyDown etc?
If I insert a dummy ComboBox and have the Change and GotFocus events, I can use my up and down arrow keys to scroll up and down.
Why not upload the file in question after removing the sensitive data if any?
Sep 10 2019 10:07 AM
Sep 10 2019 10:40 AM
That code is the culprit.
Basically with that code, you are asking the code to check, if UP arrow key (KeyCode-38) or Down arrow key (KeyCode-40) is pressed, don't do anything and disable those keys when you say KeyCode = 0 in the Else clause.
What's the need of that code? Why are you having same code with multiple events?
Delete this KeyDown event code and your ComboBox will start working.
Sep 10 2019 10:50 AM
Sep 10 2019 10:56 AM
I am not sure what exactly you are trying to do.
All I can suggest is, disable all the codes for ComboBox1 and have only one code which should be as below to set the ListFillRange once the ComboBox gets focus.
Private Sub ComboBox1_GotFocus() ComboBox1.ListFillRange = "DropDownListv1" End Sub
And then see if your ComboBox starts behaving normal and then think of adding other codes for ComboBox events if required.
Sep 10 2019 11:30 AM
Sep 10 2019 11:46 AM
Now place this code...
Private Sub ComboBox1_Change()
Me.ComboBox1.DropDown
End Sub
And use UP and Down arrow keys to scroll up and down and hit Enter to select an item.
Jul 11 2022 05:54 AM