Issues with Capcost (Mismatch Type, Run-time Error '13')

[anonymity]

Hi guys, im a chemical engineering student, currently doing a senior work project for my final year, so i decided to use the capcost excel by turton, obtained from the book of Analysis Synthesis and Design of Chemical Processes 5th Edition. However, when trying to input data for 'fan' unit, it gives me the Run-time error '13' , mismatch type. The code highlighted this line in the debuggin section:

grateful for any help, thank you in advance )

 

[anonymity]

correction the code is like this>> ignored the first one

 

[Alex Blakenburg]

What do you see in the immediate box if you add this code before the calculation line:

Debug.Print "tbBaseCost", IsNumeric(fanForm.tbBaseCost), fanForm.tbBaseCost
Debug.Print "CEPCI", IsNumeric(Range("CEPCI")),Range("CEPCI")

 

[anonymity]

What do you see in the immediate box if you add this code before the calculation line:

Debug.Print "tbBaseCost", IsNumeric(fanForm.tbBaseCost), fanForm.tbBaseCost
Debug.Print "CEPCI", IsNumeric(Range("CEPCI")),Range("CEPCI")

i put the code at the top, and run, but nothing come out in the immediate box ( i may be doing something wrong i think?)

 

[Alex Blakenburg]

Can you confirm you are familiar with the immediate box and that it is visible ?
(Ctrl+G if it is not visible)

If you can't get the immediate box to show what is in the 2 values, what do you see when it errors out and you hover over Range("CEPCI") and then over fanForm.tbBaseCost.
If nothing is obvious please provide a picture of the cell CEPCI showing the Cell & the formula bar & then Name box in the top left corner.

 

[anonymity]

sorry didnt realize i need to reload the debugging, and yes the immediate box now showing these: (value is the same as when i hover on both Range("CEPCI") and fanForm.tbBaseCost.

 

[Alex Blakenburg]

So your issue is with fanForm.tbBaseCost, is that manually entered ?
There seems to be an additional space after the comma.
Ideally you want to address that at the source.
To address it in the code you could test that is numeric with an If IsNumeric line.
For the specific issue of an additional space your could try:

iTemp = roundAmount(Replace(fanForm.tbBaseCost, " ","") / 397 * Range("CEPCE")

 

[anonymity]

the value for fanForm.tbBaseCost is automatically calculated when i input other required informations, for the code that you gave me, it comes off with this problem.

 

[Alex Blakenburg]

I seem to have missed a closing parenthesis. Add ")" at the end. Without the quotes.
PS I have logged off for the night

 

[anonymity]

problem still persist, okk have a good nightt!

I seem to have missed a closing parenthesis. Add ")" at the end. Without the quotes.
PS I have logged off for the night