Başka bir excel dosyasına veri aktarma

[sezer32]

Merhaba, aşağıdaki kodu sn.Numan bey yazıverdi.Konu değişik olduğu için başlık açmam daha uygun sanırım..

C: de bulunan excel dosyasına nasıl veri aktarabilirim?
Kalınlaştırdığım kısmı sonradan ekledim ama olmadı..
Yardımlarınız için şimdiden teşekkürler..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [af:af]) Is Nothing Then Exit Sub
Workbooks.Open Filename:="c:\Sat-Kar-2017 6 V2.xlsx"
Selection.Copy
Sheets("Sat-Kar-2017 6 V2").Range("af10").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("Sat-Kar-2017 6 V2").Select
End Sub

 

[PLİNT]

Merhaba
Kapalı dosyada "Sat-Kar-2017 6 V2" isimli sayfa olmak şartı ile;
aşağıdaki gibi deneyiniz

[SIZE="2"]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [af:af]) Is Nothing Then Exit Sub
Dim s As Workbook
Selection.Copy
Workbooks.Open Filename:="C:\Sat-Kar-2017 6 V2.xlsx"
Set s = Workbooks("Sat-Kar-2017 6 V2")
s.Sheets("Sat-Kar-2017 6 V2").Select
s.Sheets("Sat-Kar-2017 6 V2").Range("af10").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
s.Close savechanges:=True
End Sub [/SIZE]

 

[numan şamil]

Merhaba
Plint Hocamın Affına sığınarak
Eğer sorun çıkarsa
Kırmızı noktalı vere veri aktarılacak dosyayı açmadan üzerine gelip sağ tuş yapın
çıkan pencereden konumda yazan kısmı kopyalayıp yapıştırıp dener misiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [af:af]) Is Nothing Then Exit Sub
Dim s As Workbook
Selection.Copy
Workbooks.Open Filename:="[COLOR="Red"]...............[/COLOR]\Sat-Kar-2017 6 V2.xlsx"
Set s = Workbooks("Sat-Kar-2017 6 V2")
s.Sheets("Sat-Kar-2017 6 V2").Select
s.Sheets("Sat-Kar-2017 6 V2").Range("af10").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
s.Close savechanges:=True
End Sub