Moderatori: Anthony47, Flash30005
MioFiltro = "=" & Range("K1").Value & "*"
Anthony47 ha scritto:Se hai almeno la versione 2002, quando applichi la protezione foglio hai la possibilita' di impostare "permetti Usa filtro automatico": spunta la voce e riprova la macro.
Ciao.
Sub listino1()
'
MioFiltro = "=" & Range("K1").Value & "*"
Range("A:C").select
Selection.AutoFilter Field:=2, Criteria1:=MioFiltro, Operator:=xlAnd
'
End Sub
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
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 18 ospiti