Userform - checkbox vraag

[Mieke1985]

Hallo, ik heb een userform gemaakt met meerdere selectievakjes.

Dit werkt perfect, op 1 ding na; als je een selectievakje aanvinkt dan komt de uitkomst op 2 regels te staan. Dus op de 2 laatste lege regels.
Hierbij het bestand:
Bekijk bijlage Voorbeeld1.xlsm


Iemand een idee om dit op te lossen?

Bedankt.

 

[lam201]

Hoi Mieke,

Je had in je code het volgende staan:

Private Sub CheckBox1_Click()
With Sheets("voorbeeld1")
Rij = .Range("B" & Rows.Count).End(xlUp).Row + 1 'naar eerste lege regel
.Cells(Rij, "K") = "x"
End With

End Sub

Dit houdt in dat zodra je de checkbox klikt, de data ("x") direct werd weg geschreven in het werkblad.
Door de code in te voegen in de cmmndToevoegen-sub, wordt de data pas weggeschreven zodra je op "Toevoegen" klikt.

If CheckBox1.Value = True Then .Cells(Rij, "K") = "x"

Verder ook je VBA code een beetje opgeschoond.
Lambert
Bekijk bijlage HelpMij-Voorbeeld1.xlsm

 

[Mieke1985]

Super bedankt Lam201!
Het werkt perfect, ook bedankt voor het opschonen. :thumb: :thumb: :thumb: