Dim SlNo as Integer SlNo = 1 For Each c In Worksheets("Sheet1").Range("d9:d38").Cells If c.Value = "Yes" Then c.Value = "Done" [B]Range("c+3").Value = SlNo[/B] ' i am trying to update rows of col G SlNo = SlNo + 1 End If Next c
say d10 = Yes. Now I want to make G10 =1
d12 = Yes. Now I want to make G12 =2
how to do it?