Extract data based on range of dates and value |VBA & Macros|Excel Forum|My Online Training Hub

Try the attached

Dates can be a bit moody in Excel access location but i think it should be okay as i am filtering on numbers

Purfleet

Option Explicit

Sub CondFilterNPaste()

Dim sDate As Long
Dim eDate As Long
Dim tValue As Double
Dim fValue As Double

sDate = Range("P2") 'Format(Range("p2"), "DD/MM/YYYY")
eDate = Range("P3") 'Format(Range("p3"), "DD/MM/YYYY")
tValue = Range("q2")

If Worksheets("Data").AutoFilterMode = True Then
Worksheets("Data").AutoFilterMode = False
End If

Range("b:b").TextToColumns Range("b:b"), xlDelimited

Range("A1:c1").AutoFilter field:=2, Criteria1:=">=" & sDate, Operator:=xlAnd, Criteria2:="<=" & eDate

fValue = WorksheetFunction.Sum(Range("c:c").SpecialCells(xlCellTypeVisible))

If Round(fValue, 5) - Round(tValue, 5) <> 0 Then
MsgBox "Filtered rows do not equal " & tValue & " the macro will now exit", vbInformation
Range("a1:c1").AutoFilter
Range("a1:c1").AutoFilter
End
End If

Range("a1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Worksheets("Extraction").Range("a1")

Range("a1:c1").AutoFilter
Range("a1:c1").AutoFilter

End Sub

the 6 highlighted cells are only a small selection of items dated the 8th and the 9th.

I have probably misunderstood the requirements - i thought you wanted to filter on all dates from start date to end date and if the total equals Q2 copy over.

the Macro is filtering on the dates 8th to 9th of Jan which is 11 rows and totals 118211.72 (red text) and is therefore ending.

Purfleet