VBA code to automate goal seek

[Bkisley]

I need a goal seek to run every single time the value in cell F1 does not equal zero. When this cell equals zero, that means my numbers tie, if it does not then I need to create a "plug value" to make that value in F1 equal zero. The cell that needs to change is cell D21.

When doing a manual goal seek here is the set up
Set Cell: F1
To value: 0
By changing cell: D21

An alternative solution would be to automatically adjust cell D21 on a tab called Financial every time cell D42 on that same tab does not equal cell K52 on a separate tab named ROCE so that D42 on the financial tab = K52 on the ROCE tab. Cell D21 is the plug in the equation to get a value in D42.

Please please please help me stop this headache of mine!
Thank you very much in advance

 

[jscranton]

Doesn't sound like a vba project. This formula in D21 will give you the value in d21 if F1 is zero or the value needed to make f21 0.

=IF(F1=0,D21,F1*-1)

 

[Bkisley]

Hello, that does not work unfortunately....This does in fact need to be a goal seek or a solver function.

 

[James006]

Hello,

Take a look at this thread ...

http://www.mrexcel.com/forum/excel-questions/393403-goal-seek-visual-basic-applications-variables.html

HTH

 

[Bkisley]

I am not seeing where/how my cells would fit into that code...Sorry, now I'm confused. If you understand this, could you just transpose the cells I need into the code?