• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

userform invoer optellen

Status
Niet open voor verdere reacties.
marloes72

marloes72

Gebruiker
Lid geworden
23 apr 2007
Berichten
333
Ik heb een macro gemaakt voor onze actie Kerkbalans. Alles wordt keurig op de juiste plek ingevuld via het formulier dat ik gemaakt heb, maar de laatste 3 kolommen in de excelsheet moeten totalen geven en dat gebeurt niet automatisch bij nieuwe, via het userform (de "kaartenbak") ingevoerde, records. Wanneer ik dubbel klik op een gevulde witte cel die opgeteld moet worden en daarna naar de volgende cel ga wordt de waarde ineens wel herkend en meegeteld. Bijgaand een voorbeeld bestandje. Bij rij 1 heb ik dit truukje toegepast. Bij de andere twee rijen niet, vandaar dat daar de laatste 3 gele cellen van de rij op "0" staan. Hopelijk weet iemand hoe ik dit probleem oplos, zodat de getallen automatisch altijd opgeteld worden na het invoeren via het userform. In het voorbeeld bestandje bevatten alle gele kolommen een formule; deze vullen zich dus vanzelf. De witte kolommen bevatten zelf, via het userform, ingevulde waarden.
 

Bijlagen

  • 2020kerkbijdrage-TEST - kopie.xlsm
    71,9 KB · Weergaven: 31
Laatst bewerkt:
Jammer dat er zo'n poespas aan code in staat Marloes.

Ten eerste verdwijnt mijn Excel programma.
Daar ik daar een hekel aan heb ga ik het formulier sluiten.
Vervolgens komt er een MsgBox dat ik op de gele knop moet klikken.
Dan probeert de code het op te slaan, dus annuleer ik.
Vervolgens is alles eindelijk weg waarna Excel opnieuw opstart en alles van voor af aan begint.

Jammer, maar dat noem ik geen voorbeeldbestand en ik probeer het maar niet weer.
 
`Hoi Marloes,

volgens mij komt dat omdat je gebruik maakt van tekstboxen om bedragen in te vullen. Daarom worden ze ook als tekst weggeschreven
 
Beste Marloes ik ben het met HSV(Harry) eens
Hier valt niet mee te werken Excel verdwijnt en als ik annuleert of afsluiten dan verdwijnt het userform maar Excel komt bij mij niet eens terug is
compleet afgesloten, Waarom Excel verbergen ? plaats een voorbeeld zonder die poespas en dan wordt je zeker geholpen met je vraag
 
@Hier boven:
Jullie hebben wel gelijk, maar druk in het formulier eens rechts onderaan op de knop: Database openen in Excel
 
@Edmoor

Ik zie geen Knop database openen het userform is te groot voor mijn 15 inch scherm :d krijg het userform niet verder omhoog om de onderste helft te kunnen zien
dus vandaar. Überhaupt bij mij opent gelijk het userform zonder ook maar op de blauwe knop te drukken en verdwijnt Excel
 
Op mijn 34 Inch scherm is 'ie anders prima zichtbaar :p

De knop sluit het formulier en brengt je naar het Excel document.
 
Je zal wel op een laptop zitten.
Ik niet.
 
volgens mij komt dat omdat je gebruik maakt van tekstboxen om bedragen in te vullen. Daarom worden ze ook als tekst weggeschreven
Klik om te vergroten...
Hier gaat het inderdaad fout.
De textboxen worden als text weggeschreven.
Misschien dat een van de VBA specialisten het met een klassemodule kan oplossen, anders wordt het nogal veel tikwerk.
 
Laatst bewerkt:
Marloes, als je een getalswaarde uit bvb textbox1 in een cel wil zetten :
gebruik dan cell(1,1)=val(textbox1)
 
Laatst bewerkt:
Val herkent alleen de punt als decimaal scheidingsteken.

Voor een komma als decimaal scheidingsteken in de textbox gebruik je Cdbl.
 
loek010 zei:
Waarom Excel verbergen ?
Klik om te vergroten...
omdat de mensen die ermee werken niks van Excel snappen. Daarom heb ik geprobeerd het voor hen zo gemakkelijk mogelijk te maken. En dat is gelukt; ze zijn er blij mee en kunnen er goed mee werken. Alleen het optellen lukt dus niet en dat is vooral voor mij lastig :confused:.
 
Laatst bewerkt:
Haije zei:
`Hoi Marloes,
volgens mij komt dat omdat je gebruik maakt van tekstboxen om bedragen in te vullen. Daarom worden ze ook als tekst weggeschreven
Klik om te vergroten...

Zo ver was ik idd ook, :) maar ik weet niet hoe ik de invoer anders zou moeten oplossen, vandaar mijn vraag.
 
Laatst bewerkt:
Invoer in een TextBox is altijd tekst, wat de naam al aangeeft.
In dit geval moet je deze dus bij het wegschrijven converteren, zoals al genoemd is.
Bijvoorbeeld:
Code: 
Sheets("Blad1").Range("A1") = Cdbl(TextBox1.Text) + Cdbl(TextBox2.Text) + Cdbl(TextBox3.Text)

De functie Cdbl converteert de ingegeven tekst naar een numerieke waarde met 2 cijfers achter de komma.
 
Laatst bewerkt:
HSV zei:
Val herkent alleen de punt als decimaal scheidingsteken.

Voor een komma als decimaal scheidingsteken in de textbox gebruik je Cdbl.
Klik om te vergroten...

Ah, die is nieuw voor mij! Dankjewel! Ga ik proberen! Wordt vervolgd! :)
 
Laatst bewerkt:
edmoor zei:
Invoer in een TextBox is altijd tekst, wat de naam al aangeeft.
In dit geval moet je deze dus bij het wegschrijven converteren, zoals al genoemd is.
De functie Cdbl converteert de ingegeven tekst naar een numerieke waarde met 2 cijfers achter de komma.
Klik om te vergroten...

Ik was bovenaan begonnen en had er inmiddels dus al wat over gelezen. Fijn dat je het nog wat specifieker uitlegt. Dankjewel! Ik ga er morgen mee aan de slag! Wordt vervolgd dus! :)
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan