Updating Range Cells Through Loop

[animas]

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?

 

[somnath_it2006]

Replace below line for update the G column data:

Range("c+3").Value = SlNo ' i am trying to update rows of col G

With

Range("G" & c.Row).Value = SlNo ' i am trying to update rows of col G

 

[animas]

thank you.