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
-
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
-
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
-
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.