A
Alex McDermott
Hi,
I have the following but for the code to work the user needs to goback to
the cell, if they type 100 and then goto another cell nothing happens but
then if revisit the cell it works - what am I doing wrong?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngActual As Range
Dim rngActualFinish As Range
Set rngActual = Range("Actual")
Set rngActualFinish = Range("ActualFinish")
ColumnID = Range("ActualFinish").Column
If Not Intersect(rngActual, Target) Is Nothing Then
With Cells(ActiveCell.Row, ColumnID)
If Cells(ActiveCell.Row, ColumnID) = "" Then
If ActiveCell.Value = 100 Then
.Interior.ColorIndex = 3
Else
.Interior.ColorIndex = 15
End If
End If
End With
End If
End Sub
I have the following but for the code to work the user needs to goback to
the cell, if they type 100 and then goto another cell nothing happens but
then if revisit the cell it works - what am I doing wrong?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngActual As Range
Dim rngActualFinish As Range
Set rngActual = Range("Actual")
Set rngActualFinish = Range("ActualFinish")
ColumnID = Range("ActualFinish").Column
If Not Intersect(rngActual, Target) Is Nothing Then
With Cells(ActiveCell.Row, ColumnID)
If Cells(ActiveCell.Row, ColumnID) = "" Then
If ActiveCell.Value = 100 Then
.Interior.ColorIndex = 3
Else
.Interior.ColorIndex = 15
End If
End If
End With
End If
End Sub