Gönderen Konu: excel sayfalarını tek sayfada alt alta birleştirmek  (Okunma sayısı 2132 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı RMZNTNKR

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ramazan TINKIR
  • Doğum Yılınız: 1989
  • İl / İlçe: İSTANBUL-TUZLA
  • İşletim Sisteminiz: 64 bit işletim sistemi
  • Mesleğiniz: Data Master
  • Office Versiyonunuz: 2016
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

Çevrimdışı srdkrtd

  • Excelce Onbaşı
  • **
  • İleti: 4
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Serdar KURTULDU
  • Doğum Yılınız: 1969
  • İl / İlçe: KKTC
  • İşletim Sisteminiz: win7
  • Mesleğiniz: Muhasebe
  • Office Versiyonunuz: office 2013
Ynt: excel sayfalarını tek sayfada alt alta birleştirmek
« Yanıtla #1 : 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

Çevrimdışı tolga yücehan

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: tolga yücehan
  • Doğum Yılınız: 1989
  • İl / İlçe: denizli/merkez
Ynt: excel sayfalarını tek sayfada alt alta birleştirmek
« Yanıtla #2 : 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.