VBA Advanced filter to x1filtercopy data that matches 3 cells

[paublojobino]

Hi there,
I want to copy data from a source spreadsheet (sheet1) to another spreadsheet (sheet2) if it matches the three criteria listed below

add to report = Y (column a)
date = is within (user enters in"a1" to "a2")
job code = is equal to "a3"

How can i use VBA and advanced filter?

 

[DanteAmor]

Arrange your data as follows:

varios 13jun2022.xlsm
	A	B	C	D
1	date	date	add to report	job code
2	>=44716	<=44722	Y	J7
3	Initial Date	04-jun
4	Final Date	10-jun
5	add to report	date	job code
6	Y	01-jun	J5
7	Y	02-jun	J5
8	Y	03-jun	J6
9	Y	04-jun	J7
10	N	05-jun	J5
11	N	06-jun	J5
12	N	07-jun	J6
13	Y	05-jun	J7
14	Y	09-jun	J5
15	Y	10-jun	J7
16	N	11-jun	J6
17	N	12-jun	J7
Hoja5

Cell Formulas
Range	Formula
A2	A2	=">="&B3
B2	B2	="<="&B4

Capture the dates in B3 and in B4.
Modify column "C" in the macro by the letter of the last column with data.

Sub Macro2()
  Dim lr As Long
  With Sheets("Sheet1")
    lr = .Range("A" & Rows.Count).End(3).Row
    .Range("A5:C" & lr).AdvancedFilter xlFilterInPlace, .Range("A1:D2"), False
    .Range("A6:C" & lr).Copy Sheets("Sheet2").Range("A2")
    .ShowAllData
  End With
End Sub

Note: It is important that the names of the columns in A1, B1, C1 and D1 are the same as the names of the headings of your information.