Afisare in foaie similar caseta "Find and replace"

Ce este nou in Microsoft Excel 2016?
Informatii despre cum se utilizeaza Microsoft Excel 2016
Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
gh19612005
Mesaje: 175
Membru din: Lun Dec 28, 2009 6:10 pm
Localitate: Pitesti

Re: Afisare in foaie similar caseta "Find and replace"

Mesaj de gh19612005 » Mar Oct 22, 2019 12:28 pm

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
Mesaje: 164
Membru din: Mar Dec 11, 2018 8:54 pm

Re: Afisare in foaie similar caseta "Find and replace"

Mesaj de Indigo-ONE » Mar Oct 22, 2019 12:47 pm

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?


Stiu ca stii, dar nu stiu ce stii...

gh19612005
Mesaje: 175
Membru din: Lun Dec 28, 2009 6:10 pm
Localitate: Pitesti

Re: Afisare in foaie similar caseta "Find and replace"

Mesaj de gh19612005 » Mar Oct 22, 2019 1:42 pm

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
Mesaje: 164
Membru din: Mar Dec 11, 2018 8:54 pm

Re: Afisare in foaie similar caseta "Find and replace"

Mesaj de Indigo-ONE » Mar Oct 22, 2019 1:51 pm

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.


Stiu ca stii, dar nu stiu ce stii...

gh19612005
Mesaje: 175
Membru din: Lun Dec 28, 2009 6:10 pm
Localitate: Pitesti

Re: Afisare in foaie similar caseta "Find and replace"

Mesaj de gh19612005 » Mar Oct 22, 2019 2:50 pm

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

Indigo-ONE
Mesaje: 164
Membru din: Mar Dec 11, 2018 8:54 pm

Re: Afisare in foaie similar caseta "Find and replace"

Mesaj de Indigo-ONE » Mar Oct 22, 2019 8:02 pm

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.


Stiu ca stii, dar nu stiu ce stii...

gh19612005
Mesaje: 175
Membru din: Lun Dec 28, 2009 6:10 pm
Localitate: Pitesti

Re: Afisare in foaie similar caseta "Find and replace"

Mesaj de gh19612005 » Joi Oct 24, 2019 6:19 am

Functioneaza foarte bine, si mi-am permis chiar sa-l mai "stric" un pic...
Multumesc, Indigo-ONE!
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

Indigo-ONE
Mesaje: 164
Membru din: Mar Dec 11, 2018 8:54 pm

Re: Afisare in foaie similar caseta "Find and replace"

Mesaj de Indigo-ONE » Joi Oct 24, 2019 8:02 am

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

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.


Stiu ca stii, dar nu stiu ce stii...

Scrie răspuns

Înapoi la “Intrebari despre Excel 2016”