Afisare in foaie similar caseta "Find and replace"

[gh19612005]

Am incercat sa le fac pe rand:
intai - in Centralizator "B2" aleg itemul de cautat si filtrat
doi - anulez filtrarea precedenta
trei - rulez cautarea. Aici ar trebui sa vad in foaia Centralizator o lista cu foile care contin in coloana de filtrat itemul respectiv, si o alta lista cu foile, celulele si continutul acestor celule (cum ziceam, cu hyperlink ar fi fabulos) care contin ca si parte itemul cautat.
patru - daca am interes, vizualizez informatiile aferente hyperlink-urilor, daca nu, rulez si filtrarea multipla si ma duc direct pe o foaie evidentiata la pasul trei.
Imi cer scuze, imi dau seama ca e frustrant sa tot modific datele problemei, dar, cum am mai spus, nu mi-au fost de la inceput clare cerintele, in plus, a intervenit si factorul "ce bine ar fi daca" s-ar putea si...

[Indigo-ONE]

OK. Pana la urma care ar trebui sa fie varianta finala?
Datele aduse din celelalte fisiere vor avea Nume in coloana A.
De aici cum va fi?

[gh19612005]

Deci:
-foile (multe) cu informatii vor avea "A" drept coloana de filtrare (sa zicem itemul cautat/filtrat este "Ana B", evidentiat in Centralizator, "B2").
-un comentariu de tipul "intotdeauna Ana B are mere", poate fi oriunde in oricare foaie.

Imi doresc, in foaia Centralizator:
- o lista:

Sheet1 Ana B
Sheet1 Ana Baza
Sheet1 Ana Barza
Sheet2 Ana B
Sheet3 Ana B
Sheet... Ana B
Sheetn Ana B

-alaturi, o alta lista:

Sheet1 F$20$ Ana Banana
Sheet2 F$16$ Ana Banana

Sa rulez cu cele trei butoane (sau alta solutie... ) resetarea, cautarea si filtrarea...

[Indigo-ONE]

Cred ca faci o confuzie...
Daca cauti dupa Ana B (acesta e un nume distinct) nu poate sa iti apara Ana Baza, Ana Barza, Ana Batoza etc
Asta inseamna filtrare multipla ori tu cauti dupa Ana B...
Daca totusi asa doresti, din cauza codului care se complica, eu am sa spun PAS, deoarece nu am timp.
Necesita timp pentru creare si testare.

-alaturi, o alta lista:

Sheet1 F$20$ Ana Banana
Sheet2 F$16$ Ana Banana

Dupa cum spuneam mai devreme linkul te va arunca probabil intrun rind ascuns (daca nu este pe randul vizibil) si atunci trebuie sa afisezi toate datele inainte de a apasa pe acel link. Iar....ce sens mai are filtrarea.

[gh19612005]

Am inteles!
Oricum iti multumesc pentru ca mi-ai dat un punct de pornire!

[Indigo-ONE]

Si ca sa incepi cu ceva, cu ajutorul codului de mai jos, la fiecare selectare a unui nume in DV, din B2, se vor filtra datele din toate foile (functie de ce ai ales in B2), in B10:Bn va fi afisat numele ales, iar in C10:Cn numele foii cu link catre foaia respectiva.
Am folosit informatiile din fisierul - Fisier exemplu 3
Pune codul direct in foaie.

Cod: Selectaţi tot

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Kc As Variant
    Dim K As Worksheet
    Dim Kr As Long
    Dim Ks As Range
    If Not Intersect(Range("B2"), Target) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        Range("B10:C1000").Clear
        ArataDatele
        [B9:C9] = Array("Nume cautat", "Nume Foaie")
        [B9:C9].Interior.ColorIndex = 6
        Columns("B:C").AutoFit
        
        If Range("B2").Value <> "" Then
        
            Kc = Range("B2").Value
            Kr = 10
            For Each K In Worksheets
                If K.Name <> Me.Name Then
                    Set Ks = K.Cells.Find(What:=Kc, LookIn:=xlValues, LookAt:=xlWhole)
                    If Not Ks Is Nothing Then
                        Range("B" & Kr).Value = Kc
                        Range("C" & Kr).Value = K.Name
                        Me.Hyperlinks.Add Anchor:=Range("C" & Kr), Address:="", SubAddress:="'" & K.Name & "'!A1", _
                            TextToDisplay:=K.Name
                        Kr = Kr + 1
                    End If
                End If
             Next K
        End If

        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
    KKKKKK
End Sub

Spor la treaba.

[gh19612005]

Functioneaza foarte bine, si mi-am permis chiar sa-l mai "stric" un pic...
Multumesc, Indigo-ONE!

[Indigo-ONE]

Mda, asta e ca scarpinatul in urechea stanga, cu mana dreapta

Nu era mai simplu sa faci cautarea, functie de literele introduse in B2? In felul acesta aveai toate numele care incepeau/contineau acele litere.
Iar cu DV puteai avea filtrarea acelor date pe masura ce tastai anumite litere (in DV se afisau doar acele date care corespundeau cautarii) si daca doreai puteai alege doar un singur nume...sau aveai toate acele nume listate in B10:Bn.