Risolto Ricerca solo numeri

cdl07

Utente junior
20 Agosto 2016
31
6
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
21.646
1.733
Como
2011MAC 2016WIN
462
Vabbè penso che tu intenda solo numeri

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

cdl07

Utente junior
20 Agosto 2016
31
6
Verona
office 2010
1
Vabbè penso che tu intenda solo numeri

Prova così
Visual Basic:
 Range("A2").AutoFilter field:=1, Criteria1:=">=0", Operator:= _
xlOr, Criteria2:="<0"
No. Non funziona. Sembra che faccia riferimento al numero della riga ma non al numero scritto in una cella della colonna A.
 

Powerwin

VBA Expert
Expert
17 Marzo 2016
4.510
83
vicino a Milano
2019
94
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
31
6
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
31
6
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!