çalışma sayfasındaki sayfaları toplama

[kadirdiloglu]

Merhaba,

aynı çalışma sayfasındaki sheetlerde yer alan verileri bir sayfa içinde alt alta getirebilmek istiyorum. Bu konuda yardımcı olur musunuz?

 

[Necdet]

Merhaba,

Basit bir kaç sayfalık örnek dosya hazırlayın, yardımcı olacak arkadaşlar çıkacaktır.

 

[kadirdiloglu]

örnek excel

http://s7.dosya.tc/server3/q2rp4n/soru.xls.html

 

[alicimri]

aşağıdaki kodu deneyin

Sub a()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Toplam" Then
say = Sheets(i).Range("c65536").End(3).Row
say1 = Sheets("Toplam").Range("c65536").End(3).Row
Sheets(i).Range("c4:t" & say).Copy Sheets("Toplam").Range("c" & say1 + 1)

End If
Next
End Sub

 

[Necdet]

Dosyaya bakayım dedim, virüs tehditi var dedi.

 

[kadirdiloglu]

aşağıdaki kodu deneyin

Sub a()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Toplam" Then
say = Sheets(i).Range("c65536").End(3).Row
say1 = Sheets("Toplam").Range("c65536").End(3).Row
Sheets(i).Range("c4:t" & say).Copy Sheets("Toplam").Range("c" & say1 + 1)

End If
Next
End Sub

teşekkürler..