count Datensätze von zwei Datumskriterien

Question

hoffe, ich kann jede Hilfe zu diesem .. Ich habe versucht, Datensätze zu zählen, die zwei Termine Kriterien erfüllen (Datum Kriterien sind dynamisch, so wird sich ändern, ich habe es auf dem nächsten Blatt aus den Daten hier ist Code, den ich zu laufen bin versucht, die mich leer Ergebnis ist hier zu bringen, ist mein Code, die ich gesammelt haben bisher Makro weiter:

Worksheets("Data").Select 
Range("A1").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Selection.AutoFilter 
ActiveSheet.Range("$A$1:$BN$235").AutoFilter Field:=4, Criteria1:="=COUNTIFS(DOB," >= "&R[1]C,DOB,""<=""&R[1]C[1])" 

ActiveWindow.SmallScroll Down:=-9 
Range("A1").Select 
Range(Selection, Selection.End(xlDown)).Select 
Range(Selection, Selection.End(xlToRight)).Select 
Selection.Copy 
Set NewSheet = Sheets.Add(After:=Worksheets("error")) 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
NewSheet.Name = "DOBrange" 
NewSheet.Range("A1").Select 
Application.CutCopyMode = False 

Worksheets("Data").Select 
Worksheets("Data").Range("A1").Select 

Answer 1

Sie scheinen zu versuchen, Zeilen zu filtern, indem Werte zwischen zwei Terminen Sie jedoch Ihren Kriterien zu sagen Sie möchte Werte auswählen, die gleich sind mit etwas (das scheinbar versucht, alle Werte gleich der Anzahl der Werte zu geben, die zwischen zwei anderen Daten liegen. Wenn also fünf Daten innerhalb des Bereichs liegen, versuchen Sie Filter zu geben, um alle Werte anzuzeigen das sind 5).

Der richtige Weg, um Werte zwischen zwei Daten durch wäre wählen sagen:

ActiveSheet.Range("$A$1:$BN$235").AutoFilter _ 
        Field:=4, _ 
        Criteria1:=">=" & Worksheets("Error").Range("A20").Value2, _ 
        Operator:=xlAnd, _ 
        Criteria2:="<=" & Worksheets("Error").Range("B20").Value2 

(sind die beiden Tage, unter der Annahme, in Zellen A20 und B20 von Arbeitsblatt „error“)

Answer 2

Sie haben Probleme bei der Kriterien1 Anweisung

Criteria1:="=COUNTIFS(DOB," >= "&R[1]C,DOB,""<=""&R[1]C[1])" 

Sie können Sehe, dass die Textfarbe von> = schwarz ist, während die andere braun ist, so wird Vba zwischen "= C OUNTIFS (DOB, "und" & R [1] C, DOB, "< =" "& R [1] C [1])" dann ist criteria1 wahr oder falsch. so dass Sie nicht das Ergebnis erhalten ändern sich je nach Ihrem Zustand

Der folgende Code kann dieses Problem beheben

Criteria1:="=COUNTIFS(DOB, "">=""" & R[1]C & ",DOB,""<=""" & R[1]C[1] & ")"