Combobox sorunu

[cengizcetin82]

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:???:

 

[hamitcan]

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.

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

 

[cengizcetin82]

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: