Excel dosyasından, başka bir excele veri aktarma?

[tornadoo]

Merhaba, çok sayıda excel dosyasından belirli bir satır ve sütündaki veriyi alıp, başka bir excel dosyasına alt alta yazmam gerekiyor.. Bunu tek tek yapmak çok zaman kaybı, umarım kolay bir yolu vardır bunun.. Forumdaki 'excelden excele veri aktarımı' ile ilgili başlıkları okudum fakat pek başarılı olduğum söylenemez yardım ederseniz sevinirim.. Teşekkürler..


Cogne.xls dosyasındaki, "COG 301636" yazısının, form.xls dosyasındaki D sutununa gelmesini ve bunun her dosya için yapmasını sağlayabilir miyim? Yoksa çok şey mi istemiş olurum

 

[N.Ziya Hiçdurmaz]

yanıt

Tüm işlem görecek kitaplar açık olmalı kodu (cogne dosyanızın kod bölümüne koyup çalıştırınız.)

Sub test()
Set s1 = Sheets("Tablo1")
For i = 2 To Workbooks.Count
s1.[O14].Copy
s = WorksheetFunction.CountA(Workbooks(i).Sheets("Sheet1").[d1:d65536])
Workbooks(i).Sheets("Sheet1").Range("d" & s + 1).PasteSpecial
Next
Application.CutCopyMode = False
End Sub

 

[tornadoo]

Teşekkür ederim ilginiz için fakat sanırım ben başaramadım

 

[N.Ziya Hiçdurmaz]

yanıt

İstediğiniz dosyaları açıp cogne dosyasındaki kodu çalıştırın.

 

[tornadoo]

Tek bir book açık iken çalışıyor fakat, birden çok açınca aşağıdaki hata çıkıyor:
Run-time error '9':
Subscript out of range

 

[tornadoo]

Tek tek kopyala yapıştır yapacağım yani, puff ):