HELP!!! I can't set formula to cell

[techmaster29729]

[FONT=&quot]hi i'm trying to programmatically pull a formula then add a new user to that formula and then set the cell with the new formula[/FONT]

[FONT=&quot]here's what i got[/FONT]

[COLOR=#141414][FONT=&quot]Dim SATURDAY_DEPART_TIME_INITAL As String[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]SATURDAY_DEPART_TIME_INITAL = ActiveWorkbook.Sheets("SAT").Range("H8").Formula[/FONT][/COLOR]

[COLOR=#141414][FONT=&quot]If InStr(1, SATURDAY_DEPART_TIME_INITAL, "=IFERROR") Then[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]SATURDAY_DEPART_TIME_INITAL = Replace(SATURDAY_DEPART_TIME_INITAL, "=IFERROR(", "")[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]SATURDAY_DEPART_TIME_INITAL = Replace(SATURDAY_DEPART_TIME_INITAL, "", """ & """, "")[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]End If[/FONT][/COLOR]

[COLOR=#141414][FONT=&quot]SATURDAY_DEPART_TIME_INITAL = Replace(SATURDAY_DEPART_TIME_INITAL, "))", "), " & Chr(10) & "NAME=""" & [/FONT][/COLOR][COLOR=#141414][FONT=&quot]Employee.Text[/FONT][/COLOR][COLOR=#141414][FONT=&quot] & """,IF(ISBLANK(" & LResult & "_SATURDAY_DEPART_TIME_INITAL),""""," & LResult & "_SATURDAY_DEPART_TIME_INITAL)),""" & """")[/FONT][/COLOR]

[COLOR=#141414][FONT=&quot]With New MSForms.DataObject[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot].SetText SATURDAY_DEPART_TIME_INITAL[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot].PutInClipboard[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]End With[/FONT][/COLOR]

[COLOR=#141414][FONT=&quot]ActiveWorkbook.Sheets("SAT").Range("H8").FormulaLocal = "=IFERROR(" & SATURDAY_DEPART_TIME_INITAL & ")"[/FONT][/COLOR]

[FONT=&quot]when i try to run the code it gives an error

[/FONT]

[FONT=&quot]any idea why its not working?[/FONT]

 

[techmaster29729]

Dim SAT_SATURDAY_DEPART_TIME_INITAL As StringSAT_SATURDAY_DEPART_TIME_INITAL = ActiveWorkbook.Sheets("SAT").Range("H8").Formula


If Not InStr(1, SAT_SATURDAY_DEPART_TIME_INITAL, "NAME=""" & Employee.Text & "") Then


If InStr(1, SAT_SATURDAY_DEPART_TIME_INITAL, "=IFERROR") Then
    SAT_SATURDAY_DEPART_TIME_INITAL = Replace(SAT_SATURDAY_DEPART_TIME_INITAL, "=IFERROR(", "")
    SAT_SATURDAY_DEPART_TIME_INITAL = Left(SAT_SATURDAY_DEPART_TIME_INITAL, Len(SAT_SATURDAY_DEPART_TIME_INITAL) - 4)
End If


If InStr(1, SAT_SATURDAY_DEPART_TIME_INITAL, "=IFS") Then
    SAT_SATURDAY_DEPART_TIME_INITAL = Right(SAT_SATURDAY_DEPART_TIME_INITAL, Len(SAT_SATURDAY_DEPART_TIME_INITAL) - 1)
End If


    SAT_SATURDAY_DEPART_TIME_INITAL = Replace(SAT_SATURDAY_DEPART_TIME_INITAL, "))", "), " & Chr(10) & "NAME=""" & Employee.Text & """,IF(ISBLANK(" & LResult & "_SATURDAY_DEPART_TIME_INITAL),""""," & LResult & "_SATURDAY_DEPART_TIME_INITAL))")


MyDataObj.SetText SAT_SATURDAY_DEPART_TIME_INITAL
MyDataObj.PutInClipboard


End If
ActiveWorkbook.Sheets("SAT").Range("H8").FormulaLocal = "=IFERROR(" & SAT_SATURDAY_DEPART_TIME_INITAL & "," & Chr(34) & ")"

same error....

copying the formula to the clipboard looks like it should but can't apply the formula to the cell...

 

[techmaster29729]

apparently me trying to set =IFERROR( with ,"") is the problem.. took out the "" in that line of code and it applied just fine... problem is I can't use =IFERROR without the ,"") at the end...