VBA: How to highlight/select all text in a Combo Box?

[richardcarter]

I've developed a nice little macro that serves as a "search and go to" box. Its an ActiveX ComboBox which makes it easier to find and select products by their product code.

It works absolutely great.. except one thing (which is really frustrating me!). After I have completed a search, I would like to be able to highlight/select all the characters in the box. By doing that, I just need to type in the next product code to do another search. As it stands, after each search, a few characters at the end remain highlighted in the box which means I have the fiddly task of having to grab the cursor and select and highlght the code manually.. which is very fiddly.

So far, Ive tried various combinations of CodeSearch.SetFocus, CodeSearch.Activate and a host of others.. but nothing works.. Any ideas?

Private Sub CodeSearch_Change()

Res = CodeSearch.value
Set rng = Worksheets("Products").Range("ProductID")
With rng
Set MyChoice = .Find(What:=Res)
If Not MyChoice Is Nothing Then
Application.Goto MyChoice
ActiveWindow.ScrollRow = ActiveCell.Row

Else: GoTo ExitMyChoice
End If
End With
Exit Sub
ExitMyChoice:
MsgBox "Could Not Find " & Res
End Sub

 

[mhillmann]

Try this in the same module:

Private Sub ComboBox1_GotFocus()
ComboBox1 = ""
End Sub

 

[richardcarter]

Thanks for your reply.... the problem with using ---ComboBox1 = ""---- is that it automatically triggers the macro to find and go to a blank cell.

 

[Lucasaran]

I know this is an old thread, but I encountered a similar problem and I figured I should post the partial solution I found just in case someone stumbles across this.

Private Sub CodeSearch_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)


With CodeSearch
    .SelStart = 0
    .SelLength = Len(.Text)
End With


End Sub

This will highlight all the text in the ComboBox when you click it (which is a little less 'fiddly').

 

[RaShoe]

Can confirm post #4 works, in Access VBA!