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

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

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?