
Signature
-John
Please rate when your question is answered to help us and others know what
is helpful.
Here's the code. It is perplexing to me why it works for most of the columns
and not for a handful.
Option Explicit
Dim wb As Workbook
Dim wsGUI As Worksheet
Dim wsCalcs As Worksheet
Dim rngGSTargetValue As Range
Dim valSeek As Variant
Dim intTargetCellRow As Integer
Dim intTargetCellCol As Integer
Sub SideFundSolve()
'
' Side Fund Rate Solve
' Donald R. Kline, CLU, ChFC
'
'
Set wb = ThisWorkbook
Set wsGUI = wb.Worksheets("GUI")
Set wsCalcs = wb.Worksheets("Calcs")
wsCalcs.Activate
Range("A1").Select
intTargetCellRow = Range("GSTargetRow")
intTargetCellCol = Range("GSTargetCol")
ActiveCell.Offset(intTargetCellRow - 1, intTargetCellCol - 1).Select
Set rngGSTargetValue = Range("GSTargetValue")
valSeek = rngGSTargetValue.Value 'To Value
ActiveCell.GoalSeek Goal:=valSeek, ChangingCell:=Range("AD3")
wsGUI.Activate
Set rngGSTargetValue = Nothing
Set wsCalcs = Nothing
Set wsGUI = Nothing
Set wb = Nothing
Range("A2").Activate
End Sub
> If 2 are fine, it would lead me to believe that something is amiss in the
> code. Can you post it please?
[quoted text clipped - 40 lines]
> > 1230301.72
> > <sum of column
John Bundy - 07 May 2008 15:08 GMT
Without seeing the data and what your ranges are set to I can't see it. You
are welcome to email it to me to have a look. Other than that I would step
through the code and check what each value is at each point in the
calculation. Also, I'm confused as to why you are always changing cell AD3?
ActiveCell.GoalSeek Goal:=valSeek, ChangingCell:=Range("AD3")
jmbundy@gmail(nospam).com

Signature
-John
Please rate when your question is answered to help us and others know what
is helpful.
> Here's the code. It is perplexing to me why it works for most of the columns
> and not for a handful.
[quoted text clipped - 85 lines]
> > > 1230301.72
> > > <sum of column
Dkline - 07 May 2008 15:22 GMT
I have come up with a solution to my problem. I use the current year's ROR
solution as the guess for the next year. By giving it the starting ROR from
the prior year, it has a better starting point.
I'm good to go now. Thanks for taking a look at my problem.
> Without seeing the data and what your ranges are set to I can't see it. You
> are welcome to email it to me to have a look. Other than that I would step
[quoted text clipped - 93 lines]
> > > > 1230301.72
> > > > <sum of column