boş hücrelere veri aktarma

[mtozer]

ekteki dosyada gönder butonuna bastıgımda boş hücrelere nokta atıyordu. Ama şimdi atmıyor inceleyebilirmisiniz. komut tanımlı ama bir sorun var çözemedim.

http://s3.dosya.tc/server11/gvfjai/fis_.rar.html

 

[mtozer]

Kodlarda ne gibibir eksiklik var gozden gecirebilirmiyiz.

 

[mesut.ozcanli]

Gönder butonunu göremedim?

 

[mesut.ozcanli]

http://s6.dosya.tc/server8/liabhl/fis_.xls.html

eki inceler misiniz? anladığım kadar birşeyler yapmaya çalıştım.

 

[mtozer]

Su an bilgisayar yok ama. Soyle olcu girilerek malzeme cinsi seciliyor hesaplatip. Ekle deyince listbox lara ekliyor. Ardindan hesapla deyip toplamlar aliniyor. Gonder deyince hucrelere aktarim yapiyor. Burada nokta larin gorevi satirlarin kaymamasi icin.

 

[mtozer]

Şimdi baktım ama değişiklik görünmüyor. Hata devam ediyor. Listbox lar toplanınca ekle dediğimizde hücrelere veri aktarırken; Textbox ve label lerin sayısı listbox sütunundan fazla olduğu için satırlar kayıyor. Yani listboxlar hücrelere aktarılırken listbox sütunlarına texbox ve label sayısı kadar nokta eklememiz gerekiyor. Kodlarda zaten mevcut ama bir sorun var noktaları eklemiyor.

 

[mtozer]

arkadaslar noktaları hücrelere aktaramıyorum. kontrol edebilirmiyiz.

http://s3.dosya.tc/server11/gvfjai/fis_.rar.html

 

[mtozer]

Komut satırları bunlar "G" sütununa noktayı gönderiyor. Ancak sonraki sütunlara aktarım yapmıyor.


With ListBox1
For a = 0 To .ListCount - 1
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) = "."
Range("H65536").End(3)(2, 1) = "."
Range("I65536").End(3)(2, 1) = "."
Range("J65536").End(3)(2, 1) = "."
Range("K65536").End(3)(2, 1) = "."
Range("L65536").End(3)(2, 1) = "."
Range("M65536").End(3)(2, 1) = "."
Range("N65536").End(3)(2, 1) = "."
Range("o65536").End(3)(2, 1) = "."
Range("p65536").End(3)(2, 1) = "."
Range("r65536").End(3)(2, 1) = "."
Range("s65536").End(3)(2, 1) = "."
Range("t65536").End(3)(2, 1) = "."
Range("u65536").End(3)(2, 1) = "."
Range("v65536").End(3)(2, 1) = "."
Range("y65536").End(3)(2, 1) = "."
Next a
End With
a = Empty

Yardımcı olurmusunuz.