combo box

[exceldeneme]

merhaba
Macroları yeni kullanmaya başladım.Excel sheet üstüne combo box kullanmak istiyorum.Ama combo boxun içindeki secenekleri listeleyemedim.Bana yardımcı olursanız çok sevinirim.

 

[Orion1]

Merhaba.
A1:A10 Arlaığını listeler.
Aşağıdaki kodları boş bir modüle yapıştınız.
Makroyu çalıştırınız.
Dosya açılırken de makro otomatik olarak çalışacaktır.

Sub Auto_open()
Dim i As Byte
Sheets("Sayfa1").ComboBox1.Clear
For i = 1 To 10
    Sheets("Sayfa1").ComboBox1.AddItem Sheets("Sayfa1").Cells(i, "A").Value
Next
Sheets("Sayfa1").ComboBox1.ListIndex = 0
End Sub