çalışma sayfasındaki verileri tek bir çalışma sayfasına liste halinde toplama

[recepkirgec]

arkadaşlar merhaba. Aşağıda verdiğim linkte yer alan excell dosyasındaki verileri aynı dosya içerisinde bulunan en son sayfadaki sayfa39 numaralı sayfaya liste halinde eklemek istiyorum yani yardımcı olursanız sevinirim


http://www.dosya.tc/server10/exmeiq/deneme.xlsx.html

 

[Ömer]

Merhaba,

Başlık satırını sayfaya eklemedim. Sabit olduğu için siz sayfayı düzenlerken eklersiniz.

Sub Sayfaları_Birlestir()

    Dim i As Byte, syf As Worksheet, son1 As Long, son2 As Long
    
    Application.ScreenUpdating = False
    Sheets("Sayfa39").Select
    Range("A2:U" & Rows.Count).Clear
        
    For i = 1 To Worksheets.Count
        Set syf = Sheets(i)
        If syf.Name <> "Sayfa39" Then
            son1 = syf.Cells(Rows.Count, "A").End(xlUp).Row
            son2 = Cells(Rows.Count, "A").End(xlUp).Row + 1
            syf.Range("A2").Resize(son1, 9).Copy Cells(son2, "A")
        End If
    Next i
    
    Application.ScreenUpdating = True
        
End Sub

.