How to use variables decimal with formulas ? - vba excel

[rodrigo_m_almeida]

Good afternoon people
could someone help me with this
I am trying

Dim xPrice As Variant: xPrice = CDec(4.1)

Range("A1").FormulaR1C1 = "=" & xPrice & "+1.2"

Display Error 1004

How can I use decimal variable in formulas ?

 

[Joe4]

Good afternoon people
could someone help me with this
I am trying

Dim xPrice As Variant: xPrice = CDec(4.1)

Range("A1").FormulaR1C1 = "=" & xPrice & "+1.2"

Display Error 1004

How can I use decimal variable in formulas ?

That seems to work perfectly fine for me.

Are you sure there isn't something else going on?
Cell A1 isn't protected or part of a merge cell, is it?
Do you have any other VBA code in this block that might be interfering with it?
Perhaps some Event Procedure code?

 

[rodrigo_m_almeida]

That seems to work perfectly fine for me.

Are you sure there isn't something else going on?
Cell A1 isn't protected or part of a merge cell, is it?
Do you have any other VBA code in this block that might be interfering with it?
Perhaps some Event Procedure code?

No and no, I'm trying - error 1004

 

[Joe4]

Are you using Excel 2021?

Can you post your ENTIRE block of VBA code?

When you get the error, does it offer a "DEBUG" button?
If you click that, exactly which line of code does it highlight?

 

[rodrigo_m_almeida]

Are you using Excel 2021?

Can you post your ENTIRE block of VBA code?

When you get the error, does it offer a "DEBUG" button?
If you click that, exactly which line of code does it highlight?

Yes I am.
This is all my code
My range

 

[Joe4]

Hmmm... I don't see what it would doing that, and I cannot reproduce that. Don't know if it is a language thing.

However, why are you using the "CDEC" function? That is usually used to convert a string to a decimal. But 4.1 is already a decimal, so I don't think that is necessary.

Try this out and see what happens:

Sub Test()

Dim xPrice As Single
xPrice = 4.1

Range("A1").Formula = "=" & xPrice & "+1.2"

End Sub

 

[rodrigo_m_almeida]

Hmmm... I don't see what it would doing that, and I cannot reproduce that. Don't know if it is a language thing.

However, why are you using the "CDEC" function? That is usually used to convert a string to a decimal. But 4.1 is already a decimal, so I don't think that is necessary.

Try this out and see what happens:

Sub Test()

Dim xPrice As Single
xPrice = 4.1

Range("A1").Formula = "=" & xPrice & "+1.2"

End Sub

I'm not getting
I Tried to do
Shows the same error

 

[Joe4]

If you are still getting an error, why did you mark it as a solution?
You only do that if the post solved your issue.

What is the name of the VBA module you have placed this VBA code in?
If you open up a brand new blank workbook, insert a new VBA module, place the code in it and try running it, does it work then?

If it does, then we know that the issue is specific to your particular workbook.

 

[rodrigo_m_almeida]

If you are still getting an error, why did you mark it as a solution?
You only do that if the post solved your issue.

What is the name of the VBA module you have placed this VBA code in?
If you open up a brand new blank workbook, insert a new VBA module, place the code in it and try running it, does it work then?

If it does, then we know that the issue is specific to your particular workbook.

I can't edit my answer
your solution
It helped me, it worked
Thxxx !

 

[Joe4]

OK, great.
Thanks for letting us know.