Dear all,
I want to have an solution for next thing.
I have activeX control drop down box and when I used it and it give results there is no problem. but when a select or edit an other cell and enter then the drop down menu expands???
See below my code, hopefully somebody can help.
Private Sub ComboBox1_Change()
ComboBox1.DropDown
If Range("B5").Value <> "" Then
Range("B6").Value = Evaluate("=VLookup(B5,SEARCH, 7, 0)")
Else
On Error Resume Next
Range("B6").ClearContents
End If
End Sub
Greetings,
Steel010
I want to have an solution for next thing.
I have activeX control drop down box and when I used it and it give results there is no problem. but when a select or edit an other cell and enter then the drop down menu expands???
See below my code, hopefully somebody can help.
Private Sub ComboBox1_Change()
ComboBox1.DropDown
If Range("B5").Value <> "" Then
Range("B6").Value = Evaluate("=VLookup(B5,SEARCH, 7, 0)")
Else
On Error Resume Next
Range("B6").ClearContents
End If
End Sub
Greetings,
Steel010