Bütün Sayfaları Tek Bir Sayfada Toplama

[izcik]

Merhabalar
Basit bir sorum var.
70-80 kadar sayfa içeren bir dosya var. Buradaki sayfaların hepsini altalta olacak şekilde tek bir sayfaya veya tek bir çalışma kitabına aktaracak, yani tek sayfa haline getirecek bir makro kodu veya başka bir yol var mıdır?

 

[Muzaffer Ali]

Merhaba.
Bir modüle aşağıdaki kodları kopyalayıp çalıştırın.

Sub Test()
    Dim syf As Worksheet
    Dim syfYeni As Worksheet
    Dim Satir As Long
    
    Set syfYeni = Worksheets.Add
    For Each syf In ThisWorkbook.Worksheets
        Satir = syfYeni.Cells.SpecialCells(xlCellTypeLastCell).Row
        If Satir = 1 Then Satir = 0
        syf.Range("A1:" & syf.Cells.SpecialCells(xlCellTypeLastCell).Address).Copy syfYeni.Range("A" & Satir + 1)
    Next
End Sub

 

[izcik]

Merhaba.
Bir modüle aşağıdaki kodları kopyalayıp çalıştırın.

Sub Test()
    Dim syf As Worksheet
    Dim syfYeni As Worksheet
    Dim Satir As Long
   
    Set syfYeni = Worksheets.Add
    For Each syf In ThisWorkbook.Worksheets
        Satir = syfYeni.Cells.SpecialCells(xlCellTypeLastCell).Row
        If Satir = 1 Then Satir = 0
        syf.Range("A1:" & syf.Cells.SpecialCells(xlCellTypeLastCell).Address).Copy syfYeni.Range("A" & Satir + 1)
    Next
End Sub

Sayın dalgalıkur uzmanım oldu, teşekkür ederim

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.