Excel de sayfaları birleştirmek

[serkol64]

Merhaba konu başlığında 2008 yılından bugüne kadar yazılmış tavsiyeleri okudum uygulamaya çalıştım ancak olmadı ekteki dosyada farklı sayfalarda olan verileri tek bir sayfada nasıl birleştirebilirim ?

 

[Necdet]

Merhaba,
Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub SayfaBirlestir()

Dim arr As Variant
Dim syf As Worksheet
Dim Sat As Long
Dim sh  As Worksheet

On Error Resume Next
If CBool(Len(Worksheets("Tüm Sayfalar").Name) > 0) = False Then
    Sheets.Add Before:=Sheets(1)
    ActiveSheet.Name = "Tüm Sayfalar"
Else
    Sheets("Tüm Sayfalar").Cells.ClearContents
End If
On Error GoTo 0
Set sh = Sheets("Tüm Sayfalar")

For Each syf In Worksheets
    If Not syf.Name = sh.Name Then
        arr = syf.Range("A1").CurrentRegion.Value
        Sat = sh.Cells(Rows.Count, "A").End(3).Row + 1
        sh.Range("A" & Sat).Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    End If
Next syf

sh.Select
MsgBox "Tüm Sayfalar Birleştirilmiştir....", vbInformation

End Sub

 

[excelzordegil]

Hepsinin alt alta gelmesini istiyorsanız tek bir sayfaya yapıştırabilirsiniz. Zaten aynı formattalar ve sayfa sayısı az. Daha fazla veri var ise lütfen detay paylaşın.

 

[serkol64]

çalışma kitabında boş bir sayfa - geliştirici - visual basic - insert - modüle - kodu kopyalayıp yapıştırdım (burada kaldım)

 

[Necdet]

çalışma kitabında boş bir sayfa - geliştirici - visual basic - insert - modüle - kodu kopyalayıp yapıştırdım (burada kaldım)

Boş bir sayfa açmanıza gerek yok, kodlar zaten o işi yapıyor.

 

[serkol64]

Dosyayı farklı bir yere kaydedip sayfadaki engellemeleri kaldırdım bu sefer de bu yazı çıkıyor. ...Tamam artık ben tek tek kesip alt alta yapıştırayım. Yardımlarınız için teşekkür ederim.

 

[Necdet]

dosyayı açmadan dosya adına sağ tıklayıp özelliklerinden engellemeyi kaldırdınız mı?

 

[serkol64]

evet kaldırdım

 

[Necdet]

Bende bir sıkıntı yok, sizin sorunuzu anlamadım.

Kendi dosyanızda bir modül açıp yukarıda verdiğim kodları oraya kopyalayıp deneyiniz. Bakalım sonuç ne olacak?