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.
