Hücrelere veri aktarma

[mtozer]

TextBox ve ListBox verilerini hücrelere atmak istiyorum. Şu anda atıyor ama düzensiz bir sira ile atıyor.

Label2 - TextBox2 - Label22 - TextBox19 - Label23 - TextBox20 - Label19 - TextBox15 - Label17 - TextBox13 - Label18 - TextBox14 - Label20 - TextBox16 ListBox1 (1-2-3-4-5-6 sütun)
ListBox4 (1 - 6 sütun)
Label2 - TextBox2 - Label22 - TextBox19 - Label23 - TextBox20 - Label19 - TextBox15 - Label17 - TextBox13 - Label18 - TextBox14 - Label20 - TextBox16 ListBox1 (1-2-3-4-5-6 sütun)
ListBox4 (1 - 6 sütun)
Label2 - TextBox2 - Label22 - TextBox19 - Label23 - TextBox20 - Label19 - TextBox15 - Label17 - TextBox13 - Label18 - TextBox14 - Label20 - TextBox16 ListBox1 (1-2-3-4-5-6 sütun)
ListBox4 (1 - 6 sütun)
bu düzenle atmasını saglayabilirmiyiz. Label ve TextBox lar tek satırda altındaki satırlara da listbox içerikleri.

http://s6.dosya.tc/server8/saj0hg/fis2.rar.html

 

[mtozer]

Yardimci olabilecek kimse yok mu?

 

[mtozer]

şu kodlarla atıyor ama sıralamayı yine yakalayamadım. birde listeden seçmemi istiyor.

 

[mtozer]

çözüm yolunu buldum. Ancak nasıl yapacağımı bilmiyorum. Listbox ta normalde 6 sütun var 14 adet te textbox hücrelere atıyor. 6 sütunu atınca geri kalan textboxlar kayıyor. Bu yüzden Listbox ta sanki 14 sütun varmış gibi hücreleri doldurmamız gerekiyor. bunu yapabilirmiyiz. Yani 6 sütun dan sonra hücrelere boş karakter atacak bir komut (satır olarak)

Range("A65536").End(3)(2, 1) = .List(a, 0)
Range("B65536").End(3)(2, 1) = .List(a, 1)
Range("C65536").End(3)(2, 1) = .List(a, 2)
Range("D65536").End(3)(2, 1) = .List(a, 3)
Range("E65536").End(3)(2, 1) = .List(a, 4)
Range("F65536").End(3)(2, 1) = .List(a, 5)
Range("G65536").End(3)(2, 1) = .List(a, 6)
Range("H65536").End(3)(2, 1) =.List (........... bu satırlarla hücrelere gerekli veriler gidiyor. 6 dan sonra boş (8 sütuna boş karakter atmalıyız.))