seçilen sekmelerin belirli bir aralığını altalta listeleme

[modoste]

merhaba sayın hocalarım
bu sorumla ilgili daha öncede buna benzer makro sorularım olmuştu. ancak bu sorumla alakalı soru sormamışım. (sekmelerin aynı aralıklarını başka yerde listeleme sorusu)
bana ulaşan bir excel dosyası var, 310 sayfadan (Sekmeden) ibaret, (ben excelde 256 sekmeden fazla olamaz biliyordum) ama gelen dosya 310 sekme ve 1000 lere kadar gidecek gibi, dosyayı tutan kişi aynı formatta olan sekmeleri kopyalayarak, çalışmasını tek dosyada tutmaya çalışmış. dikkat edilirse birleşmiş hücrelerde var (aşağıdaki resim)

benim sormak istediğim şu, (örnekteki sekme adları 1-2-3.....310 yani sayı numaraları ile sekmelere ad vermiş)
yapılacak bir makro ile
başlangıç sekme no =1
bitiş sekme no = 25
her sekmenin hangi aralığı alınacak =A80R109
makro çalıştığında yeni bir sayfada 25 adet sekmenin A80R109 aralığı altalta kopyalanamış gibi listelenecek (dediğim gibi birleşmiş hücreler varsa yine birleşmiş olarak gözükecek)
Not: dosya şu an itibariyle 37 mb (bana görede sıkıntılı bir dosya)

bu makroyu yapabilir miyiz.

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Bak As Integer
    Dim Say As Long
    For Bak = 1 To 25
        Say = Cells(Rows.Count, "A").End(xlUp).Row + 1
        Worksheets(Bak).Range("A80:DR109").Copy Cells(Say, "A")
    Next
End Sub

 

[modoste]

hocam sizden gelen makroyu 1 den 30 a kadar sayfaya dönüştürdüm
makroyu çalıştırdığımda hatalı bir döküm ortaya çıkıyo
mesela her sayfadan 30 satırlık veri alması lazım 30 sekmex30 satır = sonuç dökümanı 900 satırlık olması lazım ama bu çıkmıyo
ayrıca,
1. sekmedeki O103 hücresinde en son C2 yazan yerin altında boş olsada 6 satır daha var ama makro çalıştığında buraları almamış gibi
tekrar bakabilir miyiz.

örnek dosya ekliyorum

 

[modoste]

hocam ekli dosyadan irdelediğimde her sayfadan 30 satır alması gerekirken veri olmayan boş satırları almadığını farkettim
kodu yenileyebilir miyiz.

 

[modoste]

seçenekleri biraz daha belirleyici yapıp ekli dosyamda sorumu ilettim
1 den 31 e kadar sayfaları olan dosyamda kriterleri "Koşullar" sekmesinde anlattım ve çalışacak makro da "Sonuçlar" sekmesinde olacak