globe
Verenigingslid
- Lid geworden
- 18 mrt 2001
- Berichten
- 3.584
Ik gebruik al jaren een VB script om regels met een 0 te verwijderen.
Nu heb ik een andere lijst waar lege regels tussen staan. Als ik onderstaand script gebruik worden ook de lege regels verwijderd.
Wij kan me helpen onderstaand script aan te passen:
een andere oplossing zou kunnen zijn 2 voorwaarden aan het script te stellen.
De ene kolom moet wél een waarde bevatten, de andere kolom moet waarde 0 hebben, dan ben ik ook geholpen.
Nu heb ik een andere lijst waar lege regels tussen staan. Als ik onderstaand script gebruik worden ook de lege regels verwijderd.
Wij kan me helpen onderstaand script aan te passen:
Code:
Sub Delete_row()
Dim LastRow As Long, n As Long
Last_Row = Range("D65536").End(xlUp).Row
For n = LastRow To 11 Step -1
If Cells(n, 2).Value = 0 Then Cells(n, 2).EntireRow.Delete
Next n
End Sub
een andere oplossing zou kunnen zijn 2 voorwaarden aan het script te stellen.
De ene kolom moet wél een waarde bevatten, de andere kolom moet waarde 0 hebben, dan ben ik ook geholpen.
Laatst bewerkt: