Tüm sayfaları tek sayfada toplamak

[mrt]

Üstadlar Selam;

Excel çalışmalarında bulunan sayfaları tek bir sayfada toplamak istiyorum.

Nasıl yapabilirim ?

Özet sayfasına, Dönem Başlığında Sayfaların isimleri olmalı.

Diğer bilgiler sayfalardaki 3. satırdan başlayarak dolu son satıra kadar kopyalanmalı.

Sayfa sayısı daha çok olabilir.

Şimdiden teşekkür ederim.

 

[Recep İpek]

Eklediğiniz dosyalarda gerçek bilgi kullanmamanızı tavsiye ederim.

 

[mrt]

isimler ve şirketler hayali olarak yazılmıştır.

Uyarınız için teşekkür ederim.

 

[cebir]

merhaba.
sn.leventm den alıntı şöyle bir kod var
uyarlamaya çalışırsanız

For a = 1 To Sheets.Count
If Sheets(a).Name = "Sayfa1" Then GoTo 10
Sheets("sayfa1").Rows(c + 1 & ":" & c + 50) = Sheets(a).Rows("1:50").Value
c = c + 50
10 Next

 

[cebir]

eki inceleyiniz.