çalışma sayfasındaki sayfaları toplama

Katılım
29 Ekim 2011
Mesajlar
138
Excel Vers. ve Dili
2007 türkçe
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Basit bir kaç sayfalık örnek dosya hazırlayın, yardımcı olacak arkadaşlar çıkacaktır.
 
Katılım
12 Aralık 2015
Mesajlar
1,207
Excel Vers. ve Dili
Türkçe Ofis 2007
aşağıdaki kodu deneyin
Kod:
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Dosyaya bakayım dedim, virüs tehditi var dedi.
 
Katılım
29 Ekim 2011
Mesajlar
138
Excel Vers. ve Dili
2007 türkçe
aşağıdaki kodu deneyin
Kod:
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..
 
Üst