Make value in NX increase by 1 when EX = "Y".

[Keyser_Soeze]

Hi

I would like a macro that increases the value in NX by 1 when the value in EX is "Y" (value based on formula). This would happen only when I decide to run the macro and not automatically. Sheet is 233 rows and has headline so if E2 = "Y" then N2 up 1 and so on. I want it to happen in all rows when I run the macro.

Thanks a lot!

 

[Fluff]

How about

Sub KeyserSoeze()
   Dim Cl As Range
   
   For Each Cl In Range("E2", Range("E" & Rows.Count).End(xlUp))
      If Cl.Value = "Y" Then Cl.Offset(, 9).Value = Cl.Offset(, 9).Value + 1
   Next Cl
End Sub

 

[Keyser_Soeze]

Works fine. Thanks!

 

[Fluff]

You're welcome & thanks for the feedback.