Forum Discussion

ASaarathi's avatar
ASaarathi
Copper Contributor
Oct 02, 2024

Recorded Macros Need To Be Updated With New Rows Added

Initially I had only 500 row entries for which I recorded the macro as per the following. 1.  Filter Column C Revision with blanks 2.  Filter Column E INITIAL PLAN SUBMITTAL DATE, the cut-of...
Macros and VBA
HansVogelaar's avatar
HansVogelaar
MVP
Oct 02, 2024

ASaarathi 

You might copy the code of the macro into a reply.

Or create a stripped-down copy of the workbook demonstrating the problem (without sensitive information) and make it available through one of the websites that let you upload and share a file, such as OneDrive, Google Drive, FileDropper or DropBox. Then post a link to the uploaded and shared file here.

ASaarathi's avatar
ASaarathi
Copper Contributor
Oct 02, 2024
Appreciate and many thanks for your guidance. As required the file is provided in the below link https://drive.google.com/file/d/1p9y9g688PMSbUTcGGTcw2hkL2counHcM/view?usp=drive_link
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Oct 02, 2024

    ASaarathi 

    You'll need to allow access to the file - I now get "Access Denied".

    • ASaarathi's avatar
      ASaarathi
      Copper Contributor
      Oct 02, 2024
      I have provided the access - pls check
      • HansVogelaar's avatar
        HansVogelaar
        MVP
        Oct 02, 2024

        ASaarathi 

        Thanks. Here is a modified macro:

        Sub Test()
    '
    ' Test Macro
    ' VDTR
    '

    Dim rng As Range
    Application.ScreenUpdating = False
    Set rng = Range("A1").CurrentRegion
    rng.AutoFilter Field:=3, Criteria1:="="
    rng.AutoFilter Field:=5, Operator:=xlFilterValues, _
            Criteria2:=Array(1, "3/28/2024", 1, "4/30/2024", 1, "5/28/2024", _
            1, "6/25/2024", 1, "7/30/2024", 1, "8/29/2024", 1, "9/24/2024")
    Intersect(Range("A:A"), rng).Offset(1).SpecialCells(xlCellTypeVisible).Value = 6
    rng.AutoFilter
    Application.ScreenUpdating = True
End Sub

Resources