Filtrare comuna in mai multe foi/fisiere

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: 205
Membru din: Lun Dec 28, 2009 6:10 pm
Localitate: Pitesti

Re: Filtrare comuna in mai multe foi/fisiere

Mesaj de gh19612005 » Vin Sep 27, 2019 2:59 pm

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...
G.H.

Catalin B.
Moderator
Moderator
Mesaje: 813
Membru din: Vin Sep 09, 2011 4:05 pm
Localitate: Iaşi

Re: Filtrare comuna in mai multe foi/fisiere

Mesaj de Catalin B. » Vin Sep 27, 2019 3:37 pm

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.
Probleme să fie, că soluţii se găsesc...

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

Re: Filtrare comuna in mai multe foi/fisiere

Mesaj de Indigo-ONE » Vin Sep 27, 2019 9:57 pm

Vad ca ai rezolvat,
gh19612005 scrie:
Joi Sep 26, 2019 10:09 pm
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.


"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein

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

Re: Filtrare comuna in mai multe foi/fisiere

Mesaj de gh19612005 » Sâm Sep 28, 2019 8:48 am

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" :oops: trebuie sa caut documentatie in romaneste...
G.H.

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

Re: Filtrare comuna in mai multe foi/fisiere

Mesaj de Indigo-ONE » Dum Sep 29, 2019 8:11 am

@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.


"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein

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

Re: Filtrare comuna in mai multe foi/fisiere

Mesaj de gh19612005 » Dum Sep 29, 2019 12:11 pm

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"?
G.H.

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

Re: Filtrare comuna in mai multe foi/fisiere

Mesaj de Indigo-ONE » Dum Sep 29, 2019 1:14 pm

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.


"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein

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

Re: Filtrare comuna in mai multe foi/fisiere

Mesaj de gh19612005 » Dum Sep 29, 2019 1:28 pm

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...
G.H.

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

Re: Filtrare comuna in mai multe foi/fisiere

Mesaj de Indigo-ONE » Dum Sep 29, 2019 2:09 pm

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 :lol:


"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein

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

Re: Filtrare comuna in mai multe foi/fisiere

Mesaj de gh19612005 » Dum Sep 29, 2019 3:06 pm

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 :? ...
G.H.

Scrie răspuns

Înapoi la “Intrebari despre Excel 2016”