Lege cellen vullen met een random-getal.

[NonkeLuc]

Ik heb een aantal reeksen met een aantal lege cellen.
Per reeks zijn ook die lege cellen verschillend.
Ik wil die lege cellen invullen met een willekeurig getal.
Ik vermoed dat het mogelijk moet zijn met 'voorwaardelijke opmaak' maar dat lukt mij niet.
De VBA-formule in het bestandje 'Random nummers VBA' lukt ook niet.

Heeft er iemand een idee hoe het wel moet?

Random nummers VBA.xlsm

[alpha]

4 uren geleden, NonkeLuc zei:

Ik vermoed dat het mogelijk moet zijn met 'voorwaardelijke opmaak'...

Dat is toch wel heel erg ver gezocht...

 

De VBA-formule in het bestandje 'Random nummers VBA' lukt ook niet

Je berekent een getal (slechts 1) en dan gebruik je het ook nog niet. Je vult ALLE cellen van B5:E10 met "ok".

 

Je zou dit kunnen gebruiken:

Sub macro1()
Dim cl As Range
Randomize
For Each cl In Range("B5:E10")
If IsEmpty(cl) Then
cl.Value = Int(161 * Rnd + 65)
End If
Next cl
End Sub

 

 

[NonkeLuc]

Mijn oprechte dank voor deze oplossing.

 

Ja, ik had natuurlijk het verkeerde bestandje ge-upload.

Ik ben al een tijdje op zoek naar een oplossing en iemand had voorgesteld

om via voorwaardelijke opmaak de lege cellen een letter te geven en zodoende er een formule aan te koppelen.

Ik ben echt blij met jou oplossing 

 

[kweezie wabbit]

Als je verder geen vragen of problemen meer hebt, geef dan een seintje zodat we dit onderwerp kunnen afsluiten.