Farklı excel dosyalarında yer alan verileri alt alta birleştirme

[ubay06]

Merhaba

Farklı excel dosyalarında aynı formatta verilerim mevcut başlık A1 satırı sabit kalacak aşağıya doğru diğer verileri eklemek istiyorum konu ile ilgili yardımlarınızı rica ederim.

 

[ubay06]

http://www.excel.web.tr/f14/farkly-xls-dosyalaryny-tek-bir-shette-alt-alta-t107047.html

Korhan Bey'in linkte örnek bir çalışması mevcut fakat çalışmıyor

teşekkürler

 

[aydin6134]

Merhaba

Farklı excel dosyalarında aynı formatta verilerim mevcut başlık A1 satırı sabit kalacak aşağıya doğru diğer verileri eklemek istiyorum konu ile ilgili yardımlarınızı rica ederim.

Kardeş ekteki dosyayı indir. dosya şu şekilde çalışıyor yeni klasör aç birleştirmek istediğin dusyları bu klasöre kopyala sonra bu ektiki dosyayı aç CTRL+SHİFT+A BAS yeni oluşturmuş olduğun klasörü seç tamam de bitti sonra açmış olduğun klasörü aç orda dosya adı günün tarihi ve saati otomatik atmıştır ordaki dosyayı açtığında tüm exel dosyaların alt alta birleşmiş olduğunu göreceksin.

 

[ubay06]

Ekli dosyayı açamıyorum yardımcı olabilir misiniz
teşekkürler

 

[rabbace]

Merhaba,

http://s4.dosya.tc/server3/h7n6hv/Exel_Dosya_Birlestirme.zip.html

aydin6134 nickli arkadaşın dosyasını buradan indirebilirsiniz.

 

[ubay06]

işlem tamamlanmıştır diyor fakat ekran boş yardım rica ederim

 

[ubay06]

yardım rica ederim

 

[ubay06]

galiba yardım eden yok

 

[YUSUF44]

Yukarda arkadaşlar örnek dosya vermişler. Elimizde size ait örnek yok. İşlem olmadı diyorsunuz ama nesi olmadı, neden olmadı bilgimiz yok. Siz söyleyin elimizde örnek dosyalar olmadan sorunuza nasıl cevap verelim?

Ayrıca yukarda da belirtildiği gibi verilen dosya seçtiğiniz klasör içinde adı tarih olan yeni bir dosya oluşturuyor ve o klasör içindeki xls uzantılı dosyaları yeni dosyada birleştiriyor. Siz yeni dosyaya baktınız mı?

Bir de bu dosya xls uzantılı dosyaları birleştiriyor. Eğer uzantınız xlsx ise dosyada bulunan ilgili satırda uzantıyı xlsx olarak değiştirmeniz gerekiyor.

 

[Orion1]

alt klasöre dosyalarınızı xls dosyalarınızı aktarın.
Alt klasörünüzün adı konsolide.
Yapılmış halini email adresinize yolladım.

Sub aktar59()
Dim dosya As String, yol As String, conn As Object, rs As Object, sonsat As Long
Range("A2:L" & Rows.Count).ClearContents
Set conn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.recordset")
yol = ThisWorkbook.Path & "\konsolide\"
dosya = Dir(yol & "*.xls")
Do While dosya <> ""
    conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & yol & dosya & ";extended properties=""excel 8.0;hdr=yes"""
    rs.Open "select * from[Sheet0$];", conn, 1, 1
    sonsat = Cells(Rows.Count, "A").End(xlUp).Row + 1
    If rs.RecordCount > 0 Then Range("A" & sonsat).CopyFromRecordset rs
    rs.Close: conn.Close
    dosya = Dir
Loop
Set rs = Nothing: Set conn = Nothing
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ubay06]

Evren bey çok teşekkürler kontrol edip dönüyorum size

 

[Orion1]

Evren bey çok teşekkürler kontrol edip dönüyorum size

Rica ederim.
İyi çalışmalar.

 

[ubay06]

Evren Bey çok teşekkür ederim elinize sağlık tam istediğim gibi oldu

 

[Orion1]

Evren Bey çok teşekkür ederim elinize sağlık tam istediğim gibi oldu

Rica ederim.
İyi çalışmalar.