| | Post: 1 | Registrato il: 04/06/2015
| Età: 47 | Utente Junior | Excel 2010 | | OFFLINE | |
|
04/06/2015 14:33 | |
Salve a tutti,
premetto che sono un novello di VBA quindi scusate se posto codice strafalcione.
Da qualche giorno sto sbattendo la testa su come riuscire ad applicare un filtro con criteri multipli semplicemente con il click di un pulsante.
Il foglio è così impostato:
In sheet1 ho postato le celle (da A3 ad A50) dove l'utente può scrivere 48 criteri di filtro
In sheet3 c'è la tabella da filtrare. Il filtro è nella colonna G (la 7ima)
Inserendo manualmente i valori (vedi primo esempio) il filtro funziona ma cercando di inserirli con un ciclo for (esempio 2) non funziona.
Mille grazie a chi mi vorrà dare una mano.
Primo esempio:
Sheet3.Select
Selection.AutoFilter Field:=7, Criteria1:=Array("070910777", "070520411", "070640524"), Operator:=xlFilterValues
Secondo esempio:
'Filtro = ""
For I = 3 To 50
If Sheet1.Cells(I, 1) <> "" Then
If Filtro <> "" Then
If I = 4 Then
Filtro = Filtro + ", " + """" + Sheet1.Cells(I, 1).Value
Else
Filtro = Filtro + """" + ", " + """" + Sheet1.Cells(I, 1).Value
End If
Else
Filtro = Sheet1.Cells(I, 1).Value + """"
End If
Else
Exit For
End If
Next I
Selection.AutoFilter Field:=7, Criteria1:=Array(Filtro), Operator:=xlFilterValues
|
|
| | Post: 1 | Registrato il: 04/06/2015
| Età: 47 | Utente Junior | Excel 2010 | | OFFLINE | |
|
06/06/2015 23:56 | |
|
|
|