Nested If in VBA Macro

[manoj_arsul]

Hi

Could you please help me to fix the below formula in column and its drop down (by increase cell count) till the last row in the VBA Macro

=IF(C2<2,"0-1 Days",IF(C2<3,"1-2 Days",IF(C2<4,"2-3 Days",IF(C2<6,"3-5 Days",">5 Days"))))

at the drop downing Column C has to increase C2,C3,C4....C10

A B C D
=IF(C2<2,"0-1 Days",IF(C2<3,"1-2 Days",IF(C2<4,"2-3 Days",IF(C2<6,"3-5 Days",">5 Days"))))
=IF(C3<2,"0-1 Days",IF(C3<3,"1-2 Days",IF(C3<4,"2-3 Days",IF(C3<6,"3-5 Days",">5 Days"))))
=IF(C4<2,"0-1 Days",IF(C4<,3"1-2 Days",IF(C4<4,"2-3 Days",IF(C4<6,"3-5 Days",">5 Days"))))


Thanks

 

[Peter_SSs]

You haven't said how we can determine what the "last row" is so I have assumed that we can tell that from column A. If that is not the case, change the red A in the code to another column that can be used to determine the last row (perhaps column C?)

Sub Insert_Formula()
  Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=IF(C2<2,""0-1 Days"",IF(C2<3,""1-2 Days"",IF(C2<4,""2-3 Days"",IF(C2<6,""3-5 Days"","">5 Days""))))"
End Sub

If this is what you meant then also note that you should be able to use this shorter formula instead (if you want)

Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=LOOKUP(C2,{0,2,3,5,6},{""0-1"",""1-2"",""2-3"",""3-5"","">5""})&"" Days"""

 

[manoj_arsul]

@Peter_SSs : Thank you so much!

 

[Peter_SSs]

@Peter_SSs : Thank you so much!

You're welcome. Glad it helped.