Credo di conoscere la struttura dati, ci provo.
Abbiamo gia' inserito il filtro su una colonna che conteneva la Descrizione, in modo tale che inserendo alcuni caratteri della descrizione in K1 e lanciando una macro visualizzi tutte le righe che "cominciano" con quei caratteri.
Ora vedo che vorresti cambiare il layout dei dati: non "1" colonna Descrizione, ma una descrizione fatta su piu' colonne (Marche, Misure, Velocita').
Ora mi permetto di suggerire di lasciare il meccanismo dei caratteri iniziali ma applicandolo alla colonna B (Misure); non credo che sia problematico scegliere tra l' elenco delle Marche (saranno 6-7 scelte?) o Velocita' (idem).
Per ottenere questo:
-selezioni le colonne A-B-C e applichi il Filtro automatico;
-modifichi la macro come segue:
- Codice: Seleziona tutto
Sub listino1()
'
MioFiltro = "=" & Range("K1").Value & "*"
Range("A:C").select
Selection.AutoFilter Field:=2, Criteria1:=MioFiltro, Operator:=xlAnd
'
End Sub
-dopo aver filtrato per Misura, scegli in col A la Marca e in col C la velocita'
Se comunque vuoi fare una cosa analoga anche su Marche e Velocita', allora:
-usi K1 come adesso
-in L1 inserisci le iniziali della Marca che vuoi selezionare (quanti caratteri vuoi)
-in M1 le iniziali della Velocita' (mi pare che sia 1 o 2 crt in tutto)
-Poi modifichi la macro come segue:
- Codice: Seleziona tutto
Sub listino3()
'
MioFiltro = "=" & Range("K1").Value & "*"
MioFiltro2 = "=" & Range("L1").Value & "*"
MioFiltro3 = "=" & Range("M1").Value & "*"
Range("A:C").select
Selection.AutoFilter Field:=1, Criteria1:=MioFiltro2, Operator:=xlAnd
Selection.AutoFilter Field:=2, Criteria1:=MioFiltro, Operator:=xlAnd
Selection.AutoFilter Field:=3, Criteria1:=MioFiltro3, Operator:=xlAnd
'
'Range("K1:M1").Clearcontents '<<<<Vedi Testo
End Sub
Se vuoi cancellare le chiavi di ricerca dopo aver eseguito il filtro, togli l' "apostrofo" iniziale nella riga marcata <<<
Ciao.
Registrazione
