farklı sayfalardakı verılerı listelemek

[kneehot]

selamlar arkadaslar. farklı sayfalarda yazan verılerı lıste dıye actıgım sayfada sıralamak ıstıyorum. bıldıgım tum yolları denedım fakat beceremedım.ornek ekledım anlasılır olması ıcın. tum yardımlara tesekkurler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip deneyiniz.

Sub Birlestir()
    Dim Kol As Integer, _
        Syf As Integer, _
        j   As Long, _
        k   As Long
        
    Sheets("LİSTE").Select
    Application.ScreenUpdating = False
    
    For Syf = 1 To Sheets.Count
        If Sheets(Syf).Name <> "LİSTE" Then
            For Kol = 4 To Sheets(Syf).Cells(6, Columns.Count).End(1).Column
                j = Sheets(Syf).Cells(Rows.Count, Kol).End(3).Row
                If j > 5 Then
                    k = Cells(Rows.Count, Kol).End(3).Row + 1
                    Sheets(Syf).Range(Sheets(Syf).Cells(7, Kol), Sheets(Syf).Cells(j, Kol)).Copy Cells(k, Kol)
                End If
            Next Kol
        End If
    Next Syf
    Application.ScreenUpdating = True
    
    MsgBox "Aktarım Tamamlandı...", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[kneehot]

Cok tesekkur ederım