Lijst aanvullen werkt niet.

[gelens]

VBA-ers.

Sinds kort probeer ik VBA onder de knie te krijgen. Daarvoor gebruik ik een boek om de basis principes te begrijpen. Dit doe ik door de "oefeningen" stuk voor stuk over te nemen om zodoende te begrijpen wat de gevolgen zijn van de declaratie's etc.
Bijgaand voorbeeld heb ik ook doorgenomen maar ik krijg deze niet werkend. Het is een "simpele" oefening om een lijst aan te vullen. Ondanks herhaaldelijk letterlijk overtypen lukt het niet om de fout boven water te krijgen.
Het is ongetwijfeld iets simpels maar ik zie het even niet meer.

 

[Hoornvan]

Kijk of je dit bedoel.

 

[snb]

- Het is handig de code voor het userform ook in de VBA-module van het userform te plaatsen.

- de code

Private Sub cmbNaamtoevoegen_Click()
  Load frmNT
  frmNT.Show
End Sub

is dubbelop.
De methode Show bergt de methode load in zich. Dit is dus voldoende:

Private Sub cmbNaamtoevoegen_Click()
  frmNT.Show
End Sub

- gebruik inspringen om de code beter leesbaar te maken
- deze code is overbodig en niet gebruikersvriendelijk

Private Sub userForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = vbFormControlMenu Then
     MsgBox "U kunt dit formulier alleen sluiten met de Annuleren-knop", vbOKOnly Or vbInformation
     Cancel = True
   End If
End Sub

Als je wil dat bij het klikken op het kruisje hetzelfde gebeurt als wanneer je op de annulerenknop klikt, gebruik dan:

Private Sub userForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    cmdAnnuleren=true
End Sub

 

[Wigi]

De mtehdoe Show

En wát precies had je hiermee willen bedoelen?

Private Sub userForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    cmdAnnuleren=true
End Sub

Welke code komt er dan in het Click event van cmdAnnuleren?

Wigi

 

[snb]

@Wigi

Kwisnie dajenie van anagrammen hield

 

[gelens]

Wim,

Dit is inderdaad de bedoeling van de oefening.
Zover ik kan zien heb je de index gewijzigd. Deze wijziging heb ik ook in mij eigen sheet doorgevoerd maar helaas zonder het gewenste resultaat.

Kijk of je dit bedoel.

Kan je nog een tipje van de sluier oplichten zodat ik er iets van kan leren ?

 

[Hoornvan]

gelens,

Ik heb de code van de knoppen op het formulier, achter het formulier gezet.

Je had b.v.b ActiveCell.Value = txtNaam.txt staan en moet zijn ActiveCell.Value = txtNaam.text

Kijk of je kan vinden wat je bedoel, (wat er fout gaat).
Dit soort dingen waar hij een fout melding gaf heb ik verbeterd, meer niet.

Als je in jouw bestandje, en je ben in de Editor kun je met F8 de code doorlopen en zo zien waar het fout gaat.