Sub GetData()
Dim sFile, tFile As Workbook
Set tFile = ThisWorkbook
Set sFile = Workbooks.Open("C:\xlsx\Liste1(Senelik Mazeret).xlsm") 'DOSYA YOLUNU KENDİ DOSYA YOLUNUZ İLE DEĞİŞTİRİN
sFile.Worksheets("Sayfa1").Range("A:E").Copy
tFile.Activate
tFile.Worksheets("Senelik Mazeret").Activate 'DATAYI YAPIŞTIRACAĞINIZ SAYFA İLE DEĞİŞTİRİN
tFile.Worksheets("Senelik Mazeret").Cells(1, 1).Select 'DATAYI YAPIŞTIRACAĞINIZ SAYFA İLE DEĞİŞTİRİN
ActiveSheet.Paste
Application.CutCopyMode = False
sFile.Close
Set sFile = Nothing
Set tFile = Nothing
ThisWorkbook.Activate
Worksheets("Senelik Mazeret").Activate 'DATAYI YAPIŞTIRACAĞINIZ SAYFA İLE DEĞİŞTİRİN
Worksheets("Senelik Mazeret").Range("A1").Select 'DATAYI YAPIŞTIRACAĞINIZ SAYFA İLE DEĞİŞTİRİN
End Sub
Aşağıdaki kodu sayfanızda tanımlayacağınız bir butona tanımlayıp kullanabilirsiniz. Sanırım işinize yarayacaktır.
