Multiple Goal Seek Script

[kishorkhanal]

I need a script which does multiple goal seek by changing value in one cell. Here is the script I am using for single goal seek.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row = 7 And Target.Column = 2 Then
Range("B14").GoalSeek Goal:=Range("B8").Value, _
ChangingCell:=Range("B12")
End If
End Sub

I want to add in the above script that does the following and so on:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row = 7 And Target.Column = 2 Then
Range("C14").GoalSeek Goal:=Range("B8").Value, _
ChangingCell:=Range("C12")
End If
End Sub

 

[kishorkhanal]

This is what I tried but only the first goal seek works.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row = 7 And Target.Column = 2 Then
Range("B14").GoalSeek Goal:=Range("B8").Value, _
ChangingCell:=Range("B12")
Range("C14").GoalSeek Goal:=Range("B8").Value, _
ChangingCell:=Range("C12")
End If
End Sub

I have in total 8 goal seek to incorporate in script.

Please suggest if you have any better ideas. Thanks.

 

[kishorkhanal]

I hope I am clear on my question. If you do not understand, please let me know. It is very important for me to get this done. Please help.

 

[kishorkhanal]

Please help!

 

[facethegod]

This is what I tried but only the first goal seek works.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row = 7 And Target.Column = 2 Then
Range("B14").GoalSeek Goal:=Range("B8").Value, _
ChangingCell:=Range("B12")
Range("C14").GoalSeek Goal:=Range("B8").Value, _
ChangingCell:=Range("C12")
End If
End Sub

I have in total 8 goal seek to incorporate in script.

Please suggest if you have any better ideas. Thanks.

Not sure.. but if the value in B8 depends on the value in B7 and C7 then try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 7 And (Target.Column = 2 Or Target.Column = 3) Then
Range("B14").GoalSeek Goal:=Range("B8").Value, _
ChangingCell:=Range("B12")
Range("C14").GoalSeek Goal:=Range("B8").Value, _
ChangingCell:=Range("C12")
End If
End Sub

HTH