Funzione trova

Hai un problema con Excel?

Nuova discussione

Funzione trova
di Marco (utente non iscritto) data: 18/06/2010
Ciao ragazzi a me servirebbe utilizzare una specie di trova in execel vorrei automatizzarlo con un'altra funzione mi spiego meglio per lavoro utilizzo parecchio quella funzione e mi servirebbe che se immettessi in una determiata cella del testo lui mi trovasse in un campo di collona il testo che ho inserito e che mi si posizionasse il cursore dove l'ha trovato mi potreste aiutare?

di Albatros54 (utente non iscritto) data: 18/06/2010
Copia e incolla il codice nel foglio dove iniziare la ricerca.
ciao
albatros54

Private Sub Worksheet_Change(ByVal Target As Range)
dato = Cells(1, 3).Value 'cella dove tu digiti il valore
fineri = Sheets("FoglioTuo").[A1].End(xlDown).Row 'colonna dove fare la ricerca
riga = 2 ' comincia la ricerca dalla riga 2
Do While Cells(riga, 1) <> ""
If Cells(riga, 1) = dato Then
Cells(riga, 1).Select
Exit Sub
End If
riga = riga + 1
Loop
End Sub

di Marco (utente non iscritto) data: 18/06/2010
Innanzitutto grazie della celere risposta ma l'ho copiato ma non succede nulla nel foglio execel :(
di Marco (utente non iscritto) data: 18/06/2010
Innanzitutto grazie della celere risposta ma l'ho copiato ma non succede nulla nel foglio execel :(
di Albatros54 (utente non iscritto) data: 18/06/2010
Apri il file di excel
tasto alt contemporaneamente al tasto f11
sei nell'editor di vba
in alto a sx trovi i nomi dei fogli che sono contenuti nel tuo file
doppio clik sul foglio1(in questo caso , perche supponiamo che i tuoi dati siano su questo foglio)
copia e incolla il codice che ti ho postato.
nel codice naturalmentedevi cambiare il nome del foglio(sheets"fogliotuo").
ciao
albatros54
di Marco (utente non iscritto) data: 18/06/2010
Ok fatto ma quando torno nel foglio non ho nulla se ti passo il file riesci a modificarlo?
di Albatros54 (utente non iscritto) data: 18/06/2010
Scusa, ma nel foglio dove hai incollato il codice , nella colonna a ci sono i dato dove effettuare la ricerca?
di Marco (utente non iscritto) data: 18/06/2010
Si certo ci sono
di Albatros54 (utente non iscritto) data: 18/06/2010
Il dato che digiti nella cella d1 si trova nella colonna a?
per scatenare l'evento change devi schiacciare il tasto invio, dopo che hai modificato la cella d1.
ciao
albatros54
di Marco (utente non iscritto) data: 18/06/2010
Senti ti passo il file riesci a modificarlo? il foglio che mi interessa si chiama collaudi

rapidshare.com/files/400332653/wilson_project_2.8prova.xls.html

di Albatros54 (utente non iscritto) data: 18/06/2010
Prova.
e buona norma per excel non unire mai le celle. nel file le celle h9 i9 le ho separate
ciao
albatros54

Private Sub Worksheet_Change(ByVal Target As Range)
dato = Cells(9, 8).Value 'cella dove tu digiti il valore
fineri = Sheets("COLLAUDI").[B10].End(xlDown).Row 'colonna dove fare la ricerca
riga = 10 ' comincia la ricerca dalla riga 10
Do While Cells(riga, 2) <> ""
If Cells(riga, 2) = dato Then
Cells(riga + 1, 1).Select
Exit Sub
End If
riga = riga + 1
Loop
End Sub

di Albatros54 (utente non iscritto) data: 18/06/2010
Comunque il file modificato per le tue esigenze lo trovi allegato in questa stessa discussione
ciao
albatros54

Vuoi Approfondire?