buton sayesinde çalışma sayfaları arası veri aktarımı

[caylakmuhendis]

Merhabalar,
Forumda konu başlığıyla alakalı aşağıdaki koda ulaştım fakat kendi koduma bir türlü implement edemedim. User1.xlsm isimli çalışma kitabım var ve D:\TimeTracking\Master.xlsm dosya yoluna sahip Master.xlsm çalışma kitabım var. User1 çalışma kitabında A-I sütun aralığını (A ve I dahil) 6. satırdan itibaren Master.xlsm çalışma kitabının B ve J sütunları arasına 2. satırdan itibaren aktarmasını istiyorum. nasıl düzenleyebilirim kodu ??

Sub databaseyeaktar()
Set s1 = Sheets("sayfa1")

Workbooks.Open Filename:="d:\database1.xls"
SON = [A65536].End(3).Select
If ActiveCell.Address = "$A$1" Then
ActiveCell.Offset(1, 0).Select
ActiveCell = 1
Else
ActiveCell.Offset(1, 0).Select
ActiveCell = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = s1.[C2]
ActiveCell.Offset(0, 2).Value = s1.[C3]
ActiveCell.Offset(0, 3).Value = s1.[C4]
ActiveCell.Offset(0, 4).Value = s1.[C5]
ActiveCell.Offset(0, 5).Value = s1.[C6]
[A1].Select
Application.ScreenUpdating = True
MsgBox "KAYIT İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
ActiveWorkbook.Close
[s1].Select
End Sub

İyi çalışmalar

 

[caylakmuhendis]

En azından yönlendirebilecek olan biri yok mudur ??