Makro ile bağ yapıştır

[bebar]

Merhaba,

Makro ile bağ yapıştır mümkünmüdür varsa örnek bir kod paylaşabilirmisiniz?

Teşekkür ederim

 

[YUSUF44]

Aşağıdaki kodları Makro kaydet yoluyla elde ettim. Sayfa1'in A1:A3 hücrelerini Sayfa2'nin A1:A3 hücrelerine bağ yapıştırıyor:

Sub Makro1()
    Sheets("Sayfa1").Select
    Range("A1:A3").Select
    Selection.Copy
    [A1].Select
    Sheets("Sayfa2").Select
    [A1].Select
    ActiveSheet.Paste Link:=True
    [A1].Select
    Application.CutCopyMode = False
End Sub

Siz de bu türden kodları makro kaydet yoluyla elde edebilirsiniz.

 

[bebar]

Teşekkür ederim fakat ben sekmeler arasında değil dosyalar arasında gerçekleşen bağ yapıştırmadan bahsetmiştim

 

[YUSUF44]

Nerde bahsetmiştiniz?

 

[alicimri]

iki dosyada aynı klasörde ise. Aşağıda b.xlsm dosyasına yapıştıracağınız makro; a.xlsx Sayfa1 A1 hücresini b.xlsm Sayfa1 A1 hücresine bağlar

Range("A1").FormulaR1C1 = "=[a.xlsx]Sayfa1!R1C1"

 

[bebar]

Hocam şöyle açıklayayım

aynı klasör içinde bulunan 2 dosyam var 1. dosyanın B4:E150 aralığını 2. dosyanın A4: D150 hücre aralığına 1 dosya kapalı olsa bile kopyalamak istiyorum.

 

[alicimri]

Makro biraz kafa karıştırıcı oluyor.
Manuel olarak yapın daha kolay olur. kitap 2 de A4 hücresinde iken Formül çubuğuna;
=' (eşit ve tek tırnak) yazdıktan sonra devamına [1.xlsx]Sayfa1'!B4 ekleyin. formülü aşağı sağa doğru çekerek çoğaltın.