# excel vba code nested if

Hi, I have problem finding solution with below task:

IF column C =99, And column D =99, and column E=9 and column F=9, and column B = 01 OR 02, And column A GOD =<1989 THEN cell in column C= 00 and cell in column E = 0 And Colour in orange.

IF column C =99, And column D =99, and column E=9 and column F=9, and column B = 01 OR 02, And column A GOD >1989 THEN cell in column D= 00 and cell in column F = 0 And Colour in Yellow.

IF column C =99, And column D  =99, and column E=9 and column F=9, and column B = 03, And column A GOD =<1990 THEN cell in column C= 00 and cell in column E = 0 and Colour in blue.

IF column C =99, And column D =99, and column E=9 and column F=9, and column B = 03, And column A GOD >1990 THEN cell in column D= 00 and cell in column F = 0 And Colour in green

Can you help me?
###### Who is Participating?

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Commented:
Could you send a dummy?
Author Commented:
Commented:
Hi,

pls try
``````Sub macro()
For Each c In Range(Range("C2"), Range("C" & Cells.Rows.Count).End(xlUp))
If c = 99 And c.Offset(0, 1) = 99 And c.Offset(0, 2) = 9 And c.Offset(0, 3) = 9 Then
If c.Offset(0, -1) = 1 Or c.Offset(0, -1) = 2 Then
If c.Offset(0, -2) <= 1989 Then
c.Offset(0, 2).Value = 0
c.Offset(0, -2).Interior.Color = RGB(255, 192, 0)
c.Interior.Color = RGB(255, 192, 0)
c.Offset(0, 2).Interior.Color = RGB(255, 192, 0)
Else
c.Offset(0, 3).Value = 0
c.Offset(0, -2).Interior.Color = RGB(255, 255, 153)
c.Offset(0, 1).Interior.Color = RGB(255, 255, 153)
c.Offset(0, 3).Interior.Color = RGB(255, 255, 153)
End If
ElseIf c.Offset(0, -1) = 3 Then
If c.Offset(0, -2) <= 1990 Then
c.Offset(0, 2).Value = 0
c.Offset(0, -2).Interior.Color = RGB(0, 176, 240)
c.Interior.Color = RGB(0, 176, 240)
c.Offset(0, 2).Interior.Color = RGB(0, 176, 240)
Else
c.Offset(0, 3).Value = 0
c.Offset(0, -2).Interior.Color = RGB(204, 255, 102)
c.Offset(0, 1).Interior.Color = RGB(204, 255, 102)
c.Offset(0, 3).Interior.Color = RGB(204, 255, 102)
End If
End If

End If
Next
End Sub
``````
Regards

Experts Exchange Solution brought to you by