DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:H]) Is Nothing Then Exit Sub
If Target.Column = 8 Then
Target.Offset(1, -7).Select
Else
Target.Offset(0, 1).Select
End If
Son:
End Sub