In un userform ho 3 pulsanti: 1 per il Nome, 2 per la Data, 3 per un numero.
Nella colonna A ci sono i Nomi, colonna B le Date (15/05/2014), nella colonna C ci sono dei numeri (55)
Con questo codice...
- Codice: Seleziona tutto
Application.ScreenUpdating = False
Dim criterio As String
criterio = InputBox("Digitare il testo da filtrare") & "*"
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$65000").AutoFilter Field:=1, Criteria1:=criterio
Quindi se nella inputbox inserisco un nome presente nella colonna A esem. (Rossi) il risultato me lo da.
Il problema nasce se nella inputbox inserisco una data o un numero. Non mi esce nessun risultato.
Eppure nel codice assegnato alla data , ho cambiato columns A:A in columns B:B. Si può risolvere?