Farklı sayfalardaki farklı satır sayısına sahip verileri birleştirme

[ziraatci26]

Değeli arkadaşlar birden fazla ve sayısı değişen sayfalarda farklı satır sayılarına sahip veriler var
Örnekte 2 sayfa yaptım ve sayfa1 ile sayfa 2 yi sayfa 3 deki hale getirmek istiyorum.Dediğim gibi sayfa sayıları değişken ve satır sayılarıda değişken.Yardımlarınızı bekliyorum.Saygılarımla

 

[Necdet]

Merhaba,

Konsolide adlı bir sayfa oluşturduktan sonra aşağıdaki kodları deneyiniz.

Sub Birlestir()
    Dim sk      As Worksheet, _
        Sayfa   As Integer, _
        i       As Long, _
        j       As Long, _
        k       As Long
    
    Set sk = Sheets("Konsolide")
    sk.Select
    
    Application.ScreenUpdating = False
    i = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Range("A2:D" & i).ClearContents
    
    For Sayfa = 1 To Sheets.Count
    
        If Sheets(Sayfa).Name <> "Konsolide" Then
            i = Sheets(Sayfa).Range("A1").End(xlDown).Row
            j = Sheets(Sayfa).Cells(Rows.Count, "A").End(xlUp).Row
            k = sk.Cells(Rows.Count, "A").End(xlUp).Row + 1
            Sheets(Sayfa).Range("B2:C" & i).Copy sk.Cells(k, "A")
            sk.Range("C" & k & ":C" & k + i - 2) = Sheets(Sayfa).Cells(j - 1, "B")
            sk.Range("D" & k & ":D" & k + i - 2) = Sheets(Sayfa).Cells(j, "B")
        End If
    Next Sayfa
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamdır...", vbInformation, "N.YEŞERTENER - [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[ziraatci26]

hocam eeline emeğine sağlık