VBA multiple Formules

Hello,

I want to do a simple Multiple Formule in VBA

This is my multiple Unit Cost x Quantity I use this line ='Export Freshbooks'!I2*'Export Freshbooks'!J2 etc
The outcome must come on Sheet output ...But its only give #Value

Is there a fix ore line i can use in VBA??TestOUtput.xlsm

Greets

I'm not sure why you got that #VALUE! However, just press F2 and Enter to re-commit the formula. Then copy down.


Regards, TMS

After i Re-commit i see #Valeu again.

How can i ='Export Freshbooks'!I2*'Export Freshbooks'!J2 how do this in A VBA line?

Thank you

Option Explicit

Sub sAddFormula()
Dim lLR As Long

With Sheets("Output")
    lLR = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("F2:F" & lLR).Formula = "='Export Freshbooks'!I2*'Export Freshbooks'!J2"
End With

End Sub

Regards, TMS

Wow okeey thank you
But on my Sheets its still #Value.. can it be a bug in my excel??

The VBA line works its fills in the cells ....

Should i post my current file?

Thanks,

I don't know. When I opened the sample workbook, it showed #VALUE! in the cell. I pressed F2 and Enter and it was OK. I copied it down; it copied OK. I created a small VBA routine; it worked OK and filled in all the formulas.

I even tried re-inputting the formula from scratch by navigating to the source cells ... worked just fine..

I'm not sure what uploading a different workbook would add.

You could try this code; it will add the formula and then convert it to a value.

Option Explicit

Sub sAddFormula()
Dim lLR As Long

With Sheets("Output")
    lLR = .Range("A" & .Rows.Count).End(xlUp).Row
    With .Range("F2:F" & lLR)
        .Formula = "='Export Freshbooks'!I2*'Export Freshbooks'!J2"
        .Value = .Value    ' optional: convert formula to value
    End With
End With

End Sub

Regards, TMS

You're welcome.