diğer sayfalardan sırası ile veri getirme

[ahmetozbey]

çalışmam ekdedir. yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:944e2d163c]Sub getir()
For a = 1 To Sheets.Count
Cells(a + 9, "c") = Sheets(a).[g5]
Next
End Sub
[/vb:1:944e2d163c]

 

[ahmetozbey]

çok teşekkür ederim.leventm

 

[Nox]

merhaba,

vba uzerindeki combobox'a sayfa 1 den belli hucreler arasindaki bilgileri cagirmak istiyorum...

combobox1.additem Sheets(1).[A1]

yaptigimda tek bilgi geliyor ama a1 den a100 hucresine kadar olan bilgileri almak istiyom...


for i=1 to 100

combobox1.additem Sheets(1).[A(i)]

next

boyle yaptim, hata veriyor....


yardimci olursaniz cok sevinirim,$imdiden cok te$ekkur ederim....

 

[Nox]

istedigimi cozdum, yardimci olur belki payla$mak istedim...

For i = 1 To 10
ComboBox2.AddItem Sheets(1).Cells(i, 1)
Next

ba$ka bir alternatif daha

ComboBox1.RowSource = "sayfa1!A1:A10"