VBA Code:
Sub t()
Dim cel As Range, Rng As Range, stage As String
Worksheets("Page1").Activate
Range("K").Select
Set Rng = Range(Selection, Selection.End(xlDown))
For Each cel In Rng
stage = cel.Text
Select Case stage
Case "DBM"
cel.Offset(, 1) = "CLOSED"
cel.Offset(, 2) = "CRD"
Case "CRD"
cel.Offset(, 1) = "CLOSED"
cel.Offset(, 2) = "CRD"
Case "USE"
cel.Offset(, 1) = "CLOSED"
cel.Offset(, 2) = "USED"
Case "DSP"
cel.Offset(, 1) = "CLOSED"
cel.Offset(, 2) = "DSP"
Case "RTU"
cel.Offset(, 1) = "CLOSED"
cel.Offset(, 2) = "USED"
Case "RPL"
cel.Offset(, 1) = "CLOSED"
cel.Offset(, 2) = "STK"
Case "RTS"
cel.Offset(, 1) = "CLOSED"
cel.Offset(, 2) = "STK"
Case "RPN"
cel.Offset(, 1) = "CLOSED"
cel.Offset(, 2) = "STK"
Case "RPR"
cel.Offset(, 1) = "CLOSED"
cel.Offset(, 2) = "STK"
Case "OUT"
cel.Offset(, 1) = "OPEN"
cel.Offset(, 2) = "UNRESOLVED"
Case "NEW"
cel.Offset(, 1) = "OPEN"
cel.Offset(, 2) = "UNRESOLVED"
End Sub
when i try to run this macro i get an error saying compile error select case without end select. I dont know what that means...and im guessing what i created is completely wrong?..