Excel: un altro mega-filtro supersonico

[Anthony47]

Modifica come segue:

Codice: Seleziona tutto

Cri1="=*" & Range("D1").text & "*"
Cri2="=*" & Range("H1").text & "*"
Selection.AutoFilter Field:=2, Criteria1:=Cri1, Operator:=xlAnd
Selection.AutoFilter Field:=1, Criteria1:=Cri2, Operator:= _
xlAnd


Poi ti sta bene associare Macro2 a un pulsante o preferisci farla scattare quando modifichi D1 o H1?

Ciao

[fantina]

Vorrei che Macro2 scattasse quando modifico H1... intanto vado a provare..

[fantina]

scusate... vorrei che il secondo filtro scattasse automaticamente digitando in H1 (il primo sta in D1)....

[Anthony47]

Tasto dx sul tab col nome del foglio dove lavori, scegli Visualizza codice, incolla questa macro nel frame di destra:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$H$1" And Target.Address <> "$D$1" Then Exit Sub
Application.EnableEvents = False
Call macro2
Application.EnableEvents = True
End Sub


Ciao

[Flash30005]

Non so se ti può essere utile un file con macro creato tempo fa per un altro utente
provalo, semmai si può sempre adattare allla tua esigenza
download file

Ciao

(devi cliccare sui nomi e poi... dove vuoi)

[fantina]

Grazie infinite! Allora: con la macro che mi hai dato, Anthony, ho risolto perfettamete il mio file dei prodotti.
La macro dei file che mi hai mandato, Flash, è meno idonea a questo file ma è interessantissima per un altro file di altro genere su cui sto lavorando.
Quindi grazie grazie grazie!
(e grazie anche a Ivo che mi riservo di torturare alla prossima occasione....)
e tanti auguri a tutti.....