sayfaları altalta birleştirme

[muzzymania]

Çalışma kitabındaki tüm sayfaları alt alta koyacak bir formul / macro var mı?

sayfa adları her seferinde değişik olabilir bu göz önüne alarak ekteki örnek dosyayı incelermisiniz?
Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Ekli örnek çalışmayı inceleyiniz.

Sub Birlestir()
Application.ScreenUpdating = False
Cells.ClearContents
For i = 2 To Sheets.Count
    Satir = [A65536].End(3).Row + 1
    SonSat = Sheets(i).[A65536].End(3).Row
    Sheets(i).[C5] = Sheets(i).[G2]
    Sheets(i).Range("A5:C" & SonSat).Copy Range("A" & Satir)
Next i
MsgBox "Aktarım Tamamlanmıştır..."
End Sub

 

[halilsoft]

Sub dene()
sysay = Sheets.Count
On Error Resume Next
A = 1
For i = 1 To sysay
ActiveSheet.Previous.Select
Next


Set syf = Worksheets("TOPLAM")
For i = 1 To sysay-1
For j = 1 To [a65536].End(3).Row
syf.Cells(A, 1) = Cells(j, 1)
syf.Cells(A, 2) = Cells(j, 2)
A = A + 1
Next

ActiveSheet.Next.Select

Next

End Sub

BU KOD İŞİNİZİ GÖREBİLİR BELKİ...

 

[muzzymania]

hepinize teşekkür ederim

yanlız halil bey sizin yaptığınız eklemedi sayfaları inceliyeceğim gerçekten teşekkür ederim ama sanki bu olayın excelde formulle yada bir menü ile yapılıyor olması lazım çok gerekli bir iş bana göre ii çalışmalar