Change cell font color on Worksheet_Change if cell was not blank prior

[SkywardPalm]

I have been trying to solve this for if a quantity cell is changed, but can't figure how to avoid if the cell was blank first. I only want to adjust the font color if the cell had a value in it prior to being changed.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim QtyCell As Range
    Set QtyCell = Cells(ActiveCell.Row, Range("Qty").Column)
    If Target.Address = QtyCell.Address Then
        'Check If QTY is Changed and adjust Font Color to Red


    End If
End Sub

 

[Joe4]

Are you manually changing these cell values, one at a time?
If so, then you should be able to the a "Worksheet_SelectionChange" event procedure to capture the existing sheet value as you select the cell (and store it in a global variable).
Then you can use that global variable in a comparison in your existing "Worksheet_Change" event procedure.
See: excel 2003 - vba - remember old cell value before change

 

[SkywardPalm]

Are you manually changing these cell values, one at a time?
If so, then you should be able to the a "Worksheet_SelectionChange" event procedure to capture the existing sheet value as you select the cell (and store it in a global variable).
Then you can use that global variable in a comparison in your existing "Worksheet_Change" event procedure.
See: excel 2003 - vba - remember old cell value before change

I am changing the cells manually, one at a time. This method worked perfectly, had to call the global variable outside of the worksheet object but I stored it through the Worksheet_SelectionChange and could use it in Worksheet_Change. Thanks for the help!

 

[Joe4]

You are welcome.
Glad I was able to help!