Döngü ile Nasıl yaparız?

[casteneda]

Elimde Combobox'ın açıldığında Tablodaki veri sayısı kadar gözükmesini sağlayan aşağıdaki formül var. bunu 15 adet Combobox için Dögü ile nasıl yazabiliriz. Cevap verecek arkadaşlara şimdiden çok teşekkürler.

"Private Sub Worksheet_Activate()
ComboBox1.ColumnCount = 8
son = [sayfa1!b65536].End(3).Row
ComboBox1.ListFillRange = "sayfa1!b2:b" & son + 1"

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Private Sub UserForm_Initialize()
For a = 1 To 3
Controls("ComboBox" & a).RowSource = "sayfa1!A1:A" & Sayfa1.[A65000].End(3).Row
Next a
End Sub

 

[casteneda]

Sn. Seyit Bey öncelikle soruma ilgi gösterdiğiniz için çok teşekkürler. Maalesef "Sub or Function not defined" hatası veriyor.

 

[Seyit Tiken]

Sayfa1'in A sütununda veri olması gerek. Artı, 3 Comboya göre yaptım. Yukarıdaki kodta ..to 3 kısmını Combo sayısına göre değiştiriniz. Kodları deneyerek gönderiyoruz.

 

[casteneda]

Sn. Seyit bey sizin gösterdiğiniz kod mutlaka doğrudur ve çalışıyordur. Ancak maalesef bende bu hatayı veriyor. Acaba bu hatayı verme sebebi, sizdeki kodun user form aktif olunca çalışması olabilirmi. Bende Comboboxlar Sayfa2 de ve verilerim Sayfa3'teki b sutununda, dolayısı ile kodu kendime göre şu şekilde düzenledim.
"Private Sub Worksheet_Activate()
For a = 1 To 21
Controls("ComboBox" & a).ColumnCount = 8
son = [sayfa3!b65536].End(3).Row
Controls("ComboBox" & a).ListFillRange = "sayfa3!b2:b" & son + 1
Next a
End Sub"

Saygılarımla tekrar teşekkürler.

 

[Seyit Tiken]

Ekli dosyayı inceleyerek, uyarlayınız kendinize.

 

[casteneda]

Benim Comboboxlarım user form üzerinde değil sayfa üzerinde olduğu için, Controls özelliği ile maalesef sonuç alamıyorum çünkü çalışmada user form yok. Sayfa üzerinde bulunan Comboboxlarda döngü nasıl kullanılır. Forumda çok aradım ancak bulamadım. İlgilenen arkadaşlara çok teşekkürler.

 

[casteneda]

Sorumu daha iyi anlatabilmek için ir örnek ekledim. İlgilenecek arkadaşlara teşekkürler

 

[emrexcel123]

activate

bence ilk önce birini tanımlayıp diğerlerini kopyala yapıştır yaparsan özellikler geçecektir...
(biraz önceki kod çalışmadı kusura bakmayın)...

 

[Seyit Tiken]

Bu şekilde bir deneyiniz. Döngü ile bende yapamadım.

Private Sub Worksheet_Activate()
ComboBox1.ListFillRange = "A1:A" & Application.CountA([A1:A65000])
ComboBox2.ListFillRange = "A1:A" & Application.CountA([A1:A65000])
ComboBox3.ListFillRange = "A1:A" & Application.CountA([A1:A65000])
End Sub

 

[casteneda]

Arkadaşlar sayfa üzerinde anladığım kadarı ile Combolarda değişken kullanarak döngü oluşturamıyoruz. Yinede bir çözüm bulan arkadaşımız olursa ve burada bunu gösterirse, yeni bir şey daha öğreneceğiz. Sn. Seyit Tiken ve ilgilenen tüm arkadaşlara çok teşekkürler.

 

[casteneda]

Arkadaşlar biraz uğraştım ancak sonunda çözümü buldum. Sayfadaki Combolardaki döngü ile ilgili çözüm ektedir. Saygılarımla.