Loop code

[Mindrage]

Sub Macro1()
'
Worksheets("Temp").Activate
lrow = Range("D65536").End(xlUp).Row
For i = 0 To lrow
d = 0
f = d + 1
G = "C" & f
If Range(G) = "50" Then
Range("D" & f).Value = Range("D" & f) * -1

Else
Range("D" & f).Value = Range("D" & f)

End If
Next

Dear All,

I need help with the above code, its not looping proper and not sure if the code will work correct as i want. Please could some one check and let me know.

 

[stefankemp]

Sub Macro1()
'
Worksheets("Temp").Activate
lrow = Range("D65536").End(xlUp).Row
For i = 1 To lrow
  G = "C" & i
  If Range(G) = "50" Then
    Range("D" & i).Value = Range("D" & i) * -1
  End If
Next

end sub

 

[Ruddles]

<delete>