Oefenbestandje werkt niet

[JJZijlstra]

Geachte lezer,

Hoewel aan de hand van wat literatuur lukt het mij niet om een naam in te voegen in het sheet via een vba-menu. Helaas weet ik niet wat ik fout doe of fout heb gedaan. De naam komt maar niet in het sheet te staan.
Om het eenvoudig te houden, ga ik eerst uit van een naam en als ik de juiste instructie heb, lukt het me misschien om ook zelf de andere velden in te vullen.
Het is de bedoeling dat je bij het afsluiten naar een volgende lege regel gaat.
Kunt u me wat adviezen en raad, c.q. correcties geven?

Vriendelijke groet,
Johan

 

[HSV]

Probeer het zo maar eens Johan.

Private Sub cmdOK_Click()
 Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 10).Value = _
  Array(tctNaam, txtAdres, txtPostcode, txtWoonplaats, Format(txtGeboortedatum, "dd-mm-yyy"), txtBesteldAantal, txtEenheidsprijs, txtTotaal, Format(txtBesteldatum, "dd-mm-yyyy"), Format(txtLeverdatum, "dd-mm-yyyy"))
End Sub

 

[OctaFish]

Wellicht ook handig om uit te leggen wat je verkeerd doet, want dat helpt je wat verder voor de volgende keer. Dat begint al hier:

Dim txtNaam As String

Je mag uiteraard best een variabele gebruiken, maar je moet die dan wél vullen met iets. Nu doe je er alleen dit mee:

    Cells(LegeRij, 1).Value = txtNaam

En dat heeft niet zo heel veel zin als de variabele leeg is. Bovendien: waarom zou je een aparte variabele gebruiken? Waarom niet gelijk het tekstveld gebruikt? Zeker als je de typefout uit de naam haalt (tctNaam had ongetwijfeld txtNaam moeten zijn)

Dim LegeRij As Long
    LegeRij = WorksheetFunction.CountA(Range("A:A")) + 1
    Blad1.Cells(LegeRij, 1).Value = Me.txtNaam

Werkt wél.

 

[snb]

Een wat andere benadering.

 

[JJZijlstra]

Oefenbestandje

Beste lezers,

Mijn dank voor alle adviezen.

Het bestand werkt nog niet zoals ik het zou willen. De invoer is niet consequent op de volgende regel.
Het totaalbedrag in euro's wordt niet uitgerekend.
Daarnaast heb ik de knoppen Volgende en Vorige toegevoegd
Welke adviezen c.q. verbeteringen zijn noodzakelijk.

Graag nogmaals uw reactie

Groet,
Johan

 

[snb]

advies 1: gebruik het bestand uit suggestie #4
advies 2: verander de vraagstelling niet voordat de primaire vraag is beantwoord
advies 3: geef specifieke feedback (en niet 'werkt niet zoals ik zou willen')

 

[JJZijlstra]

Oefenbestandje

Beste lezer,

Het bestand Oefen snb.xlsm werkt correct! Mijn hartelijke dank voor de correctie.

Ik zal deze eerst eens grondig gaan bestuderen alvorens opnieuw vragen te stellen.

Ik neem voorlopig dan even afstand van mijn zelfgemaakte Oefenbestand.xlsm.



Groet,
Johan