Excel Çalışma Kitapları Arası Veri Aktarımı

[a long time ago]

Herkese Merhaba,

Forumda arama yaptım ama öğrenmek istediğim konu ile ilgili cevaplar hem daha üst düzey (en azından benim için) hem de daha karışık örnekler içindi. Kısaca, eğer mümkünse alternatif yöntemlerle, yardımcı olursanız sevinirim.

Amacım A.xls dosyasında yer alan verileri B.xls dosyasına aktarmak. Temek mantığı anlamam halinde geri kalan uygulamaları kendim çözmeye çalışıcam.

Şimdiden teşekkürler

 

[isteobenim]

Merhaba,

Her iki dosyada açık ise,

Sub aktar()
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("B.xls").Activate
Range("A2").Select
ActiveSheet.Paste
Range("A2").Select
End Sub

 

[a long time ago]

Merhaba,

Her iki dosyada açık ise,

Sub aktar()
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("B.xls").Activate
Range("A2").Select
ActiveSheet.Paste
Range("A2").Select
End Sub

Kendirliii,

Cevabın için teşekkürler. Peki kaynak kitap yani A.xls kapalı ise nasıl bir değişiklik gerekir?

Tekrar teşekkürler

 

[isteobenim]

Sub aktar()
Workbooks.Open Filename:="C:\Users\buraya dosya adresini yazınız\A.xls"
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("B.xls").Activate
Range("A2").Select
ActiveSheet.Paste
Range("A2").Select
End Sub

 

[a long time ago]

Sub aktar()
Workbooks.Open Filename:="C:\Users\buraya dosya adresini yazınız\A.xls"
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("B.xls").Activate
Range("A2").Select
ActiveSheet.Paste
Range("A2").Select
End Sub

Son eklemiş olduğunuz kodlamayı A ve B dosyalarında ayrı ayrı çalıştırmayı denedim ama her ikisinde de hata veriyor..

Sorun ne olabilir açıkcası emin olamadım..