Sayfa Aktarırken Üstüne Topluyor

[6729626]

Aşağıdaki Kodlarla sayfayı aktarıyorum ama "b" ile "m" arası üsütne toplayarak gidiyor altalta atmıyor çözemedim.

Sub Aktar1()
Sheets("Ciro").Unprotect ("AKIN") 'Ciro sayfasının korumasını kaldırır. Şifre : AKIN
say = Sheets("Ciro").Range("B65536").End(3).Row + 1
say2 = Sheets("Ciro").Range("M65536").End(3).Row + 1
'O:AL sütunları çok olduğu için Copy ile attım.B:M arasındaki yöntemi uygulamadım.
Sheets("Veri").Range("B3:M3").Copy
Sheets("Ciro").Range("O" & say2).PasteSpecial Paste:=xlValues
Sheets("Veri").Range("B5:M5").Copy
Sheets("Ciro").Range("AA" & say2).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("Ciro").Range("B" & say) = Sheets("Veri").Range("B6")
Sheets("Toplam_Cirolar").Range("B" & say) = Sheets("Veri").Range("B6")
Sheets("Adres_Telefonlar").Range("B" & say) = Sheets("Veri").Range("B6")
Sheets("Ciro").Range("C" & say) = Sheets("Veri").Range("B7")
Sheets("Adres_Telefonlar").Range("I" & say) = Sheets("Veri").Range("B7")
Sheets("Ciro").Range("D" & say) = Sheets("Veri").Range("B8")
Sheets("Adres_Telefonlar").Range("J" & say) = Sheets("Veri").Range("B8")
Sheets("Ciro").Range("E" & say) = Sheets("Veri").Range("B9")
Sheets("Adres_Telefonlar").Range("D" & say) = Sheets("Veri").Range("B9")
Sheets("Ciro").Range("F" & say) = Sheets("Veri").Range("E9")
Sheets("Adres_Telefonlar").Range("E" & say) = Sheets("Veri").Range("E9")
Sheets("Ciro").Range("G" & say) = Sheets("Veri").Range("B10")
Sheets("Adres_Telefonlar").Range("F" & say) = Sheets("Veri").Range("B10")
Sheets("Ciro").Range("H" & say) = Sheets("Veri").Range("B11")
Sheets("Toplam_Cirolar").Range("C" & say) = Sheets("Veri").Range("B11")
Sheets("Ciro").Range("I" & say) = Sheets("Veri").Range("B12")
Sheets("Toplam_Cirolar").Range("D" & say) = Sheets("Veri").Range("B12")
Sheets("Ciro").Range("J" & say) = Sheets("Veri").Range("B13")
Sheets("Adres_Telefonlar").Range("C" & say) = Sheets("Veri").Range("B13")
Sheets("Ciro").Range("K" & say) = Sheets("Veri").Range("F13")
Sheets("Adres_Telefonlar").Range("G" & say) = Sheets("Veri").Range("F13")
Sheets("Ciro").Range("L" & say) = Sheets("Veri").Range("B14")
Sheets("Ciro").Range("M" & say) = Sheets("Veri").Range("B15")
'ActiveWindow.SmallScroll Down:=-3 'aktarmadan önce yazdır
' ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
' :=True
'Range("I13").Select
'----------------------------

 

[zafer]

Merhaba

Kodlarınızda toplama yapacak bir kod yok. sadece veri sayfasındaki bilgileri
diğer sayfalara atıyor. Ciro sayfanızda say değişkenine değeri kopyalamadan önce atadığınız için satır sayısı artmıyor o yüzden olabilir.


say = Sheets("Ciro").Range("B65536").End(3).Row + 1
bu satırı

Application.CutCopyMode = False

satırından sonraya taşıyıp çalıştırın.