Solved: USEFORM COMBO BOX VALUE USING IF

[jammer6_9]

[VBA]
Private Sub UserForm_Initialize()
cmbCountry.AddItem "UNITED ARAB EMIRATES"
cmbCountry.AddItem "KINGDOM OF SAUDI ARABIA"

If cmbCountry.Value = "KINGDOM OF SAUDI ARABIA" Then
cmbRestaurant.AddItem "OLAYA"
cmbRestaurant.AddItem "DAREEN"
cmbRestaurant.AddItem "GERNATA"
End If

If cmbCountry.Value = "UNITED ARAB EMIRATES" Then
cmbRestaurant.AddItem "JUMEIRA"
cmbRestaurant.AddItem "CITY CENTER"
End If

End Sub
[/VBA]
Help ... When I click "cmbcountry",,, cmbrestaurant is null...

Edited 11-Apr-07 by geekgirlau. Reason: insert vba tags

[Bob Phillips]

[vba]

Private Sub cmbCountry_Change()

With Me
If .cmbCountry.Value = "KINGDOM OF SAUDI ARABIA" Then
With cmbRestaurant
.Clear
.AddItem "OLAYA"
.AddItem "DAREEN"
.AddItem "GERNATA"
End With
End If
End With

With Me
If .cmbCountry.Value = "UNITED ARAB EMIRATES" Then
With cmbRestaurant
.Clear
.AddItem "JUMEIRA"
.AddItem "CITY CENTER"
End With
End If
End With
End Sub

Private Sub UserForm_Initialize()
With Me
With cmbCountry
.AddItem "UNITED ARAB EMIRATES"
.AddItem "KINGDOM OF SAUDI ARABIA"
End With
End With

End Sub
[/vba]

[jammer6_9]

tnxxx... I'll be keep on coming back on this forum knockin for help...

[geekgirlau]

Hi Jammer,

Just a quick note - when you're posting code, select the code text and click on the "VBA" button. This formats your code as you see above, making it easier to read. I've edited your original post to do this for you.

Cheers!