When typing into Active X ComboBox - What is typed doesn't display right away (very slow)

[nej12]

Good day all. Hoping there's a good samaritan out there that can help me for a minute. The reason I joined this forum today was to research whether anyone else was having delayed responses when using active x comboboxes in 2013.

What I have is very basic, the combobox is linked to a dynamic named range (using offset formula), with about 20 items only.
User can type extra data into the selected item.
The code behind it is just a keydown to prevent arrow keys from flipping the users data by accident and a gotfocus to populate the listfillrange and dropdown, so user doesn't have to click the drop down arrow..
The combobox is linked to a cell in a separate sheet.

The unresponsive aspect is, all of sudden, when user types into combobox, you can't see what you're typing until user exits the combobox.
It's so annoying it makes me want to bang my head.
Also, it feels like the cursor hides as you type, which I hate. The mouse control isn't set to hide while typing for sure.

Also, my file is being slow and unresponsive too it is about 1,000 KB. I recently got rid of a sheet that really wasn't needed which trimmed the size down to 700 kb, but still didn't do any good.

Any thoughts?
It would be appreciated.

*revised:
I thought it was due to file size which is about 1,000 KB. I recently got rid of a sheet that really wasn't needed which trimmed the size down to 700 kb, but still didn't do any good.


*In addition, all comboboxes are doing this I have less than 20.

 

[Akuini]

Can you upload your sample workbook (without classified data) somewhere (maybe to dropbox.com or google drive) then post the link here?

 

[Michael M]

Also, close ALL other applications and see if that helps.
Have you tried the workbook on another computer....to see if it is slow there as well.
Do you also have macros running on the workbook
Sometimes stuff running in the background will slow your PC.

 

[nej12]

To Akuini and Michael M.:

 comboboxes are on sheet1:


Private Sub ComboBox7_GotFocus()
ComboBox7.ListFillRange = "namedRange"
Me.ComboBox7.DropDown 
End Sub


Private Sub ComboBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'Disable Up-arrow key - causing problems in ComboBox selections
      If KeyCode = vbKeyUp Then KeyCode = vbNull
      If KeyCode = vbKeyDown Then KeyCode = vbNull
End Sub




Private Sub ComboBox6_Change()
'purposely empty
End Sub


For the combobox properties changes made were to these areas  only:
linkedcell  sheet2!a1
listfillrange  namedRange
locked: false




I have only one save button, which is clicked when they're done entering data: 
Private Sub CommandButton4_Click() 'clear 
Sheets("New").Select
Application.Goto reference:="R1C1"
'Rows("1:1").Select
Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Sheet2").Select
Application.Goto reference:="R2C10"
Selection.Copy
Sheets("New").Select
Application.Goto reference:="R1C1"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end sub


Private Sub CommandButton5_Click() 'clear data
ThisWorkbook.Sheets("sheet2").Range("b1").ClearContents
me.combobox1.value = ""
end sub

No coding is behind Thisworkbook, modules, sheet2 and sheet3. Named Ranges reside on sheet2.
I also protect/hide sheet2, only needed cells are unlocked, and also protect the workbook, and the vba project.
I have one other computer, it does it on that too. +Other computer sometimes after clearing data "stays" but when clicking on it once, data clears.
I closed all other programs, rebooted and opened just that file, still the same.




One other thing that I am seeing is the VBA top/title bar flickering in design mode, it's a very rapid flicker.


Thank you.

 

[Michael M]

I'd avoid using Goto wherever possible, but I don't think it's relevent to your question
I'm guessing there is more code involved than we see here....Unlocking / hiding, etc
Try shortening your code and see if that helps.....avoid Select ? activate when ever possible

Private Sub CommandButton4_Click() 'clear
Sheets("New").Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Sheet2").Range("J2").Copy
With Sheets("New").Range("A1")
.PasteSpecial Paste:=xlPasteValues
End With
End Sub

 

[nej12]

Thank you, I will give this a try.

And, where I have CommandButton4_Click, is actually where new data is 'saved' (I was hand typing some of this so it may seem off). But, mainly everything above is a representation of the multiple combo boxes all doing the same thing.