Sayfalardaki veriyi birleştirme

[ANTALYA 01]

Ekteki Çalışmada A dan Başlayıp I ya kadar Olan Sayfalardaki A ve B sütunundaki Verileri S Sayfasında A ve B sütununa Sıralı Bir şekilde alt alta Akrataracak Makroya İhtiyacım Bulunmaktadır.Tşk.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub birlestir()
Dim s, i, sat As Long
[a2:b10000] = Empty
s = 2
    For i = 2 To Sheets.Count
    For sat = 2 To Sheets(i).Cells(65536, "a").End(xlUp).Row
        Range(Cells(s, "a"), Cells(s, "b")) = Range(Sheets(i).Cells(sat, "a"), Sheets(i).Cells(sat, "b")).Value
        s = s + 1
    Next: Next
End Sub

 

[ANTALYA 01]

G

Teşekkürler tam istediğim gibi olmuş.