Pulsante per filtri

Hai un problema con Excel?

Nuova discussione

Pulsante per filtri
di orsomiki data: 21/01/2013 19:41:09
usando il pulsante "Filtri Categorie" abbinato ad una sub ( scritta sull unico sheet)
posso scegliere quale categoria selezionare con i relativi nomi e spuntare ( cella colorata in giallo ) il foglio ore che mi è arrivato
ora due domande
1) il codice da me scritto è migliorabile e come
2) se voglio interrompere il la routine abbinata al pulsante a richiesta e spuntare tutte le categorie come si fa?
ho pensato ad un do while ma non riesco a figurarmi la condizione di uscita dal filtro
grazie
di Vecchio Frac data: 21/01/2013 21:06:32
Per cominciare,
perchè hai due sub Filtrocategorie *identiche*, una in foglio1 e l'altra in ThisWorkbook? togli quest'ultima.
di HarryBosch data: 21/01/2013 21:09:07
E aggiungo:
in merito al punto 2), la routine la vuoi interrompere quando premi sul pulsante "Annulla" della Inputbox? E quindi ripristinare tutti i valori non filtrati?

di Vecchio Frac data: 21/01/2013 21:13:12
HarryBosch mi ha letto nel pensiero :)

Option Explicit

Sub filtrocategoria()
Dim cat As Variant

    Range("Y12").Select
    cat = InputBox("Digita la CATEGORIA", "CATEGORIA", "K")
    
    If cat = "" Then
        [W10:AC10].AutoFilter
        Exit Sub
    End If
    
    ActiveSheet.Range("$W$10:$AC$10").AutoFilter Field:=1
    ActiveSheet.Range("$W$10:$AC$10").AutoFilter Field:=1, Criteria1:=cat

End Sub

Pulsante per filtri
di orsomiki data: 22/01/2013 07:10:46
l'idea è:
quando ricevo i fogli ore spunto la ricezione facendo la cella corrispondente in giallo ( l' incrocio fra il nome e la data) poi quando ho finito la spunta selezione di nuovo tutte le cat e tolgo il filtro

quando arrivano altri fogli ore ripeto l'operazione ... e così per tutte le volte necessarie ( e sono veramente teante)
Pulsante per filtri
di orsomiki data: 22/01/2013 09:04:09
perchè
Dim cat As Variant
e non
Dim cat As String
Pulsante per filtri
di orsomiki data: 22/01/2013 09:15:56
perchè se abbino o collego un pulsante al codice
premendo il pulsante non mi fa la selezione?
Pulsante per filtri
di orsomiki data: 22/01/2013 09:23:03
Option Explicit ...
non mi è chiara la finalità
Grazie!
Pulsante per filtri
di orsomiki data: 22/01/2013 09:49:54
ho riscontrato
che se introduco in input box
un valore blank esce correttamente
ma poi non va più

Vuoi Approfondire?