activeerknop op aselecte formule

[Blommo]

Hallo allen,

is het mogelijk om de formule aselecte getallen "zie bijlage" dmv een knop te activeren.
Alleen te activeren door op de knop te drukken.
Nu wordt de formule door elke cel geactiveerd.

Alvast bedankt,


Blommo

 

[Niels28]

zet automatisch berekenen uit en druk op F9 elke keer als je een nieuwe naam wilt.

of gebruik volgende macro

Sub Tst()
Randomize
With Sheets("blad1")
    i = Int((Rnd * (.Cells(Rows.Count, "b").End(xlUp).Row)) + 1)
    .Range("a3").Value = .Cells(i, 2).Value
End With
End Sub

Niels

 

[Blommo]

zet automatisch berekenen uit en druk op F9 elke keer als je een nieuwe naam wilt.

of gebruik volgende macro

Sub Tst()
Randomize
With Sheets("blad1")
    i = Int((Rnd * (.Cells(Rows.Count, "b").End(xlUp).Row)) + 1)
    .Range("a3").Value = .Cells(i, 2).Value
End With
End Sub

Niels

Hartstikke bedankt, oplossing kan zo simpel zijn
Berekenen uit en F9
Helemaal goed bedankt

Patrick