Soru Excel dosyalarını birleştirmek

[k0081]

Merhaba arkadaşlar;

C:\deneme\ klasörü altında 5 adet .xlsm dosya var. bunları tek bir excel dosyasında nasıl birleştirebilirim?

yardımcı arkadaşa şimdiden teşekkürler.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Yeni bir dosyada modüle kayup çalıştırın.

Sub birleştir()
Dim dosya As String, sonsat1 As Long, sonsat2 As Long
Dim sh As Worksheet
Range("B2:T" & Rows.Count).UnMerge
Range("B2:T" & Rows.Count).Clear
Application.ScreenUpdating = False
sonsat1 = Cells(Rows.Count, "B").End(xlUp).Row + 1
dosya = Dir(ThisWorkbook.Path & "\Kaynak\*.xls")
Do While dosya <> ""
Application.DisplayAlerts = False
If Workbooks.Open(ThisWorkbook.Path & "\Kaynak\" & dosya).ReadOnly = True Then
Workbooks(dosya).Close True
End If
Application.DisplayAlerts = True
' Set sh = Sheets("Sheet1")
set sh = Activesheet
sonsat2 = sh.Cells(Rows.Count, "B").End(xlUp).Row
ThisWorkbook.Activate
sh.Range("B1:T" & sonsat2).Copy
Range("B" & sonsat1).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Workbooks(dosya).Close False
sonsat1 = Cells(Rows.Count, "B").End(xlUp).Row + 1
Set sh = Nothing
dosya = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

Sitede arkadaşların yazdığı makrodur
iyi çalışmalar

 

[k0081]

Cevap için teşekkürler. Ancak bu kodda adresler var., daha doğrusu benim dosyalarda birleştirme yapmadı.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Bir dosyaya makroyu koyup C:\deneme deneme klasörüne kayıt ediniz
dosya = Dir(ThisWorkbook.Path & "\Kaynak\*.xls")
makrodaki bu satırları da
dosya = Dir(ThisWorkbook.Path & "\*.xls")
satırıyla değiştirip makroyu çalıştırınız. klasördeki dosyaların yeni hazırladığınız dosyada birleştiğini göreceksiniz.
Makro, evrengizlen hocanındır. Bu vesile ile bir defa daha kendilerine teşekkür ederim.
iyi çalışmalar

 

[k0081]

Hayır. maalesef olmuyor. Bu kodla, dosyalar birleşmiyor...

 

[Tevfik_Kursun]

Merhaba,
Dosyalarınızın adını sayfa adı olarak kullanıp birleştirir. Şimdi denedim.
Yine sıkıntı olursa haber ver lütfen
İyi çalışmalar (harici bağlantı silinebilir)
Dosya

 

[k0081]

Bu dosyayı test edebilmek için, paylaşım sitelerinden birine yüklermisiniz.

 

[Tevfik_Kursun]

Buyrun Dosya

 

[k0081]

Buyrun Dosya

Bu dosyayı C:\deneme klasörüne attım ve çalıştırdım. Ancak hiç bir şey olmadı. Dosyalar bir türlü birleşmiyor... Dosyalardan herhangi birinde birleştirme yapsa yeterlidir.

 

[Tevfik_Kursun]

Dosyalarınızdan birini gönderin bana lütfen, denedim de gönderdim

 

[k0081]

şimdi hocam şu şeklide .uzantılar .xlsm burayı değiştirip denedim.

Sonuç :

Evet Birleştirdi. Ancak sadece 1 sayfayı. yani bir Kitap içinde 3 sayfa var. ve iki kitap var. Buda 6 sayfa yapar. Sizin göndermiş olduğunuz kod sadece 1 dosyayı referans alıp, ilk sayfasını birleştirdi...



Belirtilen yol üzerinden yapacağız. ( Dosya yolu yani) uygulamayı...

Excelde boş bir sayfa açıp, modüle yapıştırıp kodu çalıştırdığımda, ilgili dosya yolundaki .xlsm uzantılı dosyaları birleştirecek. herhangi birini referans alabilir...

 

[Tevfik_Kursun]

Elimdeki makrolar sadece ilk sayfayı referans alıp birleştirme yapıyor. Çok sayfalı excel dosyalar için Ustalardan yardım alacaksınız.
İyi çalışmalar

 

[k0081]

Teşekkürler yardımlarınız için .. arkadaşım. Sağol

 

[Tevfik_Kursun]

Rica ederim

 

[Korhan Ayhan]

Excelin VERİ-VERİLERİ AL-DOSYADA-KLASÖRDEN seçeneklerini kurcalamanızı tavsiye ederim.

 

[k0081]

@Korhan Ayhan

Mümkün olabiliyorsa bunu vba ile yapmak istiyorum. Çünkü bu kodu bir eklentiye bağlayacağım.

* Birleştirilecek tablolardaki Macrolar yok sayılmalıdır. Sadece tablonun kendisi ve Hücre içerikleri...

* Sadece sayfalar birleşirse, yeterli olur. ( sayfa adları ile gelmelidir. )

 

[Korhan Ayhan]

O zaman arşiv konularını inceleyebilirsiniz.

Arşiv Konuları

 

[k0081]

Tamamdır, Bi inceleyeyim. Teşekkürler.