How to put the following formula on cells using VBA ?

[Pramodpandit123]

I have a following formula on Excel cell that works fine but i want to put the formula on the cells using VBA .. Putting the formula using VBA gives me "Syntax error" during compiling.

Following is the formula that works on Excel cell :

=IF(I10="","",IF(I10=0,0,ROUND(MAX(IF((LEN(I10)-FIND(".",I10&"."))={-1,2},CONVERT(DOLLARDE(I10,12),"ft","m")),IFERROR(CONVERT(DOLLARDE(INT(I10)&".0"&MID(I10,FIND(".",I10)+1,1),12),"ft","m"),0)),2)))

Following is the VBA that gave me syntax error :

.Range("U" & 3 + i).Formula = "=IF(I4="""","""",IF(I4=0,0,ROUND(MAX(IF((LEN(I4)-FIND(".",I4&"."))={-1,2},CONVERT(DOLLARDE(I4,12),"ft","m")),IFERROR(CONVERT(DOLLARDE(INT(I4)&".0"&MID(I4,FIND(".",I4)+1,1),12),"ft","m"),0)),2)))"

Following is the VBA that i want using Loop :

For i=1 to 8
.Range("u" & 3 + i).Formula = "=IF(I" & 3+i & "="""","""",IF(I" & 3+i & "=0,0,ROUND(MAX(IF((LEN(I" & 3+i & ")-FIND(".",I" & 3+i & "&"."))={-1,2},CONVERT(DOLLARDE(I" & 3+i & ",12),"ft","m")),IFERROR(CONVERT(DOLLARDE(INT(I" & 3+i & ")&".0"&MID(I" & 3+i & ",FIND(".",I" & 3+i & ")+1,1),12),"ft","m"),0)),2)))"
Next

 

[NewLFC]

can you attach the sample file?

 

[Pramodpandit123]

can you attach the sample file?

Loading Google Sheets

Heres the sample file which contains the formula ?

 

[Peter_SSs]

There seems to be little correlation between the post #1 code and the sample workbook.
Post 1 code puts the formulas in col U, sample book has them in col G
Post 1 has original data in col I, sample workbook has it is col C.
Post 1 has 8 rows of formulas, sample workbook has 4.

Assuming ..
- formulas in col U
- original data in I
- 8 rows of formulas
.. try this with a copy of your workbook

Sub Test()
  Range("U4:U11").Formula = "=IF(I4="""","""",IF(I4=0,0,ROUND(MAX(IF((LEN(I4)-FIND(""."",I4&"".""))={-1,2},CONVERT(DOLLARDE(I4,12),""ft"",""m"")),IFERROR(CONVERT(DOLLARDE(INT(I4)&"".0""&MID(I4,FIND(""."",I4)+1,1),12),""ft"",""m""),0)),2)))"
End Sub

 

[Pramodpandit123]

Thanks a lot, SIR !!

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.