Quick Macro needed

[pklimchuk]

Hello Can someone help me with a Macro

I need a Macro;

If Y2 = "GGJKK", then what ever the value in W2 mulitipy by 2

but exclude the values that are ".20" ".18" ".16" ".14"

 

[Michael M]

Still untested

Sub Test()
Dim r As Long, lr As Long
lr = Cells(Rows.Count, "W").End(xlUp).Row
    For r = lr To 2 Step -1
        If Range("W" & r) <> 0.2 And Range("W" & r) <> 0.18 And Range("W" & r) <> 0.16 And Range("W" & r) <> 0.14 And Range("Y" & r).Value = "GGJYKK" Then Range("W" & r).Value = I * 2
        Next r
End Sub

 

[pklimchuk]

Still no luck.

 

[Michael M]

Ok, my last throw of the dice.....still untested.
Sorry, I don't have access to Excel at the moment

Sub Test()
Dim r As Long, lr As Long
lr = Cells(Rows.Count, "W").End(xlUp).Row
    For r = lr To 2 Step -1
        If Range("W" & r).Value <> 0.2 And Range("W" & r).Value <> 0.18 And Range("W" & r).Value <> 0.16 And Range("W" & r).Value <> 0.14 And Range("Y" & r).Value = "GGJYKK" Then Range("W" & r).Value = Range("W" & r) * 2
        Next r
End Sub

 

[pklimchuk]

Michael,

Thank you for all your help it worked

 

[Michael M]

Glad you got it sorted.
Bit hard when there is no Excel around to test it......cheers !!