Risolto Ricerca solo numeri

cdl07

Utente junior
20 Agosto 2016
27
1
Verona
office 2010
1
Salve,
il seguente codice trova nella colonna A, sia solo testo (es. Armonia) che testo+numeri (es. 567F).
Non trova però solo numeri (es. 22).
Cosa bisogna modificare nel codice affinché possa trovare anche solo numeri?

Visual Basic:
Private Sub TextLibro2_Change()
'RICERCA QUALSIASI PAROLA ALL'INTERNO DEL TESTO
Range("A2").AutoFilter field:=1, Criteria1:="*" & TextLibro2.Text & "*"
If TextLibro2.Text = "" Then
Selection.AutoFilter
End If
End Sub
Ringrazio.
Carlo - Verona
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
18.842
113
Como
2011MAC 2016WIN
353
Vabbè penso che tu intenda solo numeri

Prova così
Visual Basic:
 Range("A2").AutoFilter field:=1, Criteria1:=">=0", Operator:= _
xlOr, Criteria2:="<0"
 

Powerwin

VBA Expert
Expert
17 Marzo 2016
3.782
63
vicino a Milano
2019
56
sostituisci questo codice
Visual Basic:
'LABEL A
Private Sub TextLibro2_Change()
'RICERCA DALLE PRIME LETTERE
'Range("A2").AutoFilter field:=1, Criteria1:=TextLibro.Text & "*"
'RICERCA QUALSIASI PAROLA ALL'INTERNO DEL TESTO
Range("A2").AutoFilter field:=1, Criteria1:="*" & TextLibro2.Text & "*"
If TextLibro2.Text = "" Then
Selection.AutoFilter
End If
End Sub
con questo
Visual Basic:
'LABEL A
Private Sub TextLibro2_Change()
'RICERCA DALLE PRIME LETTERE
'Range("A2").AutoFilter field:=1, Criteria1:=TextLibro.Text & "*"
'RICERCA QUALSIASI PAROLA ALL'INTERNO DEL TESTO
Range("A2").AutoFilter field:=1, Criteria1:=TextLibro2.Text
If TextLibro2.Text = "" Then
Selection.AutoFilter
End If
End Sub
 

cdl07

Utente junior
20 Agosto 2016
27
1
Verona
office 2010
1
I label?
ma in quale foglio?
In tutti i fogli, nella prima riga, ci sono Label colorati. Basta scrivere dentro un numero da cercare (ovviamente nella colonna ove ci sono i numeri). Puoi sperimentare su un Foglio qualsiasi.
Ad esempio, nel Foglio Archivio_libri, nella colonna E (POSTO) ci sono lettere e numeri e solo numeri. Scrivi ad esempio, solo il numero 22. In effetti c'é, ma non te lo dà.
 

cdl07

Utente junior
20 Agosto 2016
27
1
Verona
office 2010
1
sostituisci questo codice
Visual Basic:
'LABEL A
Private Sub TextLibro2_Change()
'RICERCA DALLE PRIME LETTERE
'Range("A2").AutoFilter field:=1, Criteria1:=TextLibro.Text & "*"
'RICERCA QUALSIASI PAROLA ALL'INTERNO DEL TESTO
Range("A2").AutoFilter field:=1, Criteria1:="*" & TextLibro2.Text & "*"
If TextLibro2.Text = "" Then
Selection.AutoFilter
End If
End Sub
con questo
Visual Basic:
'LABEL A
Private Sub TextLibro2_Change()
'RICERCA DALLE PRIME LETTERE
'Range("A2").AutoFilter field:=1, Criteria1:=TextLibro.Text & "*"
'RICERCA QUALSIASI PAROLA ALL'INTERNO DEL TESTO
Range("A2").AutoFilter field:=1, Criteria1:=TextLibro2.Text
If TextLibro2.Text = "" Then
Selection.AutoFilter
End If
End Sub
Perfetto. Funziona.
Ti ringrazio.
Carlo - Verona
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!