Sayfa üzerine konan combobox’ta veri listeleme

[EKREM1661]

Saygı değer arkadaşlar..

Sayın leventm hocamdan aldığım aşağıdaki kodları visual basic ortamında (userform üzerindeki combobox nesnesinde) uygulayıp ve çalışmalarıma uyarlamıştım..

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 3
ComboBox1.ColumnWidths = "20;40;40"
son = [a65536].End(3).Row
ComboBox1.RowSource = "a2:c" & son
End Sub

Fakat öyle icap etti ki, bu kodları userform üzerindeki nesnelerde değil de;
excel sayfası üzerine konan combobox’ta (görünüm-araç çubukları-denetim araç kutusu) uygulayamadım..
Sahi..arkadaşlar..bunun farklı bir uygulama şekli mi var..

 

[Levent Menteşoğlu]

Uygulama şekli elbette farklıdır. Aşağıdaki kodu comboboxın bulunduğu sayfanın kod sayfasına kopyalayın. Kodun çalışması için önce bir başka sayfayı seçip tekrar geri gelin.

Private Sub Worksheet_Activate()
ComboBox1.ColumnCount = 3
ComboBox1.ColumnWidths = "20;40;40"
son = [a65536].End(3).Row
ComboBox1.ListFillRange = "a2:c" & son
End Sub

 

[EKREM1661]

sevgili leventm hocama teşekkür ediyorum..
daha çok şey öğrenmeye ihtiyacımız var..

Fakat şöyle bir sorun çıktı..
verileri farklı sayfadan aldığım için yukarıdaki kodun son satırını şu şekilde düzenledim..

ComboBox1.ListFillRange = "Sayfa2!a6:c" & son

bu defa veri olan satırların tamamı listelenmiyor..

 

[EKREM1661]

yoksa kodu yanlış mı düzenledim..

 

[Levent Menteşoğlu]

Aşağıdaki gibi son değişkenindede sayfa adını belirtmelisiniz aksi takdirde aktif sayfadaki değer son değişkenine atanacaktır.

[LEFT]Private Sub Worksheet_Activate()
ComboBox1.ColumnCount = 3
ComboBox1.ColumnWidths = "20;40;40"
son = [[B][COLOR=blue]sayfa2![/COLOR][/B]a65536].End(3).Row
ComboBox1.ListFillRange = "sayfa2!a2:c" & son
End Sub[/LEFT]

 

[EKREM1661]

gerçekten de öyle..
çok teşekkür ediyorum..sayın leventm hocam..hayırlı çalışmalar..