Otomatik Hücre Geçişi

[betsfat]

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D2:D" & Rows.Count)) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target <> "" Then Target.Offset(1, -3).Select
End Sub

 

[betsfat]

Korhan Bey çok teşekkür ederim...