Aselect

[JamezBat]

Wanneer je aselecttussen(x;y) in een cel plaatst zal die een willekeurig getal tussen x en y weergeven.

Het probleem is dat dit getal altijd verandert wanneer ik een nieuw getal intyp.

Bestaat er een manier om die aselectformule vast te zetten zonder dat ik altijd moet kopieren en de waarde moet plakken?
Het meest handige zou zijn als de formule zou vaststaan wanneer ik bv het getal 1 in een andere cel typ.

Grtz Jamez

 

[robdgr]

Koppel deze code aan een knop en je hoeft geen getal meer te tikken. Het getal verschijnt in de cel die je hebt geactiveerd:

Sub aselect()
'
    ActiveCell.FormulaR1C1 = "=TRUNC(RAND()*100)"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    Application.CutCopyMode = False
End Sub

 

[Wigi]

Iets beter:

Sub aselect()
    With [A1:B10]
         .Formula = "=TRUNC(RAND()*100)"
         .Value = .Value
     End With
End Sub