Kapalı Excel dosyasından hücre kopyalama

[kadir78]

İyi günler. Aynı klasör içerisinde bulunan kaynak.xlsx dosyasından, hedef.xlsx dosyasına makro kodları ile basit hücre kopyalama yapmak için makro kodu gerekiyor.

Örnek: Kaynak.xlsx dosyasında sayfa1 içerisinde bulunan B2 hücresini, Hedef.xlsx dosyasındaki sayfa2 içerisindeki D4 hücresine kopyalamak için. Makro kodları Hedef.xlsx dosyasında bulunacak. Hedef.xlsx açıkken makro kodu ile kaynak.xlsx dosyasındaki hücre verisini kopyalamak için gerekiyor. Yardımcı olurmusunuz.

 

[GursoyC]

Öncelikle kodlarınız .xlsx dosyasında olamaz. Dosyanızın uzantısı .xlsm olmalı.
Kodlarınız şunlar :

Private Sub CommandButton1_Click()
yol = ThisWorkbook.Path & Application.PathSeparator
Workbooks.Open yol & "kaynak.xlsx"

Workbooks("kaynak.xlsx").Worksheets("sayfa1").[B2].Copy Destination:= _
Workbooks("hedef.xlsm").Worksheets("Sayfa2").[D4]
Application.CutCopyMode = False
Workbooks("kaynak.xlsx").Close False
End Sub

 

[kadir78]

Biraz bu konularda acemiyim kusura bakmayın. Kodlar için teşekkür ederim.

 

[GursoyC]

Rica ederim, kolay gelsin.

 

[Orion1]

Alternatif.

Sub deger()
Range("D4").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[kaynak.xlsx]Sayfa1'!R2C2")
End Sub

 

[kadir78]

Sayın Hocam. 400 Hatası veriyor. Biraz uğraştım fakat çözemedim.

 

[Orion1]

Kaynak dosyanın , dosya uzantısı farklı olabilir.Ona bakın.

 

[kadir78]

Sayın Hocam. Sorun Birleştirilmiş hücreden kaynaklanıyormuş. Destekleriniz için teşekkür ederim. Elinize, emeğinize sağlık. İyi günler.

 

[Orion1]

Sayın Hocam. Sorun Birleştirilmiş hücreden kaynaklanıyormuş. Destekleriniz için teşekkür ederim. Elinize, emeğinize sağlık. İyi günler.

İyi çalışmalar.