Knop / Formule vraag

[Mati6n2]

Ok ik heb het bestand hier eens gezet.

In het bovenste rode veld staat een waarde(a.d.v code).
Als ik op enkel raam druk moet hij de waarde met -83 verminderen.

Dit moet dan ook gebeuren in het blauwe veld

Hetzelfde met de orange of groene waarde.

dus 1 van de 2 knoppen

Enkelraam = (formule van de waarde) -83
Dubbel raam = (formule van de waarde)-83)/2+15)

Ik hoop dat het iemand snapt want ik zit totaal vast

 

[Wigi]

En jij gaat eerst een of meer cellen selecteren en vervolgens op 1 van de 2 knoppen drukken?

 

[Mati6n2]

ja, 1 van de bovenste gekleurde cellen ( dus degene met een waarde in)

 

[Wigi]

Zo dan

Sub enkel()
ActiveCell.Formula = ActiveCell.Formula & "-83"
End Sub

Sub dubbel()
ActiveCell.Formula = "=(" & Mid(ActiveCell.Formula, 2) & "-83)/2+15"
End Sub

Wijs de juiste macro eerst toe aan de juiste knop.

 

[Mati6n2]

Amai dat is een pak korter, maar correct :thumb: :thumb:

Merci Wigi :thumb: Je bent een schat

Nog 1 klein ding: de uitkomst komt in de cel zelf, hoe krijg ik dit naar de uitkomstcel.

Dit is altijd 3 cellen lager

 

[Wigi]

In A7

=ALS(A4>0;A4;"")

zoiets?

doorvoeren naar de andere cellen

 

[Mati6n2]

Ja dat kan ik gebruiken Wigi Thx

 

[Mati6n2]

Edit