comboboxa satırdan veri almak

[ynmcan]

Merhaba arkadaşlar.
Benim sorunum combobox a satırdaki hücrelerden liste oluşturamamak.Örneğin excel sayfasındaki comboboxa a1,k1 arasındaki hücrelerden açılır liste oluşturmak istiyorum.Bu işlemi sütundan yapabiliyorum ancak ben bu işlemi satırdaki hücrelerden yapmak istiyorum.
Necdet Yeşertener arkadaşımız bana aşağıdaki kodu yolladı.

Private Sub UserForm_Initialize()
Son = [A1].End(2).Column
For i = 1 To Son
    ComboBox1.AddItem Cells(1, i)
Next i
End Sub

Ancak benim comboboxum userform üzerinde değil, excel sayfasının üzerinde.Yolanan kodu uyarlamaya çalıştım ama beceremedim (Bu işlerde yeniyim) şimdiden teşekür ederim.

örnek dosyam ekte.

 

[Orion1]

Dosyayı 2003 formatında yollarsanız bakabilirim.

 

[ynmcan]

Şu anda 2003 excel formatım yok, örnek dosyada sayfa 1 üzerinde 1tane combobox, sayfa 2 de de C1 ve K1 hücrelerinde sayfa 1 deki combobox listesinde görülmesini istediğim veriler var.

 

[Orion1]

Farklı kaydetten 2003 biçimine(xls) kaydedebilirsiniz dosyayı.

 

[ynmcan]

tamam değiştirdim.

 

[Orion1]

Ben dosyayı açamadım.

 

[ynmcan]

şimdi deneyin

 

[Orion1]

Sıkıştırılmış dosyayyı açmada bir problem yok.
Excel dosyasını açamıyorum.
Açmak istediğimde bu dosya biçimi tanınmıyor diye mesaj veriyor.
Açıncada text yazılmış satırlar çıkıyor karşıma bir sürü ne yazıldığı belli olmayan.

 

[ynmcan]

Kusura bakmayın acil işim çıktığından dışarıya çıktım.yolladığınız son cevaba şimdi baktım.Şu anda yolladığım dosya büyük ihtimalle olmuştur. Daha önce söylediklerinizi yalnış anlamışsım.Sizide uğraştırdığım için özür dilerim.İlginiz için de teşekkürler.

 

[Orion1]

Dosyanız ekte.

Sub liste()
Dim hcr As Range
Sheets("Sayfa1").combobox1.Clear
For Each hcr In Sheets("Sayfa2").Range("C1:K1")
    Sheets("Sayfa1").ComboBox1.AddItem hcr.Value
Next
If Sheets("Sayfa1").ComboBox1.ListCount > 0 Then _
Sheets("Sayfa1").ComboBox1.ListIndex = 0
End Sub

 

[ynmcan]

Teşekkürler yolladığınız kod olmuş.Ellerinize sağlık.

 

[Orion1]

Teşekkürler yolladığınız kod olmuş.Ellerinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[barutkokusu]

dosya linkinde sorun var sanırım,

bu örnek dosyaya çok ihtiyacım var yenilerseniz çok sevinirim..