Cerca numero in tabella

Buongiorno a tutti, nel file che allego, sono presenti dei numeri e un imput box per cercarli. Per far questo ho adattato una funzione (quella sotto) che avevo già, ma non funziona perché se cerco il n 11 mi selezione il 113 cioè il primo numero da sx che contiene 11. Per cortesia qualcuno mi può sistemare questa istruzione? Grazie
Paolo

Sub Cerca_numeri()
Dim plage As Range, valeur
Set plage = Range("A1:Z65500")
valeur = InputBox("Numero da trovare:")
If valeur = "" Then Exit Sub
If InStr(1, valeur, _
Application.International(xlDateSeparator)) > 0 Then
valeur = CDate(valeur)
End If
If Not plage.Find(valeur) Is Nothing Then
plage.Find(valeur).Select
Else
MsgBox ("Numero non trovato")
End If
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

Ciao Paolo, cambia la tua macro con questa



la ricerca con Find come l'hai impostata, appena trova un numero corrispondente si blocca al primo numero, meglio cercare il numero completo.

inoltre la variabile "valeur" è una stringa all'uscita dell'InputBox, non l'hai trasformata in numero, visto che cerca un numero oppure una data, ed infine non inserire l'intero range delle celle 65500 bastano solo quelle occupate, io ho inserito "A1:Z100" se è più ampio il range aggiornalo.

Ciao By Sal (8-D

Grazie mille per l'aiuto 😌

ciao
scusate la curiosità

ma invece di tutta quella tiritera
non bastava una semplice formattazione condizionale?

Ciao Federico, non dirlo a me, mi limito a fare quello che si chiede, ma comunque non ha una cella di riferimento che usi come inputbox, oltretutto sceglie anche date, che saranno in altre celle

Ciao By Sal (8-D

ciao
Sal

una cella si trova eh!😀

poi per le date non capisco il problema....sempre di numeri si parla.
è l'imputbox il problema se non mi sbaglio
diventa tutto testo e lo devi codificare.
con una cella no.😜

poi ognuno fa quel che vuole
e devo dire che è anche carino da vedere

Ciao, rispondo a federico460, quella tabella è lo schema di un magazzino dove sono stipate delle merci, oltretutto saranno molto di più i numeri, all’incirca 350 (numeri non date o testo). Le merci a volte vengono cambiate di posto e quindi di numero. Da qui la necessità di trovare la collocazione del materiale senza dover fare chilometri per cercarle. Quindi mi occorre proprio un programma dove inserire il numero nell’imputbox per essere visualizzato con facilità. La macro propostami da by sal è perfetta in questo caso.
Ciao e grazie ancora

Ciao una volta feci una cosa del genere per la gestione di un magazzino, numerare tutte le posizioni, scaffalatura ed aree esterne, con la possibilità di inserire un codice in più posizioni, in quanto se il materiale è molto può essere disposto in più posizioni, ed anche più codici nella stessa posizione, quando il materiale era piccolo oppure poco.

quando arrivava la richiesta materiali, veniva creata la lista di prelievo, che passata agli addetti al magazzino faceva in modo che facessero un solo percorso tra gli scaffali prelevando mano a mano gli articoli, per completare la richiesta, in modo da non dover passare più volte tra gli stessi scaffali, prendendo il materiale, in caso di più posizioni stesso codice dalla posizione con minore giacenza facendo in modo anche da liberare la posizione.

ma la stessa cosa succedeva anche quando il materiale arrivava da fornitore o da lavorazioni, con la lista di deposito che posizionava il materiale dove stava lo stesso codice.

ma purtroppo mi si è rotto il PC ed ho perso il file.

Ciao By Sal (8-D

DeMartin Ricerca numero
Il problema è la funzione .find
Va corretta così
.find(valeur,,,xlwhole)
oer la ricerca precisa......

Si Ok, l'ho modificato. Grazie

by sal, 16/08/2022 08:00:

---

ma purtroppo mi si è rotto il PC ed ho perso il file.

Ciao By Sal (8-D

---

Ciao Salvatore
forse una volta ti ho detto che PC rotto NON significa TUTTO rotto
in una città grande come la tua non dovresti avere difficoltà a recuperare dall'hard disk tutto quello che vuoi
Ma se proprio non sei capace posso spiegarti come estrarre l'Hard Disk, me lo mandi insieme ad una chiavetta nuova e capiente, ti recupero io tutti i dati e ti rimando il tutto, dovresti pagare solo le spese di spedizione, io farei questa cosa per puro divertimento.

Leo

Ciao Leo, certo che me lo hai detto, ho già fatto tutte le indagini, ma purtroppo non è un problema di harddisk, è la scheda madre che guastandosi, e non so come o cosa abbia fatto mi ha riscritto i dischi insomma ha fatto qualcosa che che ha reso i dischi non recuperabili.

avevo già mandato il pc in riparazione cercando di recuperare i dati, il tecnico ha tentato di recuperare i dati con tutti i suoi metodi, e non ci è riuscito, guardando le piste dei dischi ha rilevato dei dati ma erano talmente corrotti che non si è potuto ricavare niente, o almeno i dati non erano utilizzabili.

ed alla fine ho dovuto rottamare il tutto.

Grazie per l'attenzione, un Saluto Ciao Salvatore (8-D