caut text in multiple sheeturi
caut text in multiple sheeturi
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
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
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: caut text in multiple sheeturi
scuzele mele,
am scos diacriticile din denumiri,
al doilea fisier e mai aproape de adevar,
mai trebuie "go to" sheet
am scos diacriticile din denumiri,
al doilea fisier e mai aproape de adevar,
mai trebuie "go to" sheet
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
-
- Mesaje: 437
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: caut text in multiple sheeturi
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....
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....
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
Re: caut text in multiple sheeturi
corect cum spui, ma "jucam" sa fac dintrun clickIndigo-ONE scrie: ↑Joi Mai 25, 2023 4:23 pmBuna 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....
Multumesc
"cineva" nu stie ctrl+f, selectat "within:workbook", next ...
-
- Mesaje: 437
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: caut text in multiple sheeturi
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?corect cum spui, ma "jucam" sa fac dintrun click
Multumesc
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.
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
Re: caut text in multiple sheeturi
- DaAcum am vazut varianta 2 cea fara diacritice. Ce ar mai trebui la acel cod VBA? Sa te arunce la locatia respectiva?
aici ziceam de acel "next" daca recunosc titlu ma opresc, daca nu, "next"Oricum daca ai sa zicem "fum" si "fumat" ti le va afisa pe amandoua.
Multumesc
-
- Mesaje: 437
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: caut text in multiple sheeturi
Totusi nu mi-ai raspuns la:
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.
Cu formule e mai usor pentru cei care nu stiu CTRL+F.....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.
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.
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
Re: caut text in multiple sheeturi
Indigo-ONE scrie: ↑Sâm Mai 27, 2023 9:54 pmTotusi nu mi-ai raspuns la:
Cu formule e mai usor pentru cei care nu stiu CTRL+F.....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.
OK, hai sa vedem si cu "celula" - e suficient numele carti si numele foii
Multumesc mult