Beste Oplossers, helpers en meedenkers

Ik krijg de smaak te pakken wat VBA betreft, maar voel mij nog zo'n klein guppie in die hele grote vijver dat ik waarschijnlijk jullie hulp nog wel een flink aantal keren zal inroepen

Wat is dit keer mijn plan/uitdaging.

Ik krijg van iedere rit die ik maak gegevens over die rit, die voer ik nu nog handmatig in mijn exceltabel in om via berekeningen te komen tot de af te dragen bedragen aan diverse posten. Dit gebeurd aan de hand van enkele gegevens: Datum, Annuleringskosten, Buitengebied, Correctie, Surge, Afstand en Tijd.

Ik heb een formuliertje in elkaar gezet maar heb geen flauw idee hoe ik nu een en ander aan elkaar koppel.

Het is dus de bedoeling dat de invoer nadat ik op de knop "Invoer" heb gedrukt, de gegevens op de eerst volgende lege regel wordt ingevoerd.

Op mijn formulier staan de volgende zaken en die corresponderen met de daarnaast genoemde kolom:

Datum --> Datum
Annuleringskosten --> A
Buitengebied --> B
Correctie --> C
Surge --> Surge
Afstand --> Afstand
Tijd --> Tijd
Ritprijs delen  --> Ritprijs delen

Verder 3 knoppen "Invoer" "Annuleer" en "Herstel" waarbij ik had bedacht:

Invoer: voer de ingevulde gegevens door naar de tabel en maak het formulier leeg
Annuleer: Sluit het formulier
Herstel: leeg het formulier om opnieuw te kunnen invoeren

Bij Kolom A, B, en C heb ik bewust gekozen voor de Checkbox omdat die drie opties ook daadwerkelijk alle drie gekozen moeten kunnen worden, in de respectievelijke cellen dient ook een A, B of C te komen staan.

Uiteraard voeg ik een uitgekleed bestand toe met alleen het relevante tabblad.

Mijn dank is nu al onnoemelijk groot en natuurlijk ben ik beschikbaar eea nader toe te lichten, al moet ik vandaag nog wel even werken

Hoi SoftAid,

Dit zit als het goed is in die macro verwerkt onder Formulieren...

Hallo Johan,

een formulier maak je (meestal) in de VBA-editor, via Invoegen, Userform.
Er verschijnt dan een "map" Userform1 in de linker kolom van de editor, daar waar ook je tabbladen, Workbook en Modules staan.

Die Userform1 vind ik niet terug in jou voorbeeldbestand (dat ook telkens crasht als ik er een wijziging in aan wil brengen).
Welke versie van Office gebruik je?

SoftAid              

Hallo Johan,

ik heb hier wel de CD voor de Office 365 liggen, ik ga deze eens installeren, en dan proberen je bestand te bewerken.

Ik kom er later op terug.

SoftAid              

Hallo Johan,

Ik heb office 365 op mijn (nieuwe) laptop geïnstallaerd, en jou eerste bestand er op gedownload. Ik kan het nu wel openen en aanpassen, wat ik eerder niet kon met mijn Office 2007. Ik zie ook je Userform staan.
Spijtig genoeg weet ik nog niet genoeg van deze manier van Userforms maken. Ik ben gewoon van deze in het werkblad zelf te maken.

Ik zal dus een beetje moeten studeren en proberen. Mogelijk en hopelijk kan en zal een andere helper het even van mij overnemen.

Als ik geen beweging zie, dan laat ik je toch iets weten.

Groeten,

SoftAid              

PS: met die frm en frx bestanden kan ik nog steeds niets aanvangen

Hallo Johan,

ik heb Office 2007 op mijn laptop geïnstalleerd, en ervaar nu geen problemen meer om jou bestand te openen.
Blijkbaar zijn er fouten in mijn Excel 2007 op mijn Desktop.

Het maken van Userforms dateert nog uit mijn tijd met Excel XP.
Ik moet er dus even terug inkomen met de Excel 2007 methode.

De userform Facturen die je aangemaakt hebt is goed, kunnen later nog steeds iets aanpassen als nodig.

Nu moet je eerst de Userform zichtbaar maken zodat je hem kan gebruiken.

Dat doe je door bvb een knop in je werkblad 2017 te plaatsen. Deze knop (Commandboutton1) link je aan je macro.
De macro zet je op het formulier Facturen.
Rechtsklik op het formulier "facturen" en kies "Programmacode weergeven".
Plaats hier bovenaan de macro:

Private Sub Commandbutton1_Click()
Facturen.Show   ' dit activeert je formulier in je tabblad 2017
End SubJe Userform wordt nu getoond in je tabblad 2017 als je op de knop Commandbutton1  klikt.

Om de Userform te sluiten voeg je volgende macro toe:

Private Sub Commandbutton2_Click()
Unload Me
End Sub
Voer dit al even uit en test het. Stapje voor stapje, anders breekt het lijntje 

Probeer de opbouw van de code te begrijpen, want het meeste herhaalt zich (met variaties ) toch telkens.

Ik zie wel liever dat je (in de eigenschappen van de verschillende forms) een passende naam geeft (Name) aan je besturingselementen.
Een knop die "Knop_Annuleren" heet, is duidelijker in een macro dan een knop "Commandbutton2"
Idem voor een txt-invoervak. Een "txt_Surge" is duidelijker dan een "TextBox4" als naam.
Dan herken je later in de code onmiddellijk om welke  knop of txtbox het gaat.
Maak ook je werkblad 2017 leeg, op de koppen en enkele regels na. Meer heeft geen nut.
Stuur dan eens een aangepast voorbeeld mee.

Groeten,

SoftAid              

Hallo Johan,

fijn dat het zo lekker opschiet 

De datum kan je mogelijk steeds op dezelfde manier laten verschijnen, ongeacht op welke manier je hem ingeeft, door gebruik te maken van de Selection.NumberFormat = "dd-mm-yyyy;@"

Hoe juist te integreren moet ik ook even uitzoeken.

SoftAid              

Mag ik met jullie mee doen? Ik zal vanavond ook ff wat posten. Misschien komen we daar ook verder mee...