SjonR
Verenigingslid
- Lid geworden
- 10 nov 2016
- Berichten
- 3.279
Helpers,
Ik loop al een tijdje te emmeren met een for each waarbij ik meerdere keren op een knop moet klikken voordat alle rijen worden verwijderd. Ik weet niet wat ik fout doe waardoor het niet in één keer klikken kan. Jullie waarschijnlijk wel. Bij een oplossing vinden voor een vraagstuk van een andere TS loop ik weer tegen hetzelfde probleem aan.
Waar ga ik de mist in?
Ik loop al een tijdje te emmeren met een for each waarbij ik meerdere keren op een knop moet klikken voordat alle rijen worden verwijderd. Ik weet niet wat ik fout doe waardoor het niet in één keer klikken kan. Jullie waarschijnlijk wel. Bij een oplossing vinden voor een vraagstuk van een andere TS loop ik weer tegen hetzelfde probleem aan.
Waar ga ik de mist in?
Code:
Private Sub CommandButton1_Click()
Dim Acell As Range
Dim R As Range
Set R = Blad1.Range("L1:L150")
For Each Acell In R
If Application.WorksheetFunction.CountIf(R, Acell) > 10 Then
Acell.EntireRow.Delete
End If
Next Acell
End Sub
Bijlagen
Laatst bewerkt: