How to add the value that multiply by percentage in VBA

[Sophanith]

Dear All,

I would like to ask you how to add new value to the old value with percentage in VBA like the code below:

Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value * 0.3
Next c

The code above just calculate the value so i can't combine the new value with the old value. I would appreciate for those who can help me.

Thanks

 

[Mike H..]

Dear All,

I would like to ask you how to add new value to the old value with percentage in VBA like the code below:

Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value * 0.3
Next c

The code above just calculate the value so i can't combine the new value with the old value. I would appreciate for those who can help me.

Thanks

Hi,

Maybe this

Sub somesub()
Dim c As Range
 For Each c In Selection
 If c.Value <> "" Then c.Value = c.Value + (c.Value * 0.3)
 Next c

End Sub

 

[shrivallabha]

Or

If c.Value <> "" and IsNumeric(c.Value) Then c.Value = 1.3 * c.Value

 

[Sophanith]

Hi Shivallabha,

It's working thank you for your help.

Phanith

 

[Sophanith]

Hi Mike,

It's working thank you for your help. Perfect code.

Phanith