Macro help - Compare random numers and add

[Ellias_Adelle]

Hello,

I'm pretty new to working with macros, so I hope I'm sorry if this seems easy to you. It has been stumping me for days and I can't figure it out no matter how much research I do.

What I am trying to do is compare a random number between 1 and 100 (no decimals) to a value in a cell and if that value is above that number I want to permanently add a random number (no decimals) between 1 and 10 to that number.

For example, if the value is 70 I would like the macro to add a random number between 1 and 10 to it 30 percent of the time. Let's say the macro increases the number to 76. If activated again I want it to have a 24 percent chance of increasing the number again.

If there is an easier way to do this than creating a random number and comparing it to the value I'm fine with that. I so long as the results are the same.

I don't want to have a value for the random numbers be posted in the workbook.

 

[Gokhan Aycan]

It is only hard until you familirize yourself Once you understand the object model it will be much easier.

 

[Ellias_Adelle]

It is only hard until you familirize yourself Once you understand the object model it will be much easier.

Thank you for the vote of confidence!

 

[Peter_SSs]

Here is another way of applying the same logic

Sub AddNum()
  Randomize
  With Range("A1")
    .Value = .Value + IIf(1 + Int(Rnd() * 100) > .Value, 1 + Int(Rnd() * 10), 0)
  End With
End Sub