Thread: combobox
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
papou[_9_] papou[_9_] is offline
external usenet poster
 
Posts: 52
Default combobox

Hello Mark
Not too sure I understand!
If you wish to have an additionnal element in your combo and your source
range when user types a non-matching value then you could do something like
this (please amend accordingly and note that I am referencing the sheet's
codename and items are added with the combobox.Additem method in the
Userform_Initialize event):
Private Sub ComboBox1_AfterUpdate()
If Not ComboBox1.MatchFound Then
If MsgBox("Add new item " & ComboBox1.Value, vbYesNo + vbQuestion, _
"Not in list") = vbYes Then
ComboBox1.AddItem ComboBox1.Value
Feuil1.Range("A65536").End(xlUp)(2).Value = ComboBox1.Value
End If
End If
End Sub

HTH
Cordially
Pascal

"Mark" a écrit dans le message de
...
I am using Excel 97, I have an array in vba for the
dropdown.

If a user types something in the combobox which isn't in
the array, is there a way to check the array and if it
isn't listed to continue and change the entry of another
cell say?

Can someone help please?


Mark