is this what you wanted
Code:Sub SLA_ID() Dim Classification As String, class As String, volume As Integer, netWDay As Integer, classification2 As Integer Classification = Range("F2:F500").Value volume = Range("J2:J500").Value netWDay = Range("AH2:AH500").Value If ((Classification = "Reorganization" & netWDay <= 5)) Then classification2 = "Within SLA" Else Classification = "Beyond SLA" End If If ((Classification = "CR" & netWDay = 1)) Then classification2 = "Within SLA" Else Classification = "Beyond SLA" End If If ((Classification = "Other Forms" & netWDay <= 1)) Then classification2 = "Within SLA" Else Classification = "Beyond SLA" End If If ((Classification = "MMR" & volume <= 30)) Then class = "MMR_Low" Else Classification = "MMR_High" End If If ((class = "MMR_Low" & netWDay <= 2)) Then classification2 = "Within SLA" Else Classification = "Beyond SLA" End If If ((class = "MMR_High" & netWDay <= 5)) Then Classification = "Within SLA" Else Classification = "Beyond SLA" Range("AM2:AM500").Value = class Range("AL2:AL500").Value = classification2 End If End Sub




Reply With Quote
Please help!
_

Bookmarks