Hallo Allemaal,
Onderstaande stuke code haalt data uit aangewezen tabbladen en plakt dit in het voorblad als het voldoet aan de voorwaarde:
- kolom 5 is meer of minder dan ''0''.
- de datum in kolom 14 is ouder dan vandaag (dus de datum is voorbij)
Deze laatste werkt alleen niet. ik krijgt ook de regels te zien die nog moeten komen. Weet iemand wat ik hier fout doe?
Alvast bedankt!
Onderstaande stuke code haalt data uit aangewezen tabbladen en plakt dit in het voorblad als het voldoet aan de voorwaarde:
- kolom 5 is meer of minder dan ''0''.
- de datum in kolom 14 is ouder dan vandaag (dus de datum is voorbij)
Deze laatste werkt alleen niet. ik krijgt ook de regels te zien die nog moeten komen. Weet iemand wat ik hier fout doe?
Alvast bedankt!
HTML:
Application.ScreenUpdating = False
Sheets("BladX").UsedRange.Clear
Rows("1:9999").EntireRow.Hidden = False
For Each sh In Sheets(Array("Blad1", "Blad2", "Blad3", "Blad4"))
With sh.Cells(1).CurrentRegion
.AutoFilter 5, "<>0"
.AutoFilter Field:=14, Criteria1:="<" & Date, Operator:=xlAnd
x = Abs(Sheets("BladX").Cells(1).Value <> "")
.Offset(x).Copy
Sheets("BladX").Cells(Rows.Count, 1).End(xlUp).Offset(x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
.AutoFilter
End With
Next sh