Excel sayfamdaki Combobox'a Veri Ekleme

[ottoman71]

Merhaba Arkadaşlar,

Excel sayfamdaki combobox'a veri ekleyemiyorum. Bunu makro ile nasıl yapabilirim.
Yardımcı olurmusunuz.

İyi çalışmalar.

 

[Orion1]

Dosyanız ektedir.

Sub auto_open()
Sheets("Sheet1").ComboBox1.ListFillRange = "Sheet1!A2:A" & _
Sheets("sheet1").Cells(65536, "A").End(xlUp).Row
If Sheets("Sheet1").ComboBox1.ListCount > 0 Then _
Sheets("Sheet1").ComboBox1.ListIndex = 0
End Sub

 

[ottoman71]

Evren Hocam,
Eline sağlık teşekkur ederim.

Yalnız benim anlatmak istediğim aşağıdaki bir örnekte olduğu gibi olacak. Excel sayfası açıldığında isimler combobox'a gelecek. Userform kullanılmayacak.
Workbook_initialize gibi bir olay olacak.


Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Kubilay"
.AddItem "Aşkın"
.AddItem "Karabulut"
End With
End Sub

 

[Orion1]

Dosyanız ektedir.

Sub auto_open()
Dim isimler()
isimler = Array("Kubilay", "Aşkın", "Karabulut")
Sheets("Sheet1").ComboBox1.List = Application.Transpose(isimler)
Sheets("Sheet1").ComboBox1.ListIndex = 0
End Sub

 

[ottoman71]

Teşekkur ederim. Ellerinize sağlık.

 

[Orion1]

Teşekkur ederim. Ellerinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[Gorarr]

ottoman71 arkadaşım teşekkür ederim yazdığınız kodlar çok işime yaradı.

 

[ottoman71]

ottoman71 arkadaşım teşekkür ederim yazdığınız kodlar çok işime yaradı.

Rica ederim. İşinize yaramasına sevindim.

 

[seydag.]

Merhabalar ,
Benim excel tablomda add butonumla ihtiyacım kadar satır arttırma özelliğim mevcut.
Ben her satırın ilk hücresine comboboxu nasıl ekleyebilirim?
yani yeni satır eklense de combo otomatikmen ilk hücrede bana seçenekleri göstermeli..
Yardımcı olabilirseniz çok sevinirim.
Teşekkürler,iyi çalışmalar ...