genereren van 2 getallen

[sjeeke]

Ik wil 2 getallen genereren waarbij het getal in D4 nooit groter mag zijn dan het getal in F4.

Ik heb al een aantal varianten gebruikt in VBA, maar kom voorlopig niet verder dan de werkelijke VBA zoals die nu in de file staat. Helaas is het met de huidige formule wel mogelijk dat het getal in D4 wel groter kan zijn.

Met ASELECTTUSSEN is geen optie omdat ik het blad op automatisch berekenen moet laten staan.


Gr,
Sjeeke

 

[OctaFish]

Waarom zet je in D4 niet de formule =ASELECTTUSSEN(0;(F4-1))? Dan gaat het altijd goed.

 

[VenA]

Sub genereren()
  x = Application.RandBetween(0, 10)
  Range("f4").Value = x
  Range("d4").Value = Application.RandBetween(0, x)
End Sub

 

[snb]

Sub M_snb()
   Randomize

   y = Int(10 * Rnd)
   
   Cells(4, 6) = y
   Cells(4, 4) = Int(y * Rnd)
End Sub

 

[sjeeke]

Thanks

Thanks OctaFish voor de snelle reactie.
ASELECTTUSSEN is geen optie omdat het blad op automatisch berekenen moet blijven staan en met deze formule worden dan telkens nieuwe getallen gegenereerd (en dat is niet de bedoeling. :thumb:

Thanks VenA,
Zo was mijn opzet ook, maar ik kwam er verder niet uit. Werkt perfect, Top! :thumb:

Thanks snb,
Ook die optie met randomize werkt super.! :thumb: