Farklı excel sayfalarını tek bir excel de nasıl toplanabilir

[crossfire]

Merhaba,
İçerik formatı aynı olan yüzden fazla excel dosyam var ve bunların isimleride 1,2,3...180 gibi. Bunların herbirinde sheet1 de veriler var ve verilerin formatları aynı. Bu farklı excelleri tekbir sheette toplamak istiyorum. Manuel olarak yapılması çok zaman alıyor. Bunun için daha gelişmiş bir yöntemi olan arkadaşlar bana yardımcı olabilirse sevinirim.
Herkese teşekkür ederim

 

[Levent Menteşoğlu]

Tek bir dosyada derken nasıl bir şey yapmak istiyorsunuz, örneğin her dosyayı bir sayfa olarakmı birleştirmek istiyorsunuz, yoksa aynı sayfa içindemi birleştirmek istiyorsunuz.

 

[crossfire]

Şöyle izah ediyim. 180 tane isimleri x,y,z ... devam eden farklı excel dosyalarım var. Amacın bunların hepsini bir tane excelde birleştirmek. Yani zaten bunlar ayrı ayrı excel dosyaları. Her dosyayı bir sayfada alt alta birleştirmek istiyorum. Yani birinci excelde ad, soyad, il bilgileri var ikinci de de aynı bilgiler var. Birleştirilecek tek dosyada, birincinin verilerinin altına ikincinin verileri onun altına üçüncünün verileri diye giderek sonuçta bütün verilerin tek bir excel dosyasında olduğu bir şey istiyorum.
Teşekkür ederim.
Leventm ekte bir örnek gönderiyorum, daha yol gösterici olabilir diye.

 

[Levent Menteşoğlu]

Dosyaların bulunduğu klasör yolunu yazarmısınız.

 

[crossfire]

C:\Documents and Settings\adeuya\shift
şeklide, teşekkürler

 

[Seyit Tiken]

Şöyle bir mantık geliştirilebilir. Diyelim 100 adet Excel Çalışma Kitabınız(dosya) var. 100 dosyanın haricinde yeni bir Çalışma Kitabını açın. Her bir dosyadaki, aktarılması istenilen veriyi "Bağ Yapıştır" ile yeni Çalışma Kitabının, örnek olarak : A1 hücresine yapışırın. Bir dosyayı bir satıra, alt alta gelecek şekilde "Bağ Yapıştır" ile probleminizin halolunacağı kanısındayım.

 

[crossfire]

öncelikle teşekkür ederim "bağ yapıştır" ingilizce versiyon da ne demek, nasıl yapılır?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\Documents and Settings\adeuya\shift").Files
Set yeni = CreateObject("Excel.Application")
yeni.Workbooks.Open "C:\Documents and Settings\adeuya\shift\" & dosya.Name
Set s1 = yeni.Workbooks(dosya.Name).Sheets(1)
s1.Range("a2:i" & s1.[a65536].End(3).Row).Copy
sat = [a65536].End(3).Row
Cells(sat + 1, "a").Select
ActiveSheet.Paste
yeni.Quit
Set yeni = Nothing
Next
End Sub

 

[crossfire]

teşekkür ederim leventm

 

[crossfire]

merhaba,
denedim fakat
s1.Range("a2:i" & s1.[a65536].End(3).Row).Copy
kısmında application defined or object definede error hatası veriyor

 

[Levent Menteşoğlu]

Bu satırı aşağıdaki ile değiştirerek denermisiniz.

s1.Range("a2:j" & s1.[a65536].End(3).Row).Copy

 

[crossfire]

Çok teşekkür ederim, tam istediğimn çözüm oldu.
Tekrar teşekkür, ne mutlu bir bilenin her zaman olmasına

 

[silkap]

sayın leventm yukarıda verdiğiniz kod için çok teşekkürler. çok kullanışlı oldu benim için.bu kodla data klasörüne kayıtlı excel dosyalarının bir sayfasındaki sadece 1. satırın ilk 8 sütununda yazılı bilgileri alıp süzme işleminde kullanıyorum. benim isteğim 9. sütuna da veri alınan dosyanın köprüsünün atılması. böyle birşey olabilir mi? yardımcı olursanız sevinirim

 

[muratnal03]

Benİmde Ayni Sorunum Var

Bende Yardim İsteye Bİlİrmİyİm

 

[arşivist1]

teşekkür ederim çok faydalı oldu