VBA Nesting If Statements for Dates

Hello,

I am having issues writing the VBA code for IF statements. I am essentially trying to nest IF statements within one another. I have it done through the regular If functions as seen in the attachment, but I cannot seem to get it to work with VBA. I need it to work in VBA without knowing how many rows of data there are. In the attachment you will see the rules that I need the data follow, but here is an example. Essentially, depending upon how large cell C2 is, I need to add a certain amount of months to whatever is in E2.

=IF(C2="","",IF(C2<500000,DATE(YEAR(E2),MONTH(E2)+1,DAY(E2)),IF(AND(C2>=500000,C2<1000000),DATE(YEAR(E2),MONTH(E2)+1,DAY(E2)),IF(AND(C2>=1000000,C2<=2000000),DATE(YEAR(E2),MONTH(E2)+1,DAY(E2)),IF(AND(C2>2000000,D2="Critical"),DATE(YEAR(E2),MONTH(E2)+2,DAY(E2)),IF(C2>2000000,DATE(YEAR(E2),MONTH(E2)+1,DAY(E2)),"Reevaluate"))))))

Thanks for your help.

It's really hard to work out from this mega formula what you are trying to do here. I suspect that this is not the best way to do what ever it is. Can you explain in natural language what you are trying to achieve.

So I apologize if the previous post was confusing, so here is another go. Depending upon the amount of money, I need to add a certain amount of months to the current date. Here is an example of what I need the code to do and then I can adapt it.

If the cost is over 20 (Cell C2) and critical (Cell D2)l, I need to add 2 months to the date in Cell E2.
If the cost is over 20 (Cell C2) and regular (Cell D2), I need to add 1 month to the date in Cell E2
If the Cost is between 10 and 20 (Cell C2) and regular (Cell D2), I need to add 1 month to the date in Cell E2.
If the the Cost is between 5 and 10 (Cell C2) and regular (Cell D2), I need to add 1 month to the date in Cell E2.
If the Cost is less than 5 (Cell C2) and regular (Cell D2), I need to add 1 month to the date in Cell E2.

Even though in this instance there is only one case where you will add 2 months, I need to have each IF Statement written so that I can change the code for other instances. Thanks!

Also, I am trying to do this in a loop because I do not know what the last row will be. In writing the code below, the debugger keeps stopping on "year". Any idea why?

Sub a()
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For I = 2 To FinalRow
If Cells(I, 3).Value < 500000 Then
Cells (I, 6).Value = Date(Year(I, 5),Month(I, 5)+1,Day(I, 5))

End Sub

The Date(Year,Month,Day) works if you just use it in the formula bar. I am unsure of how to use the dateserial in vba to add a certain amount of months to a date that is currently in a cell. If you know how to do so, I will gladly try it. Thank you.

That is exactly what I needed. I had one parenthesis in the wrong place. Thank you!