Belli satırdakileri yeni sayfaya aktarma

[m_cumur]

Merhaba arkadaşlar,

Aşağıdaki çalışma kitabımda bir çok sayfa var ben bunların otomatik olarak en son sayfaya aktarılmasını istiyorum. Bu konuda yardımcı olmanızı rica ederim.

http://yadi.sk/d/NVMG341SQmrxM

Formülle ilgili yardımcı olursanız satır aralıkları değişen sayfaları ben formüle uyarlarım.

 

[m_cumur]

yokmu destek olacak arkadaş

 

[aliveli06]

Yanlış anlamadıysam işini görür sanırım

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 + 1))
Next
End With
End Sub

 

[m_cumur]

Yanlış anlamadıysam işini görür sanırım

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 + 1))
Next
End With
End Sub

Allah razı olsun,

Ben bunu kaç gündür arıyordum bir bilsen. bununla ilgili biçimlendirme yapmam gerek şimdi.