Applying discount to original cell while retaining formula

[JaydenT]

Hi everyone! I am new to VBA and I would like to apply a discount (e.g. 10%) to a cell value in my quotation sheet while retaining (and show) the formula in the same cell at the same time.

Is anyone able to help on this formula?

For example:

Say cell B3 contains $1,000, if I were to apply a 10% discount to it via VBA formula can the end result in the same B3 cell be =1000*90%

Something like this:

Thank you.

 

[6StringJazzer]

You can but it's a wacky way to do it. A more common way to do this would be to have a cell containing the discount, and a cell containing the price. Let's say for this example the base price is in C3 and the discount is in D3. You would type 1000 into C3, and start with a discount of 0% in D3. Your formula in B3 is

=(1-D3)*C3

It starts out as $1000 and then when you type 10% into D3, it is updated to $900.

Anyway, the answer to your question exactly as you asked it is:

Range("B3").Formula = "=" & Range("B3").Value & "*90%"

 

[JaydenT]

You can but it's a wacky way to do it. A more common way to do this would be to have a cell containing the discount, and a cell containing the price. Let's say for this example the base price is in C3 and the discount is in D3. You would type 1000 into C3, and start with a discount of 0% in D3. Your formula in B3 is

=(1-D3)*C3

It starts out as $1000 and then when you type 10% into D3, it is updated to $900.

Anyway, the answer to your question exactly as you asked it is:

Range("B3").Formula = "=" & Range("B3").Value & "*90%"

Hi yes, I needed this as I already have a working quotation sheet that was currently done being manually and would like to keep it that way for the time being for simplicity sake.

This is exactly what I needed and it works! Thank you so much for your help!!

 

[6StringJazzer]

Glad I could help