Combobox sorunu

Katılım
9 Temmuz 2007
Mesajlar
8
Excel Vers. ve Dili
türkçe
Merhaba
sayfa1 deki butona tıklayınca sayfa2 ye combobox lar eklemem gerekiyor
bunu yapabiliyorum.
ama!!
sayfa2 deki combobox lara additem ile hiçbişey atayamıyorum.
for döngüsü denesem sayacımı comboların adına ekleyemiyorum.
döngü olmadan mı yapmalıyım??. burda 5-10 tane değil belki 20-30 tane ekleyecek kullanıcı.
nasıl olur sizce:???:
 
Son düzenleme:

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
Additem özelliği, OLEObjects özellikleri içinde, bildiğim kadarıyla yer almıyor. Burada ListFillRange özelliğini kullanabilirsiniz. Ben, Combobox içine yüklemek istediğiniz bilgileri "Sayfa2!g1:g2" de olduğunu varsaydım. Siz kendinize göre uyarlayabilirsiniz.

Kod:
Private Sub CommandButton3_Click()
i = Range("g2").Value
Sheets("Sayfa2").Select
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=i, Top:=15, Width:=60, Height:=18 _
        ).Select
 Sheets("Sayfa1").Select
Range("g2").Value = i + 100

For i = 1 To Sheets(2).OLEObjects.Count
With Sheets(2).OLEObjects("combobox" & i)
.ListFillRange = "Sayfa2!g1:g2"
End With
Next
End Sub
 
Katılım
9 Temmuz 2007
Mesajlar
8
Excel Vers. ve Dili
türkçe
işe yaradı

HAMİTCAN
çok güzel oldu hem de.
bu sorun yüzünden aklıma binbir çözüm yolu gelmişti de bu gelmedi.
tebrik ederim seni.
çok teşekkür ediyorum yardımın için.
sevgi ve saygılarımla........:hihoho:
 
Üst