Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: RMZNTNKR - 26 Mart 2017, 15:22:39

Başlık: excel sayfalarını tek sayfada alt alta birleştirmek
Gönderen: RMZNTNKR - 26 Mart 2017, 15:22:39
merhaba arkadaşlar,

benim yapmam gereken bir rapor var ve elimde 300 tane excel dosyası mevcut.bu dosyaları tek bir sayfada alt alta birleştirmek istiyorum. yardımcı olur musunuz? Açıkçası bu benim için çok önemli 2 gün içerisinde bitirmem gerekiyor raporu. şimdiden teşekkür ederim
Başlık: Ynt: excel sayfalarını tek sayfada alt alta birleştirmek
Gönderen: srdkrtd - 28 Mart 2017, 12:48:07
Dostum bu makro işini görür sanırım seçtiğin tüm excel dosyalarını tek sayfaya alt alta ekleyecek.

Sub BİRLEŞTİR_KISA()
    Dim AktifDosya As Workbook
    Dim Dosya As Workbook
    Dim DosyaAdi
       
    Set AktifDosya = ActiveWorkbook
   
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Title = "Birleştirilecek Dosyaları Seçin"
       
        If .Show Then
            For Each DosyaAdi In .SelectedItems
                Set Dosya = Workbooks.Open(DosyaAdi)
               
                Dosya.Worksheets(1).UsedRange.Copy AktifDosya.Worksheets(1).Range("A65536").End(xlUp)(8, 1)
               
                Dosya.Close False
                Set Dosya = Nothing
            Next
        End If
    End With
   
    Set AktifDosya = Nothing
End Sub
Başlık: Ynt: excel sayfalarını tek sayfada alt alta birleştirmek
Gönderen: tolga yücehan - 04 Temmuz 2019, 14:47:59
Merhaba Hocam,

Size teşekkür etmek için üye oldum. Teşekkür ederim beni büyük bir dertten kurtardınız.

Saygılarımla.