clear textboxes based on selected two ComboBoxes together on userform

[MKLAQ]

Hello
I use theses codes

Private Sub UserForm_Initialize()

  If ComboBox1.Value = and <> "" ComboBox2.Value <> "" Then
TextBox1.Value = ""
  TextBox2.Value = ""
  TextBox3.Value = ""
  end if 
End Sub

and

Private Sub ComboBox1_Change()
 If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
 TextBox1.Value = ""
  TextBox2.Value = ""
  TextBox3.Value = ""
 
  End If
 
End Sub

Private Sub ComboBox2_Change()
 If ComboBox2.Value <> "" And ComboBox1.Value <> "" Then
 TextBox1.Value = ""
  TextBox2.Value = ""
  TextBox3.Value = ""
 
  End If
 
End Sub

but doesn't work for me
my goal if I select items from two comboboxes should clear textboxes . if I select another item from combobox1 and the combobox2 is already selected item (not empty) then should clear all of textboxes ,if I select another item from combobox2 and the combobox1 is already selected item (not empty) then should clear all of textboxes .
any better way to do that
thanks in advance.

 

[jkpieterse]

I expect that you need to change all those If statements to something like this:

If ComboBox1.ListIndex > -1 Or ComboBox2.ListIndex > -1 Then

 

[MKLAQ]

thanks
the same result as in original code .

 

[jkpieterse]

With this code:

Private Sub UserForm_Initialize()
    TextBox1.Value = "1"
    TextBox2.Value = "2"
    TextBox3.Value = "3"
    ComboBox1.List = Array(1, 2, 3)
    ComboBox2.List = Array(1, 2, 3)
End Sub


Private Sub ComboBox1_Change()
    If ComboBox1.Value <> "" Or ComboBox2.Value <> "" Then
        TextBox1.Value = ""
        TextBox2.Value = ""
        TextBox3.Value = ""

    End If

End Sub

Private Sub ComboBox2_Change()
    If ComboBox2.Value <> "" Or ComboBox1.Value <> "" Then
        TextBox1.Value = ""
        TextBox2.Value = ""
        TextBox3.Value = ""

    End If

End Sub

as soon as I change either combobox1 or 2, the textboxes are cleared.

 

[MKLAQ]

well
it gives denied permission error in this line

ComboBox2.List = Array(1, 2, 3)

 

[jkpieterse]

Odd, works just fine for me. Alternatively, use this to fill the boxes:

With ComboBox1
.AddItem "1"
.AddItem "2"
.AddItem "3"
End With

 

[MKLAQ]

so should I do like this

 With ComboBox1
.AddItem "1"
.AddItem "2"
.AddItem "3"
End With
With ComboBox2
.AddItem "1"
.AddItem "2"
.AddItem "3"
End With

still the error shows, sorry!

 

[My Aswer Is This]

well
it gives denied permission error in this line

ComboBox2.List = Array(1, 2, 3)

This works for me.
I have been Watching this post.

 

[My Aswer Is This]

I would suggest not using this in your userform Initialize.
Put the script in a Button on your Useform till you get it working then put the script in your Initialize code.

What else is in your Initialize code?

 

[MKLAQ]

now I understood why the error because in my project will there is items in resource from windows properties
so I can't use LIST properties for combobox I have to fill the items in comboboxes manually with this way. it's not practical totally

This works for me.

so you say from the first time will clear, but what if select another item from combobox1 and the combobox2 is already filled ? does work too?