C
Claus
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
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