VBA Goal Seek Multiple Rows

Question

This should be simple I just can't wrap my head around it

I have 3 columns

ABCI want to run a goal seek on B and C if A has data in it

Range("B3").GoalSeek Goal:=0, ChangingCell:=Range("C3")

I want something similar to this:

  If CellA>0:
     Range("D1").GoalSeek Goal:=0, ChangingCell:=Range("C1")

This could be some 7000 lines worth if that makes any difference

Answer 1

Try this:

Dim rCell As Range

For Each rCell In ActiveSheet.UsedRange.Resize(, 1)
    If rCell.Value <> "" Then
        rCell.Offset(, 3).GoalSeek Goal:=0, ChangingCell:=rCell.Offset(, 2)
    End If
Next rCell

This code sample is based on your last comment above. It will change the cell in column C to give 0 in the formula in the D column.