kishorkhanal
Active Member
- Joined
- Mar 23, 2006
- Messages
- 434
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
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