Home/ Questions/Q 9020371
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-06-16T04:59:57+00:00

I’m working on a VBA script that pulls a range of dates from Access,

  • 0

I’m working on a VBA script that pulls a range of dates from Access, then filters the data and creates a chart based on the filtered data. The filtered data will be going to a separate sheet where the chart will be pulling its data from . I can get data out of Access with a SQL statement, but my AutoFilter in Excel is erroring out. Here is what I have…

Sheet3.Range("F4:F500").AutoFilter(, "Riveter 01").Copy Destination:=Sheet2.Range("A5")

It gives an app-defined or object-defined error and I can’t figure out why. Is this the proper way or is there an easier way?

PS: This filter will happen with 22 unique machines so I was planning on running a loop for each machine. If that is not the fastest or proper way please let me know.

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    You need to split this into two parts. Filter and then copy/ paste. See below:

    With Sheet3
    .AutoFilterMode = False
    With .Range("F4:F500")
        .AutoFilter Field:=1, Criteria1:="Riveter 01"
        .SpecialCells(xlCellTypeVisible).Copy Destination:=Sheet2.Range("A5")
    End With
End With

    to remove the filter:

    On Error Resume Next
    Sheet3.ShowAllData
On Error GoTo 0

    On Error Resume Next is for when there is no filter present to skip the error. Please note the use of Sheet3 and Sheet2 for those looking for a generic solution.

    • 0