Private Sub Worksheet_Change(ByVal Target As Range)
'
' What_If Macro
'This Macros deletes one cell if another has a value in it
'For Medium duty cell inputs
Application.EnableEvents = False
If IsNumeric(Target.Value) Then
'Clear the Invalid entry
Range("L4").ClearContents
Range("L5").ClearContents
If Target.Address = "$K$4" Then
Range("K5").ClearContents
ElseIf Target.Address = "$K$5" Then
Range("K4").ClearContents
End If
Else
Range(Target.Address).ClearContents
Target.Next = "Invalid Input"
End If
'For Severe Service cell inputs
If IsNumeric(Target.Value) Then
'Clear the Invalid entry
Range("L28").ClearContents
Range("L29").ClearContents
If Target.Address = "$K$28" Then
Range("K29").ClearContents
ElseIf Target.Address = "$K$29" Then
Range("K28").ClearContents
End If
Else
Range(Target.Address).ClearContents
Target.Next = "Invalid Input"
End If
'For Heavy Duty cell inputs
If IsNumeric(Target.Value) Then
'Clear the Invalid entry
Range("L48").ClearContents
Range("L49").ClearContents
If Target.Address = "$K$48" Then
Range("K49").ClearContents
ElseIf Target.Address = "$K$49" Then
Range("K48").ClearContents
End If
Else
Range(Target.Address).ClearContents
Target.Next = "Invalid Input"
End If
Application.EnableEvents = True
End Sub
Bookmarks