View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
TheIrishThug[_10_] TheIrishThug[_10_] is offline
external usenet poster
 
Posts: 1
Default error passing a formula to a cell from a string


buyin, buyinmod, datemod, and fieldmod r all strings. the following ar
4 expample of formulas i am trying to pass, but am gettin
"application-defined or object defined" errors.
can anyone see where my mstake is?


Buyin = "=(Sheets(""Tourney Info"").Range(""D" & Row
""").Value)/(Sheets(""Tourney Info"").Range(""E" & Row & """).Value)"
BuyinMod = "=LN((Sheets(""Tourney Info"").Range(""G" & Row
""").Value)/100+1)"
FieldMod = "=(Sheets(""Tourney Info"").Range(""E" & Row
""").Value)/10-(Sheets(""Tourney Info"").Range(""E" & Row
""").Value)^2/20000"
DateMid = "=36/(MONTH(NOW())-(Sheets(""Tourney Info"").Range(""B"
Row & """).Value)+12*(YEAR(NOW())-(Sheets(""Tourney Info"").Range(""C"
Row & """).Value))+36)"

If Sheets("Tourney Info").Range("G" & Row).Formula < Buyin Then
Sheets("Tourney Info").Range("G" & Row).Formula = Buyin
End If
If Sheets("Tourney Info").Range("J" & Row).Formula < DateMod Then
Sheets("Tourney Info").Range("J" & Row).Formula = DateMod
End If
If Sheets("Tourney Info").Range("K" & Row).Formula < BuyinMo
Then
Sheets("Tourney Info").Range("K" & Row).Formula = BuyinMod
End If
If Sheets("Tourney Info").Range("L" & Row).Formula < FieldMo
Then
Sheets("Tourney Info").Range("L" & Row).Formula = FieldMod
End I

--
TheIrishThu
-----------------------------------------------------------------------
TheIrishThug's Profile: http://www.excelforum.com/member.php...fo&userid=2968
View this thread: http://www.excelforum.com/showthread.php?threadid=49542