Kapalı dosyada bütün sayfaları tek sayfada birleştirmek

[schlecht]

Merhaba, ekteki dosyada 4 adet sayfa bulunmakta. Konu1, Konu2, Konu3, Konu4,
bu 4 sayfayı ekteki "bütünkonular" sayfasındaki gibi alt alta aralarında bir boşluk olacak şekilde dosyayı açmadan tek sayfaya kopyalamak istiyorum.

İyi çalışmalar.

 

[schlecht]

Forumda aşağıdaki kodu buldum bu kodu sayfaları birleştirilecek kitapda değilde başka bir kitapta çalıştırma olanağı varmıdır?

Sub SAYFALARIBIRLESTIR()
Dim YeniSayfa As Worksheet
Dim SayfaSay
SayfaSay = Worksheets.Count
Set YeniSayfa = Worksheets.Add(after:=Worksheets(SayfaSay))
With YeniSayfa
For i = 1 To SayfaSay
Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 2))
Next
End With
End Sub

 

[isseyy]

merhaba bu sorunu çözebildin mi?