• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

C

crossfire

Katılım
20 Kasım 2005
Mesajlar
27
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
 
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.
 
Şö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.
 
Dosyaların bulunduğu klasör yolunu yazarmısınız.
 
Şö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.
 
öncelikle teşekkür ederim "bağ yapıştır" ingilizce versiyon da ne demek, nasıl yapılır?
 
Aşağıdaki kodu deneyin.

Kod: 
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
 
merhaba,
denedim fakat
s1.Range("a2:i" & s1.[a65536].End(3).Row).Copy
kısmında application defined or object definede error hatası veriyor
 
Bu satırı aşağıdaki ile değiştirerek denermisiniz.

s1.Range("a2:j" & s1.[a65536].End(3).Row).Copy
 
Çok teşekkür ederim, tam istediğimn çözüm oldu.
Tekrar teşekkür, ne mutlu bir bilenin her zaman olmasına
 
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
 
teşekkür ederim çok faydalı oldu
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst