macro per ricerca dati/filtro

Question

Buongiorno ,lo scorso anno Daniele_G. mi ha aiutato per la macro sotto per fare la ricerca dati come in excel (quando fai contiene...) , siccome adesso quando faccio la ricerca oltre a codici che hanno un testo ci sono anche codici che iniziano con un numero, la ricerca non funziona quindi sarebbe da modificare la macro sotto ma io non saprei come fare. Rimango in attesa di un Vs. prezioso aiuto

Private Sub TextBox1_Change()

Range("C7").AutoFilter field:=2, Criteria1:="*" & TextBox1.Text & "*" ' AutoFilter field:=1 (vuol dire colonna 1)

If TextBox1.Text = "" Then

Selection.AutoFilter

End If

End Sub

grazie

Answer 1

Ciao Andrea,

Buongiorno ,lo scorso anno Daniele_G. mi ha aiutato per la macro sotto per fare la ricerca dati come in excel (quando fai contiene...) , siccome adesso quando faccio la ricerca oltre a codici che hanno un testo ci sono anche codici che iniziano con un numero, la ricerca non funziona quindi sarebbe da modificare la macro sotto ma io non saprei come fare. Rimango in attesa di un Vs. prezioso aiuto

Private Sub TextBox1_Change()

Range("C7").AutoFilter field:=2, Criteria1:="*" & TextBox1.Text & "*" ' AutoFilter field:=1 (vuol dire colonna 1)

If TextBox1.Text = "" Then

Selection.AutoFilter

End If

End Sub

Il codice funziona anche per estrarre codici numerici, a patto che i codici numerici siano stati inseriti come valori di testo nella colonna D. In questo modo, immettendo, ad esempio, il valore 1001 nel TextBox, i dati filtrati includerebbero valori del genere :

Se dovessi avere ancora un problema, fornisci alcuni esempi di codici che non vengono filtrati con il codice esistente.

===

Regards,

Norman

Answer 2

Ciao Andrea,

Ciao Norman grazie 1000 per il suggerimento adesso è ok

Sono lieto che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Alla prossima.

==

Regards,

Norman

Answer 3

Ciao Norman grazie 1000 per il suggerimento adesso è ok