The MCTS: Microsoft Exchange Server 2010 certification validates your skills in supporting the maintenance and administration of the Exchange servers in an enterprise environment. Learn everything you need to know with this course.
If Cells(c, "A") = "PO" Then
If Cells(c, "U") > 150 Then Cells(c, "Q") = "POHW"
If Cells(c, "B") >= "Fedex Letter" Then Cells(c, "Q") = "POL"
If Cells(c, "B") >= "Fedex Pak" Then Cells(c, "Q") = "POP"
End If
If Cells(c, "A") = "PO" And Cells(c, "U") > 150 Then Cells(c, "Q") = "POHW"
If Cells(c, "A") = "PO" And Cells(c, "B") >= "Fedex Letter" Then Cells(c, "Q") = "POL"
If Cells(c, "A") = "PO" And Cells(c, "B") >= "Fedex Pak" Then Cells(c, "Q") = "POP"
'........... ETC.......
Dim c As Long, LR As Long
LR = Range("A2").End(xlDown).Row
For c = LR To 2 Step -1
If Cells(c, "A") = "PO" And Cells(c, "U") > 150 Then Cells(c, "Q") = "POHW"
If Cells(c, "A") = "PO" And Cells(c, "B") >= "Fedex Letter" Then Cells(c, "Q") = "POL"
If Cells(c, "A") = "PO" And Cells(c, "B") >= "Fedex Pak" Then Cells(c, "Q") = "POP"
'...........
Next
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Is this what you are looking for?
If the answer is yes, you can continue to add all your If statements.
Open in new window