Klikbare knop in excel

[Amadeus1966]

Ter bevrediging van eventuele volgers.

Ik ben verder gaan borduren op mijn sheet en dit natuurlijk met veel hulp van Bucky.

En dit is het resultaat geworden.

excelsior final.xls

[bucky]

Amadeus1966,

Als de waardes in B niet kleiner als nul (0) mogen worden, kun je de codes voor de - knoppen als volgt aanpassen.

Private Sub CommandButton10_Click()
Range("B3").Value = Range("B3").Value - 1
If Range("B3").Value < 0 Then Range("B3").Value = 0
End Sub

Gr. bucky

P.S. Je kunt de codes een klein beetje inkorten door bvb "Range("B3")" te vervangen door "[b3]"

en dat dus voor alle codes, zie het vb onder:

Private Sub CommandButton10_Click()
[b3].Value = [b3].Value - 1
If [b3].Value < 0 Then [b3].Value = 0
End Sub

1 augustus 2011 aangepast door bucky
P.S.

[Amadeus1966]

We zullen het eens proberen, bedankt voor de tip...............

Joho..............het werkt.

thx

excelsior final.xls

1 augustus 2011 aangepast door Amadeus1966