Looping a Select Case 1

[joeyballz]

Hi I have a SQL query returning a status code to Excel that I need to convert to text i.e. 4 = sucess

There are 11 possibilities
Select Case Range("N6")
Case "1"
Range("G6").Value = "Running"
Case "2"
Range("G6").Value = "Starting"
--- etc
End Select

My problem is I need to run this on 135 cells and can not figure out how to loop this to run on each cell like the next row N7, G7 down to N135, G135 without actually writing the select case range for each cell.

Can any one give some guidence? Thanks.

 

[AnotherHiggins]

For Each cell In Range("N2:N136")
    Select Case cell.Value
        Case 1
            cell.Offset(, -7) = "running"
        Case 2
            cell.Offset(, -7) = "starting"
        Case Else
    End Select
Next cell

[tt][blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ 181-2886 before posting.

 

[joeyballz]

Thanks soo much! Works perfectly.