Help vba to implement formula in a column

[Revathi]

Hi all,

Please assist on the below.

I need to implement the following formulas in the entire column AL (Used range) and the formula is

=IF(AND((AK2>=5),(AK2<=10)),"Between 5 & 10 Days",IF(AND((AK2>=10),(AK2<=15)),"Between 11 & 15 Days",IF((AK2)<5,"Less than 5 Days",IF((AK2)>15,"More than 15 Days"))))

Is it possible.

 

[Fluff]

Firstly you can simplify your formula like
=IF(AK3<5,"Less than 5 days",IF(AK3<=10,"Between 5 & 10 Days",IF(AK3<=15,"Between 11 & 15 Days","More than 15 Days")))
To use it on the entire column, just drag the formula down

 

[Revathi]

Is it possible to use this formula using vba code..

 

[Revathi]

This is my code.. but i dont know how to implement this in a single shot.. Please help

Sub sample21()
Worksheets("Raw datum").Activate
Dim score As Integer, result As String
score = Range("AK2").Value
If score >= 5 Then result = "Between 5 & 10 Days"
If score <= 10 Then result = "Between 05 & 10 Days"
If score >= 10 Then result = "Between 11 & 15 Days"
If score <= 15 Then result = "Between 11 & 15 Days"
If score < 5 Then result = "Less than 5 Days"
If score > 15 Then result = "More than 15 Days"
Range("AL2", "AL" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
Range("AL2").Value = result
End Sub

 

[Fluff]

If you just want the value returned try

Sub NumberofDays()
   With Range("AL2", Range("AK" & Rows.Count).End(xlUp).Offset(, 1))
      .Value = Evaluate(Replace("IF(@<5,""Less than 5 days"",IF(@<=10,""Between 5 & 10 Days"",IF(@<=15,""Between 11 & 15 Days"",""More than 15 Days"")))", "@", .Offset(, -1).Address))
   End With
End Sub