excel macro

[u538019]

Hallo
Kan mij iemand vertellen hoe ik in 1 cel via macro een bedrag bijtel
We spelen met een paar vrienden op lotto/bingo Zo zou ik het bedrag (nog te goed) kunnen optellen met 1 knop.

gr

 

[Wigi]

Hallo
Kan mij iemand vertellen hoe ik in 1 cel via macro een bedrag bijtel
We spelen met een paar vrienden op lotto/bingo Zo zou ik het bedrag (nog te goed) kunnen optellen met 1 knop.

gr

Bvb.

Range("A1").Value = Range("A1").Value + 20

of

Sheets("naamvaneenanderblad").Range("A1").Value = Sheets("naamvaneenanderblad").Range("A1").Value + 20

Wigi

 

[u538019]

ok 1000maal bedankt

 

[Wigi]

ok 1000maal bedankt

Is dat al?

Graag gedaan.

Wel in het vervolg een goede topic titel kiezen, anders laten mensen jouw topic links liggen en is de zoekfunctie er ook al niks mee.

Wigi

 

[Ginger]

...Reeds opgelost, maar misschien toch een kleine aanvulling op de code van Wigi...

Sheets("naamvaneenanderblad").[B]ActiveCell.[/B]Value = Sheets("naamvaneenanderblad").[B]ActiveCell.Value + Sheets("naamvaneenanderblad").Range("A1").value[/B]

Zo kan je tenminste iedere cel verhogen en niet alleen cel A1... En met de 2e toevoeging kan je (in dit voorbeeld) je te verhogen waarde in cel A1 zetten, waardoor het invoegen helemaal variabel wordt.

Groet, Leo

 

[Wigi]

Leo

De actieve cel op een ander blad kan je met die code niet verhogen.

Wigi

 

[Ginger]

Leo

De actieve cel op een ander blad kan je met die code niet verhogen.

Wigi

Hmmmm... STOM! Had ik niet gezien dat dat er stond... Meestal staat er iets van [naamvandesheet], en heb ik er helemaal geen aandacht aan geschonken! Dus dank voor het ingrijpen!

Zo is 't wel goed....

Sheets("naamvandesheet").ActiveCell.Value = Sheets("naamvandesheet").ActiveCell.Value + Sheets("naamvandesheet").Range("A1").value

Groet, Leo

 

[Wigi]

Hmmmm... STOM! Had ik niet gezien dat dat er stond... Meestal staat er iets van [naamvandesheet], en heb ik er helemaal geen aandacht aan geschonken! Dus dank voor het ingrijpen!

Zo is 't wel goed....

Sheets("naamvandesheet").ActiveCell.Value = Sheets("naamvandesheet").ActiveCell.Value + Sheets("naamvandesheet").Range("A1").value

Groet, Leo

Indeed Leo