1Lager of hoger in cel

[Gijsbert1960]

Hallo Allemaal

In een cel staat een formule die het volgende reisnummer neerzet uit een blad met de opgeslagen reizen. Nu is het mogelijk dat we op 2 adressen moeten lossen met zelfde reisnummer, maar na opslaan eerste lossing wordt het reisnummer met 1 verhoogd. nu zou ik via een knop dhet nieuwe nummer met 1 kunnen verlagen zonder formule aan te tasten. Ik ben er mee bezig geweest maat kom er niet uit. Zie bijlage

Bekijk bijlage hoger lager.xlsx

M vr gr
Gijs

 

[HSV]

Je kan de knop koppelen aan een cel in "Besturingselement opmaken".

 

[Gijsbert1960]

Hallo HSV

'Knop aan cel gekoppeld maar kan geen -1 krijgen maar van 0 tot 30000 dus op andere manier geprobeerd en gelukt. Namelijk een knop met programmacode en die werkt

Range("C3").Select
    ActiveCell.FormulaR1C1 = "-1"

Bedankt voor de tip

M vr gr
Gijs

 

[VenA]

Range("C3")="-1"

werkt niet?

 

[HSV]

Pak de spinbutton van de ActiveX-besturingelementen, die kan lager dan 0.

Die geef je een Min in de eigenschappen van bv.: -10 en een max van 50.
De bijpassende codes voor de spinbutton zet je in de bladmodule.

Private Sub SpinButton1_SpinDown()
 range("c3") = SpinButton1.Value
End Sub


Private Sub SpinButton1_SpinUp()
 range("c3") = SpinButton1.Value
End Sub