VBA Random Number Generator

[wayne0881]

Hi All,

I have created a Random Number Generator using the code below

Private Sub CommandButton1_Click()

Range("d2") = WorksheetFunction.RandBetween(-2, 2)
Range("d3") = WorksheetFunction.RandBetween(-2, 2)

which works exactly how I want it to

What I would like to do from here is generate a second button code to produce a 2nd random number using the first rand number as it's lowest value - but the code I thought would work doesn't - can anyone help please.

The code I used:
Range("f2") = WorksheetFunction.RandBetween(D2, 2)
Range("f3") = WorksheetFunction.RandBetween(D3, 2)

 

[silentwolf]

Hi,
what if you save the first random number in a variable?
Maybe that works?

HTH

 

[wayne0881]

Thanks for your reply - i'm not sure how to do that (i'm fairly new to VBA)

 

[shg]

  Range("D2").Value2 = WorksheetFunction.RandBetween(-2, 2)
  Range("D3").Value2 = WorksheetFunction.RandBetween(-2, 2)
  Range("F2").Value2 = WorksheetFunction.RandBetween(Range("D2").Value2, 2)
  Range("F3").Value2 = WorksheetFunction.RandBetween(Range("D3").Value2, 2)

 

[wayne0881]

  Range("D2").Value2 = WorksheetFunction.RandBetween(-2, 2)
  Range("D3").Value2 = WorksheetFunction.RandBetween(-2, 2)
  Range("F2").Value2 = WorksheetFunction.RandBetween(Range("D2").Value2, 2)
  Range("F3").Value2 = WorksheetFunction.RandBetween(Range("D3").Value2, 2)

Code is looking good my friend - Thank You