Goal Seek

mynam · Dec 18, 2011

HI,

Is there a way to omit minus numbers in goal seek?

Thanks..

mynam · Dec 19, 2011

Hi,

Another question.. I want to combine solver with the following code, so that I won't get any negative values. How can I do that?

This is the new code

 Sub Multi_Goal_Seek()

Dim ARange As Range, TRange As Range, Chan7 As String, Set7 As String, NumEq As Long, i As Long
Dim Tar7 As Double, Acell As Range, TCell As Range, Orient As String

' Create the following names in the back-solver worksheet:
' Set7 - Cell with the address of the target range
' Chan7 - Cell with the address of the range to be adjusted
' Tar7 - the "goal" value

Chan7 = Range("Chan7").Value
Set7 = Range("Set7").Value

Set ARange = Range(Chan7)
Set TRange = Range(Set7)

NumEq = ARange.Rows.Count
If NumEq = 1 Then
NumEq = ARange.Columns.Count
Orient = "H"
Else
Orient = "V"
End If

Tar7 = Range("Tar7").Value

For i = 1 To NumEq
If Orient = "V" Then
TRange.Cells(i, 1).GoalSeek Goal:=Tar7, ChangingCell:=ARange.Cells(i, 1)
Else
TRange.Cells(1, i).GoalSeek Goal:=Tar7, ChangingCell:=ARange.Cells(1, i)
End If
Next i

End Sub

Thanks...

Goal Seek

mynam

New Member

mynam

New Member

Excel Facts

Similar threads

Forum statistics

Share this page

Goal Seek

mynam

New Member

mynam

New Member

Excel Facts

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock