combobox2.dropdown problemi

[gurkaneral80]

arkadaşlar ekte gönderdiğim deneme dosyasında userformda 2 combobox var. combobox1 listesinden bir item seçtiğim (mouse ile clickleyerek) zaman combobox2'nin otomatik olarak açılmasını istiyorum. acil yardımlarınızı bekliyorum.

 

[gurkaneral80]

arkadaşlar bir combobox'taki değeri tıkladığımızda öteki combobox'ı otomatik olarak listeleyecek bir yöntem yokmudur? lütfen üstadlar macro bu basit olayı gerçekleştirmekten aciz olamaz.

 

[Korhan Ayhan]

Merhaba,

Forumda arama yapsaydınız birçok örneğe ulaşabilirdiniz.

Aşağıdaki kodları formunuzun kod bölümüne uygulayınız.

Private Sub ComboBox1_Change()
    Application.SendKeys "~", True
End Sub
 
Private Sub ComboBox2_Enter()
    ComboBox2.DropDown
End Sub
 
Private Sub ComboBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ComboBox2.DropDown
End Sub
 
Private Sub UserForm_Initialize()
    ComboBox1.AddItem "1"
    ComboBox1.AddItem "2"
    ComboBox1.AddItem "3"
    ComboBox2.AddItem "A"
    ComboBox2.AddItem "B"
    ComboBox2.AddItem "C"
End Sub