Yatay verileri, combobox'da düşey listelemek

[EKREM1661]

Değerli Arkadaşlar..!

Sayfa2 de; B2:AD2 aralığında 4'er sütun ara ile (atlayarak) yer alan veriler mevcut..
Bu verileri ComboBox1 de düşey olarak boşluksuz listelenmesi.. konusunda bir örneğe ihtiyacım var..

 

[halit3]

bu kodu usergrmun içine koyun

Private Sub UserForm_Initialize()
SAT = 2
For i = 2 To WorksheetFunction.CountA(Worksheets("Sayfa2").Range("B2:IV2"))+1
ComboBox1.AddItem Worksheets("Sayfa2").Cells(2, SAT).Value
SAT = SAT + 4
Next i
End Sub

 

[halit3]

Rang e yazan yerin arasındaki boşluğu alın Range olarak yazın

 

[EKREM1661]

Sayın halit3..! öncelikle teşekkür ediyorum.. verdiğiniz kodu yukarıdaki örneğe uyarladım(kayıtlı) ...
nedense hata verdi..

 

[halit3]

properties penceresinden ComboBox1.RowSource satırındaki kendiniz eklediğiniz bölümü silin çalışacaktır

 

[EKREM1661]

Halit bey..! çok teşekkür ediyorum, işim görüldü.. Birde, zahmet olmazsa, yukarıda userform üzerinde yapılan uygulamayı, sayfa üzerine konulmuş (denetim araç kutusundan alınan) combobox ile yapmak istersek nasıl bir değişiklik olur..

 

[halit3]

sayfaya giriş çıkış yaptığın zaman zaman aktif olacaktır

Private Sub Worksheet_Activate()
Worksheets("Sayfa1").ComboBox1.Clear
SAT = 2
For i = 2 To WorksheetFunction.CountA(Worksheets("Sayfa2").Range("B2:IV2")) + 1
Worksheets("Sayfa1").ComboBox1.AddItem Worksheets("Sayfa2").Cells(2, SAT).Value
SAT = SAT + 4
Next i
End Sub


yada bir komut düğmesi koy onunla çağır

Private Sub CommandButton1_Click()
Worksheets("Sayfa1").ComboBox1.Clear
SAT = 2
For i = 2 To WorksheetFunction.CountA(Worksheets("Sayfa2").Range("B2:IV2")) + 1
Worksheets("Sayfa1").ComboBox1.AddItem Worksheets("Sayfa2").Cells(2, SAT).Value
SAT = SAT + 4
Next i
End Sub

 

[EKREM1661]

tekrar teşekkürler Halit Bey..! makbule geçti..muvaffakiyetler dileğiyle, iyi çalışmalar..
Yakında; uzman kadroya dahil oluşunu kutlarız..