Add between 10% to 20% random to numbers in cloumn F

[arnelgp]

copy and paste to New Module:

Public Function fn1020pct(r As Range) As Variant
    Dim num As Double
    fn1020pct = ""
    If IsNumeric(r & "") Then
        num = CDec(RandBetween(10, 20)) / CDec(100)
        fn1020pct = r.Value * (1 + num)
    End If
End Function




Public Function RandBetween(Optional Lowest As Long = 1, Optional Highest As Long = 9999)
' Generates a random whole number within a given range
   Randomize (Timer)
   RandBetween = Int(Rnd * (Highest + 1 - Lowest)) + Lowest
End Function

on the cell you want to apply the 10~20%, add this formula:

=fn1020pct(F1)


copy the formula down.