Hi again

Now i'm using

With mycmd
.MatchEntry = fmMatchEntryComplete
.MatchRequired = True
...
...
End With

but the MatchRequired dos'ent work with my combos added during runtime.
I've triede with a combobox added manually and it works.

Claus


"Patrick Molloy" skrev i en
meddelelse ...
in teh code below, I removed your lines to make the additions a bit
clearer...I hope!

Dim mycmd As ComboBox

Set mycmd = _
UserForm2.Controls.Add("Forms.combobox.1", KontrolNavn, True)
With mycmd

.MatchEntry = fmMatchEntryComplete
End With


"Claus" wrote:

Hi,

I hope one of you Gurus can help me on this one.

How can i set MatchEntry for this combobox ?

KontrolNavn = "Kontrol" & X + 1
Set mycmd = UserForm2.Controls.Add("Forms.combobox.1",
KontrolNavn,
True)
With mycmd
.Left = 170
.Top = 5 + X * 20
.Width = 100
.RowSource = Cells(Target.Row + X + 1, 4).Value
.Value = Cells(Target.Row + X + 1, Target.Column).Value
End With


Regards

Claus