Excel 2019 - Ricerca con VBA

Question

Salve,

nella colonna C sono segnati tutti i numeri di ogni libro.

Ho costruito un Label ove scrivo il numero da cercare.

Nel Label ho inserito queste righe che permettono di cercare il numero che scrivo nel Label.

Private Sub TextLibro1_Change()

'Range("C2").AutoFilter field:=1, Criteria1:=TextLibro.Text & "*"

Range("C3").AutoFilter field:=3, Criteria1:="*" & TextLibro1.Text & "*"

If TextLibro1.Text = "" Then

Selection.AutoFilter

End If

End Sub

PROBLEMA: Perché, ad esempio, se scrivo il numero 1342, mi riporta la riga ove é scritto il numero, e se invece scrivo il numero 1352 non mi riporta nulla?

E' una questione di formato cella?

Tener presente che tutte le celle le ho formattate come testo (anche celle con numeri).

Carlo - Verona

Answer 1

Ciao Carlo,

Si. Ha funzionato.

Ti ringrazio per l'aiuto.

Se stato gentil cortese.

Benissimo!

Per chiudere questo thread ti chiedere gentimente di contrassegnare la mia replica come Risposta.

===

Regards,

Norman

Answer 2

Ciao Carlo,

Si in effetti é un TextBox (avevo scritto Label per far capire che posso scrivere dentro il campo).

Voglio precisare che nel Foglio ci sono altri TextBox (Col. A e B)  con lo stesso VBA, e funzionano.

Solo con la colonna C, con alcuni numeri funziona e con altri no. 

Non é che dipende da una formattazione di cella?

E perchè se ricerco 1243 funziona e con 1352 non funziona?

Per quanto riguarda OneDrive o DropBox, non sono molto pratico (mai usati) per cui non riesco a mettere (collegare) il file (177 Kb).

Non c'é un altro modo? (... altrimenti... , fa niente!)

Potresti inviarmi il file in privato.  all'indirizzo email decifrabile  che troverai facendo clic sul mio profilo.

===

Regards,

Norman

OK. File Inviato. Controlla posta.

Carlo - Verona

Answer 3

Ciao Carlo,

Si in effetti é un TextBox (avevo scritto Label per far capire che posso scrivere dentro il campo).

Voglio precisare che nel Foglio ci sono altri TextBox (Col. A e B)  con lo stesso VBA, e funzionano.

Solo con la colonna C, con alcuni numeri funziona e con altri no. 

Non é che dipende da una formattazione di cella?

E perchè se ricerco 1243 funziona e con 1352 non funziona?

Per quanto riguarda OneDrive o DropBox, non sono molto pratico (mai usati) per cui non riesco a mettere (collegare) il file (177 Kb).

Non c'é un altro modo? (... altrimenti... , fa niente!)

Potresti inviarmi il file in privato.  all'indirizzo email decifrabile  che troverai facendo clic sul mio profilo.

===

Regards,

Norman

Answer 4

Ciao Carlo,

nella colonna C sono segnati tutti i numeri di ogni libro.

Ho costruito un Label ove scrivo il numero da cercare.

Nel Label ho inserito queste righe che permettono di cercare il numero che scrivo nel Label.

Private Sub TextLibro1_Change()

'Range("C2").AutoFilter field:=1, Criteria1:=TextLibro.Text & "*"

Range("C3").AutoFilter field:=3, Criteria1:="*" & TextLibro1.Text & "*"

If TextLibro1.Text = "" Then

Selection.AutoFilter

End If

End Sub

PROBLEMA: Perché, ad esempio, se scrivo il numero 1342, mi riporta la riga ove é scritto il numero, e se invece scrivo il numero 1352 non mi riporta nulla?

E' una questione di formato cella?

Tener presente che tutte le celle le ho formattate come testo (anche celle con numeri).

Un oggetto Label non ha un evento Change. Sicuro che non si tratta dell'oggetto TextBox?

Detto ciò,  non riesco a replicare la tua esperienza. Quindi, ti chiederei gentilmente di caricare un semplice file di esempio per dimostrare il problema.

Per caricare il file su Microsoft OneDrive, vedi:

   Condividere file e cartelle di OneDrive

Per caricare il file su DropBox, vedi:

Come faccio a condividere file e cartelle in Dropbox?

===

Regards,

Norman

Si in effetti é un TextBox (avevo scritto Label per far capire che posso scrivere dentro il campo).

Voglio precisare che nel Foglio ci sono altri TextBox (Col. A e B)  con lo stesso VBA, e funzionano.

Solo con la colonna C, con alcuni numeri funziona e con altri no. 

Non é che dipende da una formattazione di cella?

E perchè se ricerco 1243 funziona e con 1352 non funziona?

Per quanto riguarda OneDrive o DropBox, non sono molto pratico (mai usati) per cui non riesco a mettere (collegare) il file (177 Kb).

Non c'é un altro modo? (... altrimenti... , fa niente!)

Carlo - Verona

Answer 5

Ciao Carlo,

nella colonna C sono segnati tutti i numeri di ogni libro.

Ho costruito un Label ove scrivo il numero da cercare.

Nel Label ho inserito queste righe che permettono di cercare il numero che scrivo nel Label.

Private Sub TextLibro1_Change()

'Range("C2").AutoFilter field:=1, Criteria1:=TextLibro.Text & "*"

Range("C3").AutoFilter field:=3, Criteria1:="*" & TextLibro1.Text & "*"

If TextLibro1.Text = "" Then

Selection.AutoFilter

End If

End Sub

PROBLEMA: Perché, ad esempio, se scrivo il numero 1342, mi riporta la riga ove é scritto il numero, e se invece scrivo il numero 1352 non mi riporta nulla?

E' una questione di formato cella?

Tener presente che tutte le celle le ho formattate come testo (anche celle con numeri).

Un oggetto Label non ha un evento Change. Sicuro che non si tratta dell'oggetto TextBox?

Detto ciò,  non riesco a replicare la tua esperienza. Quindi, ti chiederei gentilmente di caricare un semplice file di esempio per dimostrare il problema.

Per caricare il file su Microsoft OneDrive, vedi:

   Condividere file e cartelle di OneDrive

Per caricare il file su DropBox, vedi:

Come faccio a condividere file e cartelle in Dropbox?

===

Regards,

Norman