Pinaceous
Well-known Member
- Joined
- Jun 11, 2014
- Messages
- 1,113
- Office Version
- 365
- Platform
- Windows
Hi All,
I'm working on an If statement criteria now where, if Column F has a value and Column B is blank; Column B's cell produces an interior red color cell with the text "1299".
I would like to add a second criteria; were if the user types over the Column B interior cell color red with this value of "1299" to, for example "1234" (anything else but "1299"!) it will clear the interior color red cell for that Column B's cell.
I'm stomped!
Please help me, if you can!
Thanks,
pinaceous
I'm working on an If statement criteria now where, if Column F has a value and Column B is blank; Column B's cell produces an interior red color cell with the text "1299".
VBA Code:
Private Sub ColumnB_ChangeF(ByVal Target As Range)
Dim n As Long
n = Target.row
If Range("B" & n).Interior.ColorIndex = xlNone _
And Range("B" & n) = "" _
And Range("F" & n) <> "" Then
Range("B" & n).Interior.ColorIndex = 3
Range("B" & n) = "1299"
End If
End Sub
I would like to add a second criteria; were if the user types over the Column B interior cell color red with this value of "1299" to, for example "1234" (anything else but "1299"!) it will clear the interior color red cell for that Column B's cell.
I'm stomped!
Please help me, if you can!
Thanks,
pinaceous