DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
b = ActiveSheet.Name
d = ActiveCell.Row - 1
e = ActiveCell.Column
f = ActiveCell.Offset(-1, 0).Value
Application.Windows("Kitap2.xlsm").Activate
Sheets(b).Cells(d, e).Value = f
Application.Windows("Kitap1.xlsm").Activate
End Sub