Hi,

I have the following piece of code for two comboboxes in a userform;

If Not IsEmpty(zoekwg.Value) Then
'This Combobox was selected
klantkeuze = zoekwg.Value
Set klantmatrix =
Worksheets("datadga").Range("B2:b500").Find(klantk euze)
ElseIf Not IsEmpty(zoekdga.Value) Then
'Combobox2 was selected
klantkeuze = zoekdga.Value
Set klantmatrix =
Worksheets("datadga").Range("B2:b500").Find(klantk euze)
End If

If box1 is empty then it should look if there is something in box2
However, allthough I put nothing in box1, it still sees it as NOT empty !

The code for filling the boxes is;

zoekdga.RowSource = "B2:B1000"
zoekwg.RowSource = "B1:FX1000"

I would like to have the first piece of code check if the user has input
something in box1. If the user didn't it should do the same in box2.

Any suggestions?
Thanks,
Pierre

Try

If zoekwg.Value < "" Then

"Pierre" wrote:

Hi,

I have the following piece of code for two comboboxes in a userform;

If Not IsEmpty(zoekwg.Value) Then
'This Combobox was selected
klantkeuze = zoekwg.Value
Set klantmatrix =
Worksheets("datadga").Range("B2:b500").Find(klantk euze)
ElseIf Not IsEmpty(zoekdga.Value) Then
'Combobox2 was selected
klantkeuze = zoekdga.Value
Set klantmatrix =
Worksheets("datadga").Range("B2:b500").Find(klantk euze)
End If

If box1 is empty then it should look if there is something in box2
However, allthough I put nothing in box1, it still sees it as NOT empty !

The code for filling the boxes is;

zoekdga.RowSource = "B2:B1000"
zoekwg.RowSource = "B1:FX1000"

I would like to have the first piece of code check if the user has input
something in box1. If the user didn't it should do the same in box2.

Any suggestions?
Thanks,
Pierre

Hi Joel,

djee....that was simple.
Sorry for making it so troublesome.
Thanks for your help,
Pierre

"Joel" schreef in bericht
...
Try

If zoekwg.Value < "" Then

"Pierre" wrote:

Hi,

I have the following piece of code for two comboboxes in a userform;

If Not IsEmpty(zoekwg.Value) Then
'This Combobox was selected
klantkeuze = zoekwg.Value
Set klantmatrix =
Worksheets("datadga").Range("B2:b500").Find(klantk euze)
ElseIf Not IsEmpty(zoekdga.Value) Then
'Combobox2 was selected
klantkeuze = zoekdga.Value
Set klantmatrix =
Worksheets("datadga").Range("B2:b500").Find(klantk euze)
End If

If box1 is empty then it should look if there is something in box2
However, allthough I put nothing in box1, it still sees it as NOT empty !

The code for filling the boxes is;

zoekdga.RowSource = "B2:B1000"
zoekwg.RowSource = "B1:FX1000"

I would like to have the first piece of code check if the user has input
something in box1. If the user didn't it should do the same in box2.

Any suggestions?
Thanks,
Pierre