Why do I get object required error here?

[vbaNumpty]

Trying to delete some data with a macro but I get a 424 object required error when I get to the deletion. Code is as follows:

For j = 1 To i
    
        If myArray(j, 9) = "Pick Up" Or myArray(j, 9) = "Pick Up - NEEDS REVIEW" Then
           
            myArray(j, 1).Resize(0, 12).Delete shift:=xlUp
        
        End If
        
    Next j

myArray(j, 1).Resize(0, 12).Delete shift:=xlUp is where I get the error.

 

[Fluff]

You cannot resize or delete values in an array like that.
What exactly are you trying to do?

 

[vbaNumpty]

You cannot resize or delete values in an array like that.
What exactly are you trying to do?

I am trying to filter and advanced filter list, a double filtering if you will.

I first have an advanced filter, I then copy those results to a new location to delete the contents I don't want.

 

[Fluff]

That does not tell me very much, but if you are already using the advanced filter, why not just adapt it to only return the results you want?

 

[vbaNumpty]

That does not tell me very much, but if you are already using the advanced filter, why not just adapt it to only return the results you want?

I am filtering based on dates, I then want to filter that list based on delivery status. I will just change how I organize the data and delete the rows then I guess. thanks for teaching me about not being able to manipulate arrays in the fashion I wanted.

 

[Fluff]

Are you using the inbuilt Advanced filter? If so why not just filter both on date & status, then copy the data?

 

[vbaNumpty]

Are you using the inbuilt Advanced filter? If so why not just filter both on date & status, then copy the data?

You can advanced filter on more than one criteria? How would you do that? I am using the following:

ordSht.Range("S1").Value = "Ship Date"
    ordSht.Range("S2").Value = Evaluate("=today()")
    
    ordSht.Range("A2:L1048576").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    ordSht.Range("$S$1:$S$2"), CopyToRange:=ordSht.Range("$U$1:$AF$1"), Unique:=False

 

[Fluff]

Have a look here, it shows how to filter on multiple columns & values Excel Advanced Filter – how to create and use - Ablebits.com