VBA To Pass A Variable In An Excel Formula

[devcon]

Good day,

I need to input discount to use as calculation.



Dim Disc As Variant

Disc = InputBox("Enter the value.")
If Disc = "" Then Exit Sub

LastRow = Cells(Rows.Count, "F").End(xlUp).Row
Range("F" & LastRow + 1).Formula = "=sum(F3:F" & LastRow & ") * Disc/100"




Thank you in advance.

[Admin]

Hi devcon,

Welcome to ExcelFox !!

try


Range("F" & LastRow + 1).Formula = "=sum(F3:F" & LastRow & ") *" & Disc & "/100"

[devcon]

Thank you very much.
Could you tell me also how to use:


ActiveCell.FormulaR1C1 = "=CONCATENATE(""Discount"","" "",Disc,""%"")"

[Admin]

Like this


ActiveCell.FormulaR1C1 = "=CONCATENATE(""Discount"","" ""," & Disc & ",""%"")"

[devcon]

Thank you, excellent.
Have a nice evening.