I'm having an expexted end of statement issues trying to insert the below formula into a cell via VBA - any ideas?
ACTUAL FORMULA
MY VBA ATTEMPTED CONVERSION
ACTUAL FORMULA
Code:
=IF(ISERROR(SEARCH("??:??",A2)),IF(ISERROR(MATCH(TEXT(C1+1/1440,"""*""hh:mm""*"""),A:A,0)),"",C1+1/1440/(MATCH(TEXT(C1+1/1440,"""*""hh:mm""*"""),A:A,0)-MATCH(TEXT(C1,"""*""hh:mm""*"""),A:A,0))),MID(A2,SEARCH("??:??",A2),5)+0)
MY VBA ATTEMPTED CONVERSION
Code:
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(SEARCH(""??:??"",A2)),IF(ISERROR(MATCH(TEXT(C1+1/1440,""""*"""hh:mm"""*""""),A:A,0)),"""",C1+1/1440/(MATCH(TEXT(C1+1/1440,""""*"""hh:mm"""*""""),A:A,0)-MATCH(TEXT(C1,""""*"""hh:mm"""*""""),A:A,0))),MID(A2,SEARCH(""??:??"",A2),5)+0)"