salve ragazzi
arieccomi altro problem
vorrei modificare una macro con filtro orizzontale ... in verticale
mi spiego meglio
Sub Cercacarico()
Sheets("cerca").Range("a3:F3").ClearContents
Sheets("Scarico").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _
Criteriarange:=Sheets("cerca").Range("a1:F2"), CopyToRange:=Sheets("cerca").Range("a3"), Unique:=False
End Sub
questa macro mi funziona benissimo in foglio "cerca" dove ho sistemato le celle di ricerca in orizzontale
ora per mia esigenza vorrei spostarle in verticale ho modificato la macro cosi:
Sub Cercav()
Sheets("cerca").Range("c1:c5").ClearContents
Sheets("carico").Rows("1:5").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("cerca").Range("a1:b5"), CopyToRange:=Sheets("cerca").Range("c1"), Unique:=False
End Sub
funziona ma mi filtra tutti i dati non quello che "cerco"
sicuramente ho commesso degli errori!!!
ciao grazie