Goal Seek Analysis "If cells are less than 0, than 0" isn't working.

[Seric]

WhatIfAnalysis Macro
'
' Keyboard Shortcut: Ctrl+g
'
Public Sub GoalSeeker()


For i = 3 To 187
cells(i, "AG").GoalSeek Goal:=0.15, ChangingCell:=cells(i, "AF")

cells(i, "AF") = WorksheetFunction.Round(cells(i, "AF"), 2)

cells(i, "AF") < 0 = 0


Next i


End Sub

 

[Eric W]

Maybe:

[COLOR=#333333]WhatIfAnalysis Macro[/COLOR]
[COLOR=#333333]'[/COLOR]
[COLOR=#333333]' Keyboard Shortcut: Ctrl+g[/COLOR]
[COLOR=#333333]'[/COLOR]
[COLOR=#333333]Public Sub GoalSeeker()[/COLOR]

[COLOR=#333333]For i = 3 To 187[/COLOR]
[COLOR=#333333]    cells(i, "AG").GoalSeek Goal:=0.15, ChangingCell:=cells(i, "AF")[/COLOR]

[COLOR=#333333]    cells(i, "AF") = WorksheetFunction.Round(cells(i, "AF"), 2)[/COLOR]

[COLOR=#333333][FONT='inherit']    If cells(i, "AF") < 0 Then cells(i, "AF") = 0[/FONT][/COLOR]

[COLOR=#333333]Next i[/COLOR]


[COLOR=#333333]End Sub[/COLOR]

 

[svendiamond]

you need to say

if cells(i, "AF") < 0 then
cells(i, "AF") = 0
end if

 

[Seric]

This worked perfect. Thank you svendiamond!