Makro komutu kullanarak başka dosya ile haberleşme

[HBKN84]

Merhaba arkadaşlar,

Örnek olarak 2 excel dosyam var. 1 numaralı excel dosyamda makro kullanarak, kapalı olarak başka bir dizinde olan 2 numaralı excel dosyamda belirlemiş olduğum sheet içinde belirli bir alanı, 1 no'lu dosyamda göstersin istiyorum. Mümkün müdür?

Yardımlarınız lütfen. Teşekkürler

 

[HBKN84]

Örnek dosya ekledim, ÖRNEK1'de taralı olan alanı, ÖRNEK2 dosyamda komut ile aynı formatta getirmek istiyorum.

 

[asi_kral]

Merhaba
Mümkündür bu istediğiniz ama dosya yok
Ayrıca 2. dosyanın bulunduğu yoluda söylerseniz ona göre çözüm üretelim.

 

[HBKN84]

Dosyayı ekledim, sizin cevabınızdan önce eklemiştim. Dosya yolu olarak T:\AF\HBERKKAN dizinini kullanabilirz. Bu dizinde ÖRNEK 1 dosyası olacak. Aynı formatı yine öbür tarafta sağlamak istiyorum.

 

[asi_kral]

Dosyayı ekledim, sizin cevabınızdan önce eklemiştim. Dosya yolu olarak T:\AF\HBERKKAN dizinini kullanabilirz. Bu dizinde ÖRNEK 1 dosyası olacak. Aynı formatı yine öbür tarafta sağlamak istiyorum.

Merhaba
Örnek2 dosyanızda boş bir module oluşturun ve bu kodu deneyin.

Option Explicit
Sub veri_aktar()
Dim YL As String, DSY As Excel.Application
Dim KTP As Workbook, S1 As Worksheet
Dim S2 As Worksheet, STN As Long
Dim ÇLŞ As Variant
Application.ScreenUpdating = False
[COLOR="Red"]YL = "T:\AF\HBERKKAN\"[/COLOR]
Set DSY = CreateObject("Excel.Application")
DSY.Visible = False
Set S1 = ActiveWorkbook.ActiveSheet
[COLOR="Green"]S1.Cells.Delete[/COLOR]
ÇLŞ = ActiveCell.Address
Set KTP = DSY.Workbooks.Open(YL & "[COLOR="Blue"]ÖRNEK1.xlsx[/COLOR]")
Set S2 = KTP.Sheets("Sheet1")
S2.Range("A2:Q80").Copy
S1.Range("A2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
For STN = 1 To 17
S1.Columns(STN).ColumnWidth = S2.Columns(STN).ColumnWidth
Next
KTP.Save: KTP.Close: DSY.Quit
Range(ÇLŞ).Select
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation
End Sub

Kırmızı yere sürücü yolunu yazınız.
Mavi yere dosyanın adını uzantısı ile birlikte yazınız.

 

[HBKN84]

yazmış olduğunuz kodu denedim, tam istediğim gibi. Ama verileri aktardığım yerde daha önceden yazılmış bilgiler olacak, o bilgiler ve makro butonu kayboluyor. Kaybolmaması için ne yapmam gerekir

 

[asi_kral]

yazmış olduğunuz kodu denedim, tam istediğim gibi. Ama verileri aktardığım yerde daha önceden yazılmış bilgiler olacak, o bilgiler ve makro butonu kayboluyor. Kaybolmaması için ne yapmam gerekir

Merhaba
Üstteki kodda yeşil olarak işaretlediğim yeri silin yada pasif hale getirin.