VBS autofill with formulas

[oso_togari]

Hi all

im pretty sure that i resolved this in the past, but now i cant....(many times my past me is clever than my preset me ...bad sign)

anyway:
objExcel.sheets("final").Range("F2").formula2 = objExcel.sheets("final").Range("A2").value&"-"& objExcel.sheets("final").Range("B2").value&"-"& objExcel.sheets("final").Range("C2").value
objExcel.sheets("final").Range("f2").AutoFill objExcel.sheets("final").Range("F2:F" & ultfila+1)

this only copy the valuesand i need the formula ....also if i use .filldown dont works

regards

 

[Fluff]

How about

objExcel.Sheets("final").Range("F2:F" & ultfila + 1).Formula2 = "=a2-b2-c2"

 

[oso_togari]

sorry...

inside formula2 im kile in the excel:

objExcel.sheets("final").Range("F2").formula2 = "=A2&""-""&B2&""-""&C2"
'objExcel.Range("C2","C" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row -2).FillDown
objExcel.sheets("final").Range("f2").AutoFill objExcel.sheets("final").Range("F2:F" & ultfila+1)

 

[oso_togari]

objExcel.Sheets("final").Range("F2:F" & ultfila + 1).Formula2 = "=a2-b2-c2"

one liner.....much better...thank you!

"=A2&""-""&B2&""-""&C2"

 

[Fluff]

You're welcome & thanks for the feedback.