keithkemble
Board Regular
- Joined
- Feb 15, 2002
- Messages
- 160
My objective is to be able to place an indicator 1 cell to the right of any cell that a user changes.
I can use the following but cannot determine what should replace the Target.Value > 100
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
ThisRow = Target.Row
If Target.Value > 100 Then
Range("B" & ThisRow).Interior.ColorIndex = 3
Else
Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone
End If
End If
End Sub
Any suggestions ?
Thanks
I can use the following but cannot determine what should replace the Target.Value > 100
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
ThisRow = Target.Row
If Target.Value > 100 Then
Range("B" & ThisRow).Interior.ColorIndex = 3
Else
Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone
End If
End If
End Sub
Any suggestions ?
Thanks