Modül 7: İleri Düzey Uygulamalar ve Gerçek Hayat Senaryoları
VBA ile Çoklu Dosyaları Tek Çatıda Birleştirme
Şirketlerde her departmanın veya şubenin ayrı Excel dosyalarında tuttuğu verileri tek bir ana raporda toplamak en büyük zaman kayıplarından biridir. VBA kullanarak belirli bir klasördeki tüm Excel dosyalarını otomatik açabilir, verileri kopyalayıp master dosyada alt alta birleştirebilir ve dosyaları sessizce kapatabilirsiniz.
Konsolidasyon Mantığı ve Kod Yapısı
Bu işlemde Dir fonksiyonu ile klasördeki dosyalar taranır, her dosya Workbooks.Open ile açılır, son dolu satır tespiti yapılarak ana rapora aktarılır.
Örnek Dosya Birleştirme Kod Kalıbı
Dim dosyaAdi As String, klasorYolu As String
klasorYolu = "C:\SubeRaporlari\"
dosyaAdi = Dir(klasorYolu & "*.xlsx")
Do While dosyaAdi <> ""
Workbooks.Open klasorYolu & dosyaAdi
' Veri kopyalama ve birleştirme işlemleri burada yapılır
Workbooks(dosyaAdi).Close False
dosyaAdi = Dir
Loop