Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Me.Range("B2:B10000")) Is Nothing Then
Application.EnableEvents = False
If Target.Offset(, -1) = "" Then
Target = ""
Target.Offset(, -1).Select
End If
Application.EnableEvents = True
End If
If Not Intersect(Target, Me.Range("C2:C10000")) Is Nothing Then
Application.EnableEvents = False
If Target.Offset(, -1) = "" Then
Target = ""
For I = 2 To 1 Step -1
If Target.Offset(, -I) = "" Then
Target.Offset(, -I).Select
Exit For
End If
Next
End If
Application.EnableEvents = True
End If
If Not Intersect(Target, Me.Range("D2:D10000")) Is Nothing Then
Application.EnableEvents = False
If Target.Offset(, -1) = "" Then
Target = ""
If Target.Offset(, -1) = "" Then
Target = ""
For I = 3 To 1 Step -1
If Target.Offset(, -I) = "" Then
Target.Offset(, -I).Select
Exit For
End If
Next
End If
End If
Application.EnableEvents = True
End If
End Sub
کامنت