Çalışma kitapları arası veri yansıtma

[sedo35]

Merhabalar,

sitede birkaç örnek buldum fakat anlayamadım tam.

a kitabının 1. sayfasının a1 hücresine yazdığım verinin b kitabının 1. sayfasının c1 hücresinde görünmesini istiyorum kısa ve anlaşılır bir şekilde anlatırsanız sevinirim. excel 2007 kullanıyorum. şimdiden teşekkürler.

 

[Orion1]

örnek dosyalarınızı eklermisiniz?

 

[sedo35]

örnek dosyalarınızı eklermisiniz?

ekliyebilsem eklicem de ekleyemedim

 

[Orion1]

ekliyebilsem eklicem de ekleyemedim

Dosya ekleme sitelerinden link alıp buraya yapıştırabilirisiniz.

 

[sedo35]

Dosya ekleme sitelerinden link alıp buraya yapıştırabilirisiniz.

http://www.dosya.tc/server31/bJiNlM/b.xlsx.html

http://www.dosya.tc/server31/bJiNlM/a.xlsx.html

 

[Orion1]

Doayanız aşağıdaki linktedir.
Not : 2 dosyada ayni klasörün içinde olmalı.

Private Sub Workbook_Activate()
Dim deg As Variant
deg = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[a.xlsx]Sayfa1'!R1C1")
ThisWorkbook.Sheets("Sayfa1").Range("C1").Value = deg
End Sub

 

[sedo35]

Doayanız aşağıdaki linktedir.
Not : 2 dosyada ayni klasörün içinde olmalı.

Private Sub Workbook_Activate()
Dim deg As Variant
deg = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[a.xlsx]Sayfa1'!R1C1")
ThisWorkbook.Sheets("Sayfa1").Range("C1").Value = deg
End Sub

ilginiz için teşekkür ederim fakat dosyayı indiremiyorum altın üyelik istiyor bu yukarıda ki kodu b kitabının neresine yazmam gerekiyor. bir de a ve b kitapları aynı klasördemi olması gerekiyor.

 

[Orion1]

ilginiz için teşekkür ederim fakat dosyayı indiremiyorum altın üyelik istiyor bu yukarıda ki kodu b kitabının neresine yazmam gerekiyor. bir de a ve b kitapları aynı klasördemi olması gerekiyor.

Thisworkbook modülüne yazmalısınız.
Her 2 dosya ayni klasörde olmalı.