Hi,
Can someone take a look at my macro and let me know which part is wrong as only the "error" and the "30+" is coming out.
Sub advancebooking()
Dim lRow As Long
Sheets("7raw").Select
lRow = Range("t" & Rows.Count).End(xlUp).Row
For i = 2 To lRow
If Cells(i, 21) >= 0 And Cells(i, 54) <= 2 Then
Cells(i, 62) = "0-02"
ElseIf Cells(i, 20) >= 3 And Cells(i, 54) <= 7 Then
Cells(i, 62) = "3-07"
ElseIf Cells(i, 20) >= 8 And Cells(i, 54) <= 14 Then
Cells(i, 62) = "8-14"
ElseIf Cells(i, 20) >= 15 And Cells(i, 54) <= 21 Then
Cells(i, 62) = "15-21"
ElseIf Cells(i, 20) >= 22 And Cells(i, 54) <= 30 Then
Cells(i, 62) = "22-30"
Else
Cells(i, 62) = "30+"
End If
Next i
End Sub
Thanks in advance!
Bookmarks