AdvancedFilter

[PcMax]

Hi,


The data and research needs to occur on the same sheet

Use the following code to retrieve data


For Each Numeri In arr

Range("W2") = Numeri

Foglio1.Range("D1:I" & RigaDn1).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Foglio1.Range( _
"W1:W2"), CopyToRange:=Foglio1.Range("P" & NumRiga & ":R" & NumRiga), Unique:=False


Now if I wanted to create a loop with arrays to speed up the research as I could operate.