Ik heb een macro gemaakt voor onze datafile, deze filterd eerst alle data op Ind. Asep. dominante hand LAF kast A stempel, daarna alle waarde die dan onder de 15 liggen, maar als derde filter moeten de data gezet worden die tussen een bepaalde datum liggen. Deze data staan ingevuld op een ander tabblad, maar ik krijg deze niet werkzaam.
Het gaat dus om deze regel ; ActiveSheet.Range("$A$4:$AC$100000").AutoFilter Field:=3, Criteria1:=Sheets("Review-hand-LAF kast").Range(">=C7"), Operator:=xlAnd, Criteria2:=Sheets("Review-hand-LAF kast").Range("<=E7")
criteria 1 is de begindatum (staat op tabblad Review-hand-LAF kast op plek C7) en criteria 2 de einddatum ( staat op tabblad Review-hand-LAF kast op plek E7.
Wat doe ik fout??
Het gaat dus om deze regel ; ActiveSheet.Range("$A$4:$AC$100000").AutoFilter Field:=3, Criteria1:=Sheets("Review-hand-LAF kast").Range(">=C7"), Operator:=xlAnd, Criteria2:=Sheets("Review-hand-LAF kast").Range("<=E7")
criteria 1 is de begindatum (staat op tabblad Review-hand-LAF kast op plek C7) en criteria 2 de einddatum ( staat op tabblad Review-hand-LAF kast op plek E7.
Wat doe ik fout??
Code:
Sub REVIEW_Individueel_aseptisch_dominante_hand_A_Kwartaal()
'
' REVIEW_Individueel_aseptisch_dominante_hand_A_Kwartaal Macro
'
Sheets("Invulblad").Select
ActiveSheet.Unprotect "JohnHen"
ActiveSheet.Range("$A$4:$AC$100000").AutoFilter Field:=2, Criteria1:="Ind. Asep. dominante hand LAF kast A stempel"
ActiveSheet.Range("$A$4:$AC$100000").AutoFilter Field:=14, Criteria1:="<15"
ActiveSheet.Range("$A$4:$AC$100000").AutoFilter Field:=3, Criteria1:=Sheets("Review-hand-LAF kast").Range(">=C7"), Operator:=xlAnd, Criteria2:=Sheets("Review-hand-LAF kast").Range("<=E7")
Range("N5:N100001").Select
Selection.Copy
Sheets("Review berekening").Visible = True
Sheets("Review berekening").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Review berekening").Visible = xlVeryHidden
Sheets("Invulblad").Select
ActiveSheet.Range("$A$4:$AC$100000").AutoFilter Field:=2
Range("A5").Select
ActiveSheet.Protect "JohnHen", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:= _
True
Sheets("Review-hand-LAF kast").Select
End Sub
Laatst bewerkt door een moderator:
