Can't get code to run automatically

[joacro]

Hi there,

Wonder if someone can help.

I cant get the code below to run automatically everytime "I" is changed

Sub looping_code()
Dim LR As Long
Dim i As Long

LR = Range("G" & Rows.Count).End(xlUp).Row

For i = 1 To LR
If Range("I" & i) = 90000 Then
If Range("G" & i) >= 90000 Then
Range("K" & i) = "Gold"
ElseIf Range("G" & i) >= 70000 Then
Range("K" & i) = "Silver"
ElseIf Range("G" & i) >= 45000 Then
Range("K" & i) = "Bronze"
Else
Range("K" & i) = "Blue"
End If
ElseIf Range("I" & i) = 120000 Then
If Range("G" & i) >= 120000 Then
Range("K" & i) = "Gold"
ElseIf Range("G" & i) >= 90000 Then
Range("K" & i) = "Silver"
ElseIf Range("G" & i) >= 70000 Then
Range("K" & i) = "Bronze"
Else
Range("K" & i) = "Blue"
End If
End If
Next i
End Sub

Regards

 

[Derek Brown]

The code should be in the 'sheet' and should be the "Worksheet_Change" event.
If you want it to do something only when a cell in that column changes, you need to start with the following:

If Target.Column <> 9 Then
     Exit Sub
End If

Of course, if you have many rows you may find the processing (and re-calculations) will slow you down.