Script Ricerca

Question

Salve,

nella colonna C di Excel 2019 sono scritti i numeri dei libri che corrispondono ad un Oggetto di ricerca.

Ad esempio: - il foglio 'Armonia jazz' contiene singolarmente gli indici dei libri di armonia jazz.

• Colonna A Oggetto dell'indice
• Colonna B pag. del libro
• Colonna C n. del libro

Nella VB della colonna C ho inserito questo script di ricerca del n. del libro:

'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

Ho costruito un campo nella 1' cella della colonna C.

Quando scrivo un numero del libro da cercare, alcune celle rispondono alla ricerca, altre invece no.

Ad esempio volendo cercare il n. 1340 la colonna C li mostra tutti; ma se immetto 1365 non mi compare nulla.

Ho sbagliato qualcosa oppure dovrei intervenire sulle celle? (le ho settate tutte sul Testo).

Gentilissimi.

Carlo - Verona

Answer 1

Norman, Ho inviato il file

Carlo - Verona

Answer 2

Ciao Carlo,

purtroppo il tuo script non funziona.

Il problema é che solo alcuni numeri non me li dà. Perché altri si?

Comunque ho provato a caricare OneDrive... ma non sono riuscito anche perché non lo utilizzo mai.

Non c'é un altro modo per farti avere il file (non ci sono dati sensibili ma solo indici dei libri che ho).

Come dimostrato dal mio file di prova, il codice funziona per me.

Potresti caricare il file su qualsiasi sito di condivisione di file adatto e pubblicare un collegamento al file in una risposta qui.

In alternativa, puoi inviarmi il file in privato:

normanPUNTOdavidPUNTOjonesCHIOCCIOLAoutlookPUNTOcom

Sostituisci le parole evidenziate in rosso.

===

Regards,

Norman

Answer 3

Ciao Carlo,

Ti chiederei gentilmente di caricare il file problematico, dopo averlo depurato dei dati sensibili, su un servizio di condivisione di file, ad esempio Microsoft OneDrive o DropBox, e postare un link al file in una risposta qui.

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?

Nel frattempo, potresti scaricare il mio file di prova Carlo20221116.xlsm in cui ho utilizzato il seguente codice:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

With ActiveSheet

Range("A2").AutoFilter field:=3, Criteria1:="*" & Range("C1").Value & "*"

End With

End Sub

'<<========

===

Regards,

Norman

Ciao Norman,

purtroppo il tuo script non funziona.

Il problema é che solo alcuni numeri non me li dà. Perché altri si?

Comunque ho provato a caricare OneDrive... ma non sono riuscito anche perché non lo utilizzo mai.

Non c'é un altro modo per farti avere il file (non ci sono dati sensibili ma solo indici dei libri che ho).

Carlo - Verona

Answer 4

Ciao Carlo,

Sfruttando un controllo TextBox, il mio codice diventa:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

With ActiveSheet 

    Range("A2").AutoFilter field:=3, Criteria1:="\*" & TextLibro1.Value & "\*" 

End With 

End Sub

'<<========

Ho aggiornato il mio file di prova Carlo20221116.xlsm

===

Regards,

Norman

Answer 5

Ciao Carlo,

Salve,

nella colonna C di Excel 2019 sono scritti i numeri dei libri che corrispondono ad un Oggetto di ricerca.

Ad esempio: - il foglio 'Armonia jazz' contiene singolarmente gli indici dei libri di armonia jazz.

• Colonna A Oggetto dell'indice
• Colonna B pag. del libro
• Colonna C n. del libro

Nella VB della colonna C ho inserito questo script di ricerca del n. del libro:

'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

Ho costruito un campo nella 1' cella della colonna C.

Quando scrivo un numero del libro da cercare, alcune celle rispondono alla ricerca, altre invece no.

Ad esempio volendo cercare il n. 1340 la colonna C li mostra tutti; ma se immetto 1365 non mi compare nulla.

Ho sbagliato qualcosa oppure dovrei intervenire sulle celle? (le ho settate tutte sul Testo).

Ti chiederei gentilmente di caricare il file problematico, dopo averlo depurato dei dati sensibili, su un servizio di condivisione di file, ad esempio Microsoft OneDrive o DropBox, e postare un link al file in una risposta qui.

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?

Nel frattempo, potresti scaricare il mio file di prova Carlo20221116.xlsm in cui ho utilizzato il seguente codice:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

With ActiveSheet 

    Range("A2").AutoFilter field:=3, Criteria1:="\*" & Range("C1").Value & "\*" 

End With 

End Sub

'<<========

===

Regards,

Norman