PDA

View Full Version : Solved: USEFORM COMBO BOX VALUE USING IF



jammer6_9
04-10-2007, 12:52 AM
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

Help :banghead:... When I click "cmbcountry",,, cmbrestaurant is null...

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

Bob Phillips
04-10-2007, 01:15 AM
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

jammer6_9
04-10-2007, 01:33 AM
:rotlaugh: tnxxx... I'll be keep on coming back on this forum knockin for help...

geekgirlau
04-10-2007, 10:53 PM
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!