De code voor de knop "Toevoegen', de drop-downlijst, en de knop "Sluiten" heb ik reeds toegevoegd.
Laat ik deze eens overlopen.
Het onderste deel (3) is de code die moet worden uitgevoerd wanneer je de knop "Sluiten" (cmdSluiten) hebt geklikt. Dit lijkt me wel duidelijk
In het eerste deel vinden we de code terug die moet worden uitgevoerd wanneer de knop "Toevoegen" (cmdToevoegen) wordt geklikt (1).
Met de eerste lijn code ActiveWorkbook.Sheets("Afdeling").Activate, activeren we het werkblad "Afdeling".
Met de tweede lijn code Range("A1").Select, selecteren we cel A1.
Met de volgende rijen code gaan we hem een lege cel laten zoeken, heeft hij deze gevonden, dan schrijft hij de gegevens weg in de lege cellen.
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtNaam.Value
ActiveCell.Offset(0, 1) = cboAfdeling.Value
Range("A1").Select
Dus wat staat hier:
Als de actieve cel niet leeg is (If IsEmpty(ActiveCell) = False Then)
Dan wordt de volgende rij geselecteerd
(ActiveCell.Offset(1, 0).Select)
Dit herhaalt hij tot hij een lege cel heeft gevonden (Loop Until IsEmpty(ActiveCell) = True)
Heeft hij een lege cel gevonden, dan plaatst hij de gegevens uit het vak txtNaam in de actieve cel:
ActiveCell.Value = txtNaam.Value
Vervolgens springt hij een cel naar rechts en plaatst daar de gegevens in uit het drop-downmenu:
ActiveCell.Offset(0, 1) = cboAfdeling.Value
Dan keert hij terug naar cel A1 in het werkblad. (Dit hoeft er niet in te staan, want hiermee springt hij gewoon terug naar cel A1).
Range("A1").Select
En daarna maakt hij terug alle vakken leeg (Hoeft ook niet, maar hiermee worden alle vakken netjes leeg gemaakt wanneer de gegevens zijn weggeschreven.
Me.txtNaam.Value = ""
Me.cboAfdeling.Value =""
En als laatste maakt hij een eind aan de subroutine vaar de knop cmdToevoegen
End Sub |