DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Private Sub Workbook_Activate()
Application.OnKey "^r", "AKTAR_SAĞ"
Application.OnKey "^d", "AKTAR_ÜST"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "^r"
Application.OnKey "^d"
End Sub
Option Explicit
Sub AKTAR_SAĞ()
If ActiveCell.Column = 1 Then Exit Sub
ActiveCell = ActiveCell & ActiveCell.Offset(0, -1)
[COLOR=red]Application.SendKeys "{F2}", True[/COLOR]
End Sub
Sub AKTAR_ÜST()
If ActiveCell.Row = 1 Then Exit Sub
ActiveCell = ActiveCell & ActiveCell.Offset(-1, 0)
[COLOR=red]Application.SendKeys "{F2}", True[/COLOR]
End Sub
Option Explicit
Private Sub Workbook_Activate()
Application.OnKey "^+r", "AKTAR_SAĞ"
Application.OnKey "^+d", "AKTAR_ÜST"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "^+r"
Application.OnKey "^+d"
End Sub