caut text in multiple sheeturi

[halfbebi]

Buna ziua,
va rog sa ma ajutati, ceva nu imi iese. Am inregistrat un macro, nu reusesc sa`l modernizez. Multumesc anticipat
ca idee:
sa caute un text input in "n" sheeturi (buton de cautare, next,recautare,ok) si sa ma duca in acel sheet
am plecat de aici:

Sub Caut()
'
' Caut Macro
' Caut
'
Sheets(Array("Raft A", "Raft B", "Raft C")).Select '----> sa caute in toate
Sheets("Raft A").Activate
Cells.Find(What:="descul", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ '---> sa introduc eu textul de cautat
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
Cells.FindNext(After:=ActiveCell).Activate
End Sub

[halfbebi]

scuzele mele,
am scos diacriticile din denumiri,
al doilea fisier e mai aproape de adevar,
mai trebuie "go to" sheet

[Indigo-ONE]

Buna ziua,

Nu ar fi mai simplu sa dai o cautare cu CTRL+F
V-a afisa toate cuvantul cautat si locatia lor. La clic pe link te va arunca acolo....

[halfbebi]

Buna ziua,

Nu ar fi mai simplu sa dai o cautare cu CTRL+F
V-a afisa toate cuvantul cautat si locatia lor. La clic pe link te va arunca acolo....

corect cum spui, ma "jucam" sa fac dintrun click
Multumesc
"cineva" nu stie ctrl+f, selectat "within:workbook", next ...

[Indigo-ONE]

corect cum spui, ma "jucam" sa fac dintrun click
Multumesc

Ca sa fie totul cu un clic (cod VBA)) ar trebui sa scrii acel nume si apoi salt la foaia respectiva si in celula respectiva. Daca doresti si "Next" atuni nu ar mai fi un clic ci mai multe Asta doresti?
Mai simplu, si fara cod VBA, ar fi, sa scrii intro celula numele cautat si apoi sa-ti listeze acel nume si alte date (inclusiv locatia), cu ajutorul unor formule.
Cred ca varianta a doua e mai simpla!

Acum am vazut varianta 2 cea fara diacritice. Ce ar mai trebui la acel cod VBA? Sa te arunce la locatia respectiva?
Oricum daca ai sa zicem "fum" si "fumat" ti le va afisa pe amandoua.
Sa inteleg ca pot fi mai multe carti de acelasi fel dar pe rafturi diferite?

Clarifica te rog cum ai vrea sa fie.

[halfbebi]

Acum am vazut varianta 2 cea fara diacritice. Ce ar mai trebui la acel cod VBA? Sa te arunce la locatia respectiva?

- Da

Oricum daca ai sa zicem "fum" si "fumat" ti le va afisa pe amandoua.

aici ziceam de acel "next" daca recunosc titlu ma opresc, daca nu, "next"

Multumesc

[Indigo-ONE]

Totusi nu mi-ai raspuns la:

Mai simplu, si fara cod VBA, ar fi, sa scrii intro celula numele cautat si apoi sa-ti listeze acel nume si alte date (inclusiv locatia), cu ajutorul unor formule.

Cu formule e mai usor pentru cei care nu stiu CTRL+F.....

Sa zicem ca in B2 scrii (chiar partial) cuvantul cautat, apoi in B3...Bn iti vor aparea sa zicem titlurile, in C3....Cn vor aparea anii, in D3...Dn autorii etc
iar aici vezi ce te intereseaza fara salt la pagina respectiva. Iar daca doresti si numele foii se poate pune si el.

[halfbebi]

Totusi nu mi-ai raspuns la:

Mai simplu, si fara cod VBA, ar fi, sa scrii intro celula numele cautat si apoi sa-ti listeze acel nume si alte date (inclusiv locatia), cu ajutorul unor formule.

Cu formule e mai usor pentru cei care nu stiu CTRL+F.....

OK, hai sa vedem si cu "celula" - e suficient numele carti si numele foii
Multumesc mult