Filtrare comuna in mai multe foi/fisiere

[gh19612005]

Utilizez Excel 2016.

Am exportat 2 fisiere mai mici, care nu au aceeasi structura, le-am salvat intr-un dosar.
Am descarcat fisierul atasat mai sus, am actualizat in el calea catre fisierele mele. Dupa refresh au aparut datele mele, dar coloanele "Nume" pe care as fi dorit sa fac filtrarea sunt coloana "I" si "HN"
...fug catre sectiunea "Power Query", sa vad ce pot face in continuare...

[Catalin B.]

Se pot face foarte multe, inclusiv setari privind ordinea coloanelor, ce coloane trebuie pastrate (celelalte se pot elimina).
Daca sunt cerinte clar exprimate, pot ajuta.

[Indigo-ONE]

Vad ca ai rezolvat,

In regula, voi aduna toate foile intr-un singur fisier.

In fiecare foaie am nevoie de toate informatiile din toate coloanele.

Si cu un change event in foaia principala si un modul ptr filtrare coloanele de interes in celelalte foi ar fi deajuns.

[gh19612005]

Buna dimineata!

cu un change event in foaia principala si un modul ptr filtrare coloanele de interes in celelalte foi ar fi deajuns.

@Indigo-ONE - daca ma poti ajuta in acest sens, ar fi fabulous!!
Bineinteles ca voi continua sa citesc despre Power Query, din ce am apucat sa vad aseara, mi s-a parut un instrument extraordinar, dar si complex, si in plus, "nu sunt foarte bun prieten cu engleza" trebuie sa caut documentatie in romaneste...

[Indigo-ONE]

@Indigo-ONE - daca ma poti ajuta in acest sens, ar fi fabulous!!

Am plecat de la presupunerea ca ai adus/copiat toate foile din celelalte fisiere, si ca ai pus datele incepand cu celula A1 (pe randul 1 sunt numele coloanelor), daca nu, va trebui sa schimbi in cod.
Am pastrat dispunerea datelor din fisierul tau. In E1 am pus un DV cu toate numele de interes.
Evident ca se putea scrie un cod mai condensat dar l-am facut asa ca sa intelegi cum lucreaza si sa poti adauga randuri - in cod - pentru cate foi ai in realitate.
Trebuie sa fii atent sa schimbi (in modul) range-ul de date cu cel real adica cel cu numele.

In sheet1

Cod: Selectaţi tot

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E1")) Is Nothing Then
    Range("A2", Range("A2").End(xlDown)).AutoFilter Field:=1, Criteria1:=[E1]
End If
    Call KKKKKK
End Sub

In modul

Cod: Selectaţi tot

Sub KKKKKK()

    Sheets("Sheet2").Range("$A$2:$A$40330").AutoFilter Field:=1, Criteria1:=Sheet1.Range("E1")
    Sheets("Sheet3").Range("$C$2:$C$50000").AutoFilter Field:=3, Criteria1:=Sheet1.Range("E1")
    ........
    si tot asa pentru toate foile in care ai datele
End Sub

Sper sa auzim daca ai reusit.

[gh19612005]

Functioneaza foarte bine! Pentru ca foile mele au prima 212 coloane, a doua 91 coloane, am luat o foaie suplimentara, doar cu o coloana, in care am pus "Nume" , doar valori unice ( am cam 1600...), coloana dupa care am facut data validation in "E1"...
Multumesc mult, Indigo-ONE!

As mai avea o solicitare, "daca nu cer prea mult…":
s-ar putea modifica codul astfel incat sa pot avea in filtrare 2,3...mai multe itemuri, in mod extrem "Select all"?

[Indigo-ONE]

sa pot avea in filtrare 2,3...mai multe itemuri, in mod extrem "Select all"?

Daca poti sa explici mai clar...cum e cu:

in mod extrem "Select all"?

Filtrare pe mai multe coloane se poate.

[gh19612005]

In exemplul meu, daca as dori sa am in filtrare Ana A si Ana B concomitent, sau cu Select All, practic revenire la foi nefiltrate...

[Indigo-ONE]

In E1 renunta la DV si inlocuieste codul din foaie 1 cu acesta:

Cod: Selectaţi tot

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
    Ka = Split(Range("E1"), ", ")
    With ActiveSheet.Range("A2:A1000")
    .AutoFilter
    .AutoFilter Field:=1, Criteria1:=Ka, Operator:=xlFilterValues, visibledropdown:=False
    End With
Application.ScreenUpdating = True
End Sub

In E1 vei scrie numele cautate separate prin virgula si spatiu, adica asa;Ana A, Ana C
Evident ca poti pune mai multe nume nu numai cele 2 pe care le-am scris eu.

iar pentru afisarea tuturor datelor (eliminarea filtrului) pune in modul si codul urmator:

Cod: Selectaţi tot

Sub ArataDatele()
    For Each K In ThisWorkbook.Worksheets
        K.AutoFilterMode = False
    Next
End Sub

Desigur ca se putea face si un DV cu alegere multipla de nume

[gh19612005]

Nu-mi dau seama unde gresesc, filtrarea dupa lista Ka nu se face in fisierul meu decat in foaia suplimentara de care va spuneam mai sus ...