VBA Auto filter & amending values help

[Gtwist]

Hi All,

so basically i have the following table

	A	B	C	D
1	Start	Duration	Depart	Month
2	01/11/2019	61	01/01/2020	January
3	01/12/2019	18	19/12/2019	December
4	19/12/2019	26	14/01/2020	January
5	25/12/2019	5	30/12/2019	December
6	30/11/2019	43	12/01/2020	January
7	21/12/2019	11	01/01/2020	January
8	02/11/2019	19	21/11/2019	November
9	15/11/2019	27	12/12/2019	December

<tbody>
</tbody>

so im currently using the following Vba to filter the data

Range("A1:D9").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$9").AutoFilter Field:=3, Criteria1:= _
">12/31/2019", Operator:=xlAnd

which leaves me with the following

	A	B	C	D
	Start	Duration	Depart	Month
1	01/11/2019	61	01/01/2020	January
4	19/12/2019	26	14/01/2020	January
6	30/11/2019	43	12/01/2020	January
7	21/12/2019	11	01/01/2020	January

<tbody>
</tbody>

so what im actually after is a vba code to amend the value in the current visible cells in column D from January to 2020, is this possible to do in the one sheet or would i need to copy the current visible data to new sheet make the amends then remove the original data and paste this over


thanks for any help given in advance!

 

[Peter_SSs]

Welcome to the MrExcel board!

See if this does what you want. Test with a copy of your workbook.

If it is not what you want, please give more details and explain exactly what you mean by "amend the value in the current visible cells in column D from January to 2020"

Sub Test1()
  With Range("A1:D9")
    .AutoFilter Field:=3, Criteria1:=">12/31/2019"
    If .Columns(1).SpecialCells(xlVisible).Count > 1 Then
      .Columns(4).Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible).Value = 2020
    End If
    .AutoFilter Field:=3
  End With
End Sub