sayfalari Birlestir kodunda hata

[falkan]

Arkadaslar Merhaba,

Ekte godnerdigim dosyada, calismakitabi1 de kod var. Bu kod diger calisma sayfalarini calisma sayfasi1 e birlestirmek icin. Ancak kod calisilyor ama butun kolonlari bitlestirmiyor eksik calisiyor. Hata nerde anlayamadim, bu konuda yardimci olabilirmisiniz.
Mesela: birlestirilecek dosyada ornegin 18 kolon var, bu kod bu kolonlarin 12 tanesini birlestiriyor digerlerini gormuyor.

Ilgi ve alakaniz icin simdiden cok tesekkur edereim.

Saygilar,

Falkan

 

[Korhan Ayhan]

Merhaba,

Döngüde aşağıdaki satırlar hep 13. sütuna aktarılmış. Halbuki artarak yazılması gerekirdi.

Kırmızı değerleri artarak değiştirip deneyin.

s1.Cells(sonsatir, [COLOR="Red"]13[/COLOR]) = s2.Cells(XEQ, 12)
s1.Cells(sonsatir, [COLOR="red"]13[/COLOR]) = s2.Cells(XEQ, 13)
s1.Cells(sonsatir, [COLOR="red"]13[/COLOR]) = s2.Cells(XEQ, 14)
s1.Cells(sonsatir, [COLOR="red"]13[/COLOR]) = s2.Cells(XEQ, 15)
s1.Cells(sonsatir, [COLOR="red"]13[/COLOR]) = s2.Cells(XEQ, 16)
s1.Cells(sonsatir, [COLOR="red"]13[/COLOR]) = s2.Cells(XEQ, 17)

 

[falkan]

Tesekkur ederim ilginize.

Ancak bu simdi de Ek'teki hatayi veriyor. kafayi yemek uzereyim.

Saygilar,

Falkan

 

[Korhan Ayhan]

Merhaba,

Ben sadece 18 sütun olayındaki hata için yanıt vermiştim. Kodun nasıl kurgulandığına bakmadım. Sanırım siz 2003 versiyon kullanıyorsunuz. Oysaki kodlar 2007 ve sonraki versiyonlara göre yazılmış.

Kod içindeki 1048576 değerlerini 65536 ile değiştirip tekrar deneyin.