farklı sayfalardaki listeleri tek sayfada birleştirme

[esrefgul44]

arkadaşlar ekteki excel dosyasında neye ihtiyacım olduğunu zannedersem anlatabildim, yardımcı olursanız sevnirim, paylaşımınız için şimdiden tşk.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Birlestir()
Application.ScreenUpdating = False
Sheets("Sayfa4").Select
Range("A2:B65536").ClearContents
For i = 1 To Sheets.Count - 1
    SonSatır = Sheets(i).[A65536].End(3).Row
    Satır = [A65536].End(3).Row + 1
    Sheets(i).Range("A2:B" & SonSatır).Copy Range("A" & Satır)
Next i
SonSatır = [A65536].End(3).Row
Range("A2:B" & SonSatır).Sort Key1:=[B2], order1:=xlDescending
End Sub

 

[esrefgul44]

kod tamam Necdet bey teşekkürler , ancak her seferinde makroyu çalıştırmak zorunda kalıyorum, en azından dosyayı kapatıp yeniden açtığımda makro otomatik çalışabilirmi, ayrıca liste azalan doğum tarihine göre oldu, artan (en yaşlı kişi ilk sıraya gelecek) şekilde olarak düzeltebilirmisiniz

 

[Necdet]

Merhaba,

Küçük bir değişiklik yaparak isteğinizi gerçekleştirmek olası. Aşağıdaki kodları ThisWorkbook'un sayfasına kopyalarsanız, dosya her açıldığında otomatik olarak çalışacaktır.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Sayfa4").Select
Range("A2:B65536").ClearContents
For i = 1 To Sheets.Count - 1
    SonSatır = Sheets(i).[A65536].End(3).Row
    Satır = [A65536].End(3).Row + 1
    Sheets(i).Range("A2:B" & SonSatır).Copy Range("A" & Satır)
Next i
SonSatır = [A65536].End(3).Row
Range("A2:B" & SonSatır).Sort Key1:=[B2], order1:=xlAscending
End Sub

 

[esrefgul44]

şimdi full tamam, çok teşekkürler necdet bey, emeğinize sağlık