Çalışma Sayfası Birleştirme

[Sedater06]

270 Adet Çalışma Sayfasını Tek bir Çalışma sayfası olarak birleştirmek istiyorum.

yardımınızı rica ediyorum.

 

[Mdemir63]

Selamlar

Excelde eğer ayrı ayrı çalışma kitabından bahsediyorsanız o ayrı, Ama tek bir dosya içinde çalışma sayfasından bahsediyorsanız. 270 sayfa olma ihtimali yok. Çünkü bir dosyada en fazla 255 adet çalışma sayfası olur.

 

[Sedater06]

Selamlar

Excelde eğer ayrı ayrı çalışma kitabından bahsediyorsanız o ayrı, Ama tek bir dosya içinde çalışma sayfasından bahsediyorsanız. 270 sayfa olma ihtimali yok. Çünkü bir dosyada en fazla 255 adet çalışma sayfası olur.

 

[Mdemir63]

Selamlar

evet 274 adet görünüyor

 

[Mdemir63]

Selamlar

İnceleyiniz. Birleştirme biraz uzun sürüyor ( Yaklaşık 25 sn)
Üstadalar bel ki daha kısa zamanda birleştirme yapabilirler

 

[Sedater06]

ÇOK GÜZEL OLMUŞ ELİNİZE SAĞLIK. TEŞEKKÜR EDERİM. NASIL YAPTINIZ BU BANA HERZAMAN LAZIM OLUYOR. TEKRAR TEŞEKKÜRLER

 

[Necdet]

Merhaba,
Sayın Mdemir63' hazırladığı dosyadaki gibi "Anasayfa" olarak bir sayfa oluşturun ve aşağıdaki kodları deneyin.

Sub Birlestir()

Dim sh  As Worksheet, _
    ana As Worksheet, _
    i   As Long

Set ana = Sheets("Anasayfa")
Application.ScreenUpdating = False

For Each sh In Worksheets
    If Not sh.Name = "Anasayfa" Then
        i = ana.Cells(Rows.Count, "A").End(3).Row + 1
        sh.Range("A1").CurrentRegion.Offset(3).Copy ana.Cells(i, "A")
    End If
Next sh
Application.ScreenUpdating = True

End Sub