Nullijnen verwijderen

[rainbowniagara]

Beste

Ik heb in een Excel-file een aantal lijnen met 0-waarden.
Momenteel ga ik elke lijn af en verwijder ik deze lijn.
Bestaat er een manier om automatisch deze lijnen te verwijderen?
In bijlage heb ik een voorbeeldbestand gemaakt.

 

[danny147]

Beste rainbowniagara

Plaats deze code in een module in de VBA editor.

Sub Nullijnen()
For Each cl In Range("A1:A20")
If cl = 0 Then
cl.Rows.EntireRow.Delete
End If
Next
End Sub

Druk op ALT + F8 en klik op uitvoeren.

Groetjes Danny. :thumb:

 

[gelens]

Beste rainbowniagara

Plaat een filter en filter op 0
Verwijder daarna deze regels.

 

[rainbowniagara]

Beste rainbowniagara

Plaats deze code in een module in de VBA editor.

Sub Nullijnen()
For Each cl In Range("A1:A20")
If cl = 0 Then
cl.Rows.EntireRow.Delete
End If
Next
End Sub

Druk op ALT + F8 en klik op uitvoeren.

Groetjes Danny. :thumb:

Bedankt voor de tip.
Ga ik zeker uitproberen.

 

[danny147]

Beste rainbowniagara

Vergeet dan niet de vraag op opgelost te zetten.

Ziehier anders het bestandje met de code erin.

Groetjes Danny. :thumb:

 

[rainbowniagara]

Beste rainbowniagara

Vergeet dan niet de vraag op opgelost te zetten.

Ziehier anders het bestandje met de code erin.

Groetjes Danny. :thumb:

Zal ik doen nadat ik het uitgeprobeerd heb.
Groetjes Rainbowniagara

 

[Warme bakkertje]

Voor het verwijderen van rijen doet men dit best van onder naar boven, dit om fouten bij het wissen te voorkomen.
Of maak gebruik van de speciale methodes van XL (SpecialCells).
In de bijlage enkele mogelijkheden voor het verwijderen van rijen.