Sayfa üzerindeki combobox'a sabit veri listelemek

[EKREM1661]

Saygıdeğer Arkadaşlar..!

Sayfa üzerine yerleştirilen combobox kutusuna, örneğin,
AA
BB
CC
DD
ibareleri,

1-Combobox kutusunda listelenecek. Fakat bu listeyi sayfadan almıyacak, kodun içerisinde belirtilecek.

2-Listeden seçim yaptığım ibare "G7" hücresine yazılacak..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları denermisiniz. ComboBox nesnesine çift tıklarsanız liste yenilenir.

Private Sub ComboBox1_Change()
    Range("G7") = Me.ComboBox1
End Sub
 
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Me.ComboBox1.Clear
    ComboBox1.AddItem "AA"
    ComboBox1.AddItem "BB"
    ComboBox1.AddItem "CC"
    ComboBox1.AddItem "DD"
End Sub

 

[EKREM1661]

Değerli hocamız Korhan Bey'e teşekkür ediyorum..İstediğim gibi olmuş..Hayırlı çalışmalar diliyorum. Sadece bilgi için şunu sorsam, tek tıklama ile kullanmayı istesek nasıl olur.(kendi denemem hata verdi)