ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Help with parameter substitution in formula (&value), vbScript (https://www.excelbanter.com/excel-worksheet-functions/242269-help-parameter-substitution-formula-value-vbscript.html)

circuit_breaker

Help with parameter substitution in formula (&value), vbScript
 
Hi,

I want to replace the "A40" parameter in the below formula with a
variable because this parameter should be dynamic. In short, I want
to replace the "A40" nLastRow variable. "I'm using vbScript and not
Excel's VBA. Here's the code I use:

nLastrow = objExcel.ActiveSheet.Range("B4").End(-4121).Row
objExcel.ActiveSheet.Range("D20").Formula = "=SUMIF
(A4:A40,""'5734'"",B4:B40)" ' This works.

'This fails: objExcel.ActiveSheet.Range("D"").Formula = "=SUMIF
(A4:A&nLastRow,""'5734'"",B4:B40)" ' This works.

Thanks for your help.

Don Guillett

Help with parameter substitution in formula (&value), vbScript
 
Just a guess

..Range("D"").Formula
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"circuit_breaker" wrote in message
...
Hi,

I want to replace the "A40" parameter in the below formula with a
variable because this parameter should be dynamic. In short, I want
to replace the "A40" nLastRow variable. "I'm using vbScript and not
Excel's VBA. Here's the code I use:

nLastrow = objExcel.ActiveSheet.Range("B4").End(-4121).Row
objExcel.ActiveSheet.Range("D20").Formula = "=SUMIF
(A4:A40,""'5734'"",B4:B40)" ' This works.

'This fails: objExcel.ActiveSheet.Range("D"").Formula = "=SUMIF
(A4:A&nLastRow,""'5734'"",B4:B40)" ' This works.

Thanks for your help.




All times are GMT +1. The time now is 06:28 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com