celwaarde optellen dmv knop en vba

[Anoniem2]

Ik zat in de verkiezingscommissie van een Ondernemingsraad, gisteren mijzelf het ongans geklikt om kruisjes in vakjes te zetten bij het stemmen tellen.\r\nDe kans op fouten is dan aanwezig.\r\n\r\nNu had ik bedacht om een werkblad te maken met alle kandidaten en twee knoppen.\r\neerste knop met +1 stem\r\ntweede knop met correctie of -1 stem\r\nen een knop voor het werkblad om alle tellingen te resetten naar 0\r\n\r\nIk kan in Excel met formules hele leuke dingen in elkaar klussen, maar VBA wordt \'t \'m niet\r\n\r\nMijn vraag of iemand mij een standaard scriptje wil maken welke ik kan gebruiken\r\n\r\nknop 1 --> waarde cel c5 = waarde cel c5 +1\r\nknop 2 --> waarde cel c5 = waarde cel c5 - 1\r\nknop om alles op 0 te zetten\r\n\r\nIk heb een test werkblad erbij gedaan

[Anoniem2]

[URL=\"http://stackoverflow.com/questions/2482979/count-clicks-in-excel\"]Je zoekt zoiets?? [/URL] \nIk heb zelf te weinig sjoege van Excel om dit te testen.

[Anoniem2]

je zou je oor ook eens te luisteren kunnen leggen op [URL=\"http://www.worksheet.nl/forumexcel/\"] dit forum[/URL] hier zijn ze gespecialiseerd in Excel. Ik kan je zelf helaas niet verder helpen want niet genoeg verstand van Excel maar als ik zoiets nodig heb ga ik altijd daar heen en vaan hebben ze al wel iets kant en klaar op het forum staan onder \"downloads\"

[Anoniem2]

bedankt voor jullie tips, ik zal daar eens naar gaan kijken

[Anoniem2]

met behulp van het excel forum ben ik geholpen.\nEen simpel scriptje wat ik verder zelf kon gebruiken\n\nBedankt!

[Anoniem2]

ff offtopic,\r\n\r\nt\'is natuurlijk wel leuk als je zelf niet voor een oplossing kunt zorgen, om iemand naar een ander forum te sturen. Maar dit probleempje had hier ook opgelost kunnen worden.\r\nEn......voor de belangstellende zou het leuk zijn als de oplossing hier ook geplaatst zou worden, miss leren ze er ook iets van.

[Anoniem2]

Of de oplossing nou hier gegeven word of elders, de hoofdzaak is dat de TS geholpen is, ik neem aan dat er geen concurrentie is tussen de verschillende fora. Het was idd leuk geweest als de TS even een linkje o.i.d. had gegeven naar het antwoord want dan hadden mensen met soortgelijke vragen er ook iets aan gehad.

[Anoniem2]

Het script voor 4 knoppen:\r\n\r\n+1 stem :\r\nPrivate Sub CommandButton17_Click()\r\nRange(\"C5\").Value = Range(\"C5\") + 1\r\nEnd Sub\r\n\r\n-1 stem\r\nPrivate Sub CommandButton2_Click()\r\n Range(\"C5\").Value = Range(\"C5\") - 1\r\nEnd Sub\r\n\r\nAlle velden resetten\r\nPrivate Sub CommandButton22_Click()\r\nRange(\"b5:b19\").Value = \"\"\r\nRange(\"C5:c19\").Value = 0\r\nRange(\"c28:c29\").Value = 0\r\nRange(\"c32\").Value = 0\r\nRange(\"c36\").Value = 0\r\nEnd Sub\r\n\r\n\r\nAlleen de stemmen resetten:\r\nPrivate Sub CommandButton3_Click()\r\n Range(\"C5:c19\").Value = 0\r\nEnd Sub\r\n\r\nEen schermafdruk zit er bij als bijlage\r\n\r\nHet werkt, het enige waar ik tegenaan loop is dat als ik de werkbladbeveiliging heb ingesteld, ik een foutmelding krijg

[Anoniem2]

Post dan eens een gezipt .xlsm bestandje ipv een jpg-tje

[Anoniem2]

het .xlsm bestandtoegevoegd

[Anoniem2]

Ik ben geen fouten tegen gekomen, bij mij werkt hij perfect

[Anoniem2]

Probeer eens met de werkbladbeveiliging aan

[Anoniem2]

Als de beveiliging aanstaat kan ik überhaupt niets aan het bestand veranderen daarom is het beveiligd, als ik de beveiliging uitschakel kan ik alles doen wat er gedaan moet worden dus ik zie het probleem niet

[Anoniem2]

Ik neem aan dat de werkbladbeveiliging alléén ter voorkoming van overschrijving is, dus zonder wachtwoord. \r\n\r\nDe CommandButtons heb ik vervangen door gewone knoppies.\r\n\r\n\r\nOwja.....je kunt met de - stemmen ook niet meer onder de 0 (nul) uitkomen.

[Anoniem2]

:D precies zoals de bedoeling is.\r\nBedankt