Option
Explicit
Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
If
Target.Row > 50
Then
Exit
Sub
If
Target.Column > 8
Then
Exit
Sub
If
Target.Column = 4
Then
If
Target =
""
Then
Exit
Sub
Application.EnableEvents =
False
If
Target <>
"x"
Then
Target =
"x"
Target.Offset(0, 1) =
""
Target.Offset(0, 2) =
""
Target.Offset(0, 3) =
""
ElseIf
Target.Column = 5
Then
If
Target =
""
Then
Exit
Sub
Application.EnableEvents =
False
If
Target <>
"x"
Then
Target =
"x"
Target.Offset(0, 1) =
""
Target.Offset(0, 2) =
""
Target.Offset(0, -1) =
""
ElseIf
Target.Column = 6
Then
If
Target =
""
Then
Exit
Sub
Application.EnableEvents =
False
If
Target <>
"x"
Then
Target =
"x"
Target.Offset(0, 1) =
""
Target.Offset(0, -1) =
""
Target.Offset(0, -2) =
""
ElseIf
Target.Column = 7
Then
If
Target =
""
Then
Exit
Sub
Application.EnableEvents =
False
If
Target <>
"x"
Then
Target =
"x"
Target.Offset(0, -1) =
""
Target.Offset(0, -2) =
""
Target.Offset(0, -3) =
""
ElseIf
Target.Column = 8
Then
If
Target =
""
Then
Exit
Sub
Application.EnableEvents =
False
If
Target <>
"x"
Then
Target =
"x"
Target.Offset(0, -1) =
""
Target.Offset(0, -2) =
""
Target.Offset(0, -3) =
""
Target.Offset(0, -4) =
""
End
If
Application.EnableEvents =
True
End
Sub