Rijen verwijderen

[fanis01]

Hallo
Ik wil van de 145 rijen,Bekijk bijlage 111 new moederbestand.xlsBekijk bijlage 111 new moederbestand.xls een aantal overbodige rijen verwijderen met een macro of iets dergelijks. Voorwaarde is dat alleen de rijen worden verwijderd waar in kolom B een 0 (nul) staat EN in kolom C een 0 (nul) staat. Dus in beide kolommen moet er een 0 staan.
Zie ook het voorbeeld bestandje.
Bij voorbaat dank
Fanis

 

[Niels28]

Zo zou het kunnen

Sub test()
Application.ScreenUpdating = False
For rw = 145 To 1 Step -1
If Cells(rw, 2) = 0 And Cells(rw, 3) = 0 Then
Cells(rw, 3).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub

Niels

 

[Cobbe]

Deze macro zou dat voor u moeten fixen:

Sub rijen_Verwijderen()
 Application.ScreenUpdating = False
   laatsterij = ActiveSheet.Range("A65000").End(xlUp).Row
     For rij = laatsterij To 1 Step -1
         If Cells(rij, 2) = 0 And Cells(rij, 3) = 0 Then Rows(rij).Delete
     Next
End Sub

Succes, Cobbe

 

[fanis01]

Ja het werkt. Super.
Hartelijk dank.