Code:
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?