Oct 05 2022 09:19 PM
Hello,
Putting together bits and pieces of code found online,
This code works without error:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F:F")) Is Nothing Then
If Target < Worksheets("Versions").Range("D3") And Range("A1") = "K996" Then
Target.Interior.Color = vbRed
Target.Offset(0, 2).Value = 1
Else
Target.Interior.ColorIndex = -4142
Target.Offset(0, 2).Value = 0
End If
End If
End Sub
This code returns a Run-time error '13': Type mismatch error:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F:F")) Is Nothing Then
If Target < Worksheets("Versions").Range("D3") And Range("A1:A5") = "K996" Then
Target.Interior.Color = vbRed
Target.Offset(0, 2).Value = 1
Else
Target.Interior.ColorIndex = -4142
Target.Offset(0, 2).Value = 0
End If
End If
End Sub
Why does adding the :A5 (in red text) cause this error?
Is there a way to write the code that prevents the type mismatch error?
Thanks in advance for any suggestions offered.
Oct 06 2022 05:33 PM