Toplam 2 sonuçtan 1 ile 2 arasındakiler gösteriliyor.

Konu: 493 Farklı Exceli Tek Sayfada Birleştirmek

  1. #1
    Yeni Üye
    Üyelik tarihi
    Sep 2015
    Mesajlar
    6

    Post 493 Farklı Exceli Tek Sayfada Birleştirmek

    Merhaba,
    Ysk nın yayınladığı seçim verilerini ilçe ilçe indirdim. Elimde her ilçeye ait ayrı excellerde(493 excel dosyası) sandık sonuçları mevcut ancak tek bir sayfada hepsini birleştirmek istiyorum. Yardımcı olabilir misiniz?

    Şimdiden teşekkürler.

  2. #2
    Forum Yöneticisi
    Üyelik tarihi
    Apr 2004
    Nereden
    İstanbul
    Versiyon
    Excel 2003 TR
    Mesajlar
    1.315
    Merhaba,

    Başka bir ihtiyaç için yazılmış, aynı klasörde yer alan XLSX uzantılı dosyaları açıp, aktif sayfalarındaki verileri makronun olduğu dosyanın FASIL sayfasına altalta gelecek şekilde yapıştıran ve işlem gören dosyanın adını yine makronun olduğu dosyanın LİST sayfasında raporlayan bir kodu aşağıda bulabilirsiniz. Kendi ihtiyacınıza göre uyarlayabilirsiniz.

    Kod:
    Sub Klasordeki_Dosyalari_Listele()
        Dim Dosya As Workbook
        Dim Dosya_Adi As String
        Dim Yol As String
        Dim Son As Integer
        Dim TempSon As Integer
        Dim Sayac
            
        Yol = ThisWorkbook.Path & "\" 'Yol tanımlanıyor
        Dosya_Adi = Dir(Yol & "\*.xlsx")
        
        Sayac = 1
        
        Do While Dosya_Adi <> ""
          Set Dosya = Workbooks.Open(Yol & "\" & Dosya_Adi, False, True)
          
          TempSon = Dosya.Sheets(1).Range("A1000000").End(xlUp).Row
          
          Son = ThisWorkbook.Sheets("Fasil").Range("A1000000").End(xlUp).Row + 1
          
          Dosya.Sheets(1).Range("A1:D" & TempSon).Copy ThisWorkbook.Sheets("Fasil").Range("A" & Son)
               
          ThisWorkbook.Sheets("List").Range("A" & Sayac) = Dosya.Name
          Sayac = Sayac + 1
          
          TempSon = 0
          Dosya.Close False
          Dosya_Adi = Dir
        Loop
        
        Set Dosya = Nothing
        
        MsgBox "İşlem Tamamlandı", vbOKOnly, "Bilgi"
    End Sub

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Bu Konu İçin Etiketler

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •