PDA

Visualizza la versione completa : ricerca e selezione di un dato tramite vba su excel


depurweb
30-07-2012, 11:28
salve a tutti:
espongo il mio problema.
In pratica ho la necessità di ricercare una parola(dato) su una cartella excell formata da più fogli: 01,02,03 ecc..
avevo tempo fà adattato una formula in vbatrovata in rete per la ricerca del dato su un solo foglio ma adesso ho la necessità che mi ricerchi il dato su titti i fogli.
eccovi il vecchio codice:
Sub CercaParola()
mot = InputBox("Inserisci il dato da ricercare")
If mot = "" Then Exit Sub
Set Zona = Sheets("GENERALE").UsedRange
For Each trouvé1 In Zona
Sheets("GENERALE").Select

Set trouvé1 = Cells.Find(What:=mot)
If trouvé1 Is Nothing Then

MsgBox "Non Trovato"
GoTo fine
Else
trouvé1.Activate
trouvé1.Select

étiq:
If MsgBox("Seguente ?", 4) = vbNo Then Exit Sub
Set trouvé2 = Cells.FindNext(After:=ActiveCell)

trouvé2.Activate
GoTo étiq
End If

Next trouvé1
fine:

End Sub


ringrazio a tutti anticipatamente.
il foglio excell generale era il vecchio foglio che racchiudeva tutti.
ciao.

Grambo
30-07-2012, 11:33
mi sa che ti conviene riscrivere il tutto nella sezione corretta :ciauz:

Sky
30-07-2012, 11:44
Originariamente inviato da Grambo
mi sa che ti conviene riscrivere il tutto nella sezione corretta :ciauz:
Esatto, puoi riscrevere nel forum dedicato a Visual Basic (http://forum.html.it/forum/forumdisplay.php?forumid=56) :)

Loading