Copy rows from sheet1 to sheet2 based on date.

[Roodoc]

I have a worksheet similar to below, but with many more rows. What I would like to do is to take the information only from the columns ID, Name, and Due Date to the second worksheet when the due date is between 6 months (+190 days) and 2 months (+70 days) from today's date.

					# ID Name Flags Code Classification Item Date Due Date 101 5563 J. Smith A Y Office 13 11/15/2018 2/7/2019 102 1257 B. Wallace V Y Cube 7 8/1/2018 9/15/2019 201 259 M. Salinas NF N Cube 8 1/4/2016 1/7/2019 202 3002 K. Shea AV Y Cube 11 1/6/2019 6/28/2021 <colgroup><col style="mso-width-source:userset;mso-width-alt:2084;width:43pt" width="57"> <col style="mso-width-source:userset;mso-width-alt:2925;width:60pt" width="80"> <col style="mso-width-source:userset;mso-width-alt:6912;width:142pt" width="189"> <col style="mso-width-source:userset;mso-width-alt:2084;width:43pt" width="57"> <col style="mso-width-source:userset;mso-width-alt:1901;width:39pt" width="52"> <col style="mso-width-source:userset;mso-width-alt:6912;width:142pt" width="189"> <col style="mso-width-source:userset;mso-width-alt:3181;width:65pt" width="87"> <col style="mso-width-source:userset;mso-width-alt:2486;width:51pt" width="68"> </colgroup><tbody> </tbody>

<thead>
</thead><tbody>
</tbody>

In the second worksheet (sample below) I would have to add further information in each row. I would like these rows to stay intact when updated, if possible. This is because I have other information to add to the reports that are due within 190 days. As I get the steps completed I could add the dates in.

ID	Name	Due Date	Progress	Referral	Template	Score	RRG	Comments
5563	J. Smith	5/17/2019
259	M. Salinas	6/3/2019

<colgroup><col style="width:48pt" width="64"> <col style="mso-width-source:userset;mso-width-alt:2596;width:53pt" width="71"> <col style="mso-width-source:userset;mso-width-alt:2889;width:59pt" width="79"> <col style="mso-width-source:userset;mso-width-alt:2742;width:56pt" width="75"> <col style="mso-width-source:userset;mso-width-alt:2633;width:54pt" width="72"> <col style="mso-width-source:userset;mso-width-alt:2962;width:61pt" width="81"> <col style="width:48pt" width="64" span="2"> <col style="mso-width-source:userset;mso-width-alt:3254;width:67pt" width="89"> </colgroup><tbody>
</tbody>

Also, the same information needs to be gathered into a third sheet if it is within 2 months (+70 days) but no longer on the second sheet. With further information gathered there as well.

ID	Name	Due Date	Placement	Assessment
5563	J. Smith	4/13/2019
259	M. Salinas	5/15/2019

<colgroup><col style="width:48pt" width="64"> <col style="mso-width-source:userset;mso-width-alt:2596;width:53pt" width="71"> <col style="mso-width-source:userset;mso-width-alt:2889;width:59pt" width="79"> <col style="mso-width-source:userset;mso-width-alt:2742;width:56pt" width="75"> <col style="mso-width-source:userset;mso-width-alt:3072;width:63pt" width="84"> </colgroup><tbody>
</tbody>

I have looked into VBAs and such and can not figure them out for the life of me. I can't figure out how to have this data entered without screwing with the rows I already have entered in sheet 2 and 3. This is a worksheet that I use daily. So I would like for the data to be updated each time I view the worksheet. I have tried advanced filters to no avail. Many thanks to those who attempt to help and know much more than I do.

 

[Roodoc]

Please help. I have tried macros, filters, advanced filters, and linking cells. I have also tried to watch many hours of VBA videos and have not found how to complete this function.

It would also be helpful if somebody could point me in the direction that could help me understand how to write the VBA for this.

 

[MARK858]

Not sure about the rest of your requirements but the macro below for me with the data as below

Excel Workbook
	A	B	C	D	E	F	G	H
1	#	ID	Name	Flags	Code	Classification	Item Date	Due Date
2	101	5563	J. Smith	A	Y	Office 13	11/15/2018	07/04/2019
3	102	1257	B. Wallace	V	Y	Cube 7	08/01/2018	15/09/2019
4	201	259	M. Salinas	NF	N	Cube 8	01/04/2016	07/01/2019
5	213	316	Z. Me	B		Office 11	06/06/2018	03/06/2019
6	202	3002	K. Shea	AV	Y	Cube 11	01/06/2019	28/06/2021
Sheet1

Changes

Excel Workbook
	A	B	C
1	ID	Name	Due Date
2
3
4
5
6
Sheet2

to

Excel Workbook
	A	B	C
1	ID	Name	Due Date
2	5563	J. Smith	07/04/2019
3	316	Z. Me	03/06/2019
Sheet2

on Sheet2.

Please note that my dates are in dd/mm/yyyy format not mm/dd/yyyy format

Sub Filterit()
    With Sheets("Sheet1").Range("A1:H" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
        .AutoFilter Field:=8, Criteria1:= _
        ">=" & CLng(Date + 70), Operator:=xlAnd, Criteria2:="<=" & CLng(Date + 190)
        
        On Error Resume Next
        Intersect(Sheets("Sheet1").Range("B:C,H:H"), .Offset(1).Resize(.Rows.Count - 1)).SpecialCells(xlCellTypeVisible).Copy _
                Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
        On Error GoTo 0
        .AutoFilter
    
    End With
End Sub

Hopefully it will get you started