DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Workbook_Activate()
Application.OnKey "{F6}", "Kopyala"
Application.OnKey "{F7}", "Yapistir"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{F6}", ""
Application.OnKey "{F7}", ""
End Sub
Sub Kopyala()
Selection.Copy
End Sub
Sub Yapistir()
ActiveSheet.Paste
End Sub