Subtotal Formula Codes 1

[APElliott]

Hello,

I'm trying to compact a workbook and the codes within it, but can't write the following in VB.

I would like a code to say that Sheet "Material" cell j1 'Value' is equal to Subtotal(9,BoQ!O3:O65000).Formula

Any ideas?

And..... I would also like to know how to write the following

Sheet "Material" cell j2 'Value' is equal to Sheet "Material" cell j1 less Subtotal(9,BoQ!O3:O65000).Formula

Thanks,

Andrew

 

[ETID]

part 1

sheets("Material&quot.range("J1&quot=application.worksheetfunction.subtotal(9,sheets("BoQ&quot.range("O3:O65000&quot)

part 2

sheets("Material&quot.range("J2&quot=sheets("Material&quot.range("J1&quot-application.worksheetfunction.subtotal(9,sheets("BoQ&quot.range("O3:O65000&quot)

 

[APElliott]

You Beauty

I'm just about to give them a whirl!

Thanks,

Andrew