Goal seek VBA with If statement

[Aqusmacro]

Hi need simple help. But not simple for me

I have this VBA which is working great for Goal seek.
I would like to add a modification so that it runs only rows where Column C has a 1 inside

Sub GoalSeekWithMultipleCells()

Dim J As Integer

For J = 4 To 49
Cells(J, "e").GoalSeek Goal:=Cells(J, "d"), ChangingCell:=Cells(J, "h")
Next J

End Sub

[/CODE]

 

[hrayani]

see if below helps

Sub GoalSeekWithMultipleCells()

Dim J As Integer

For J = 4 To 49
    If Cells(J, "C").Value = 1 Then
        Cells(J, "E").GoalSeek Goal:=Cells(J, "D"), ChangingCell:=Cells(J, "H")
    End If
Next J

End Sub

 

[Aqusmacro]

Works perfectly thanks

 

[hrayani]

Works perfectly thanks

You are welcome & thank for the feedback