Beste Oney,
Ik zou het volgende doen:
In "blad1" , in kolom 'F' plaats ik deze formule
=ALS(E3=1;0;1) en copieer ik deze naar alle gebruikte lijnen.
Dan zou ik een macro in een module zetten als volgt:
(((Ik noem de macro bvb 'voorwaarde')))
Je kan bvb deze macro oproepen door op een button te klikken. Vervolgens wordt de gewenste data overgezet naar blad2.
Sub voorwaarde()
Sheets("Blad1").Select
Range("F2:F500").Select
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="0"
Range("A1:E40").Select
Selection.Copy
Sheets("blad2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Blad1").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("Blad2").Select
Range("a1").Select
Sheets("Blad1").ShowAllData
End Sub
Probeer het maar eens en laat je gedacht dan weten.
Succes Dimy