Acil yardım - birden çok sayfayı alt alta tek sayfa halinde birleştirme

[jaguar0007]

Acil olarak sayfaları birleştirmem gerek yardımcı olursanız sevinirim.


Bir den cok sayfayı alt alta tek sayfada toplamam gerek
ve macro işlemini nasıl yapacagımı bilmiyorum. Kod yapıstırdım ama neleri düzelticem neleri yapıcam bilmiyorum. Yardımcı olursanız sevinirim.

 

[muhasebeciyiz]

Acil olarak sayfaları birleştirmem gerek yardımcı olursanız sevinirim.


Bir den cok sayfayı alt alta tek sayfada toplamam gerek
ve macro işlemini nasıl yapacagımı bilmiyorum. Kod yapıstırdım ama neleri düzelticem neleri yapıcam bilmiyorum. Yardımcı olursanız sevinirim.

Insert / Modul aç ve Kodları bu Module kopyalayınız

Sub SayfaBirleştir()
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 + 1))
Next
End With
End Sub

 

[jaguar0007]

OLMADI ÇEVİRMİYOR NASIL YAPABİLİCEM Kİ ACİL LAZIM :s

 

[jaguar0007]

Heralde oldu cok tsk ederim.