Filtrare comuna in mai multe foi/fisiere
-
- Mesaje: 205
- Membru din: Lun Dec 28, 2009 6:10 pm
- Localitate: Pitesti
Re: Filtrare comuna in mai multe foi/fisiere
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...
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.
-
- Moderator
- Mesaje: 813
- Membru din: Vin Sep 09, 2011 4:05 pm
- Localitate: Iaşi
Re: Filtrare comuna in mai multe foi/fisiere
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.
Daca sunt cerinte clar exprimate, pot ajuta.
Probleme să fie, că soluţii se găsesc...
-
- Mesaje: 433
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: Filtrare comuna in mai multe foi/fisiere
Vad ca ai rezolvat,
Si cu un change event in foaia principala si un modul ptr filtrare coloanele de interes in celelalte foi ar fi deajuns.gh19612005 scrie: ↑Joi Sep 26, 2019 10:09 pmIn regula, voi aduna toate foile intr-un singur fisier.
In fiecare foaie am nevoie de toate informatiile din toate coloanele.
藍
"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
-
- Mesaje: 205
- Membru din: Lun Dec 28, 2009 6:10 pm
- Localitate: Pitesti
Re: Filtrare comuna in mai multe foi/fisiere
Buna dimineata!
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 - daca ma poti ajuta in acest sens, ar fi fabulous!!cu un change event in foaia principala si un modul ptr filtrare coloanele de interes in celelalte foi ar fi deajuns.
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...
G.H.
-
- Mesaje: 433
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: Filtrare comuna in mai multe foi/fisiere
@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
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
藍
"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
-
- Mesaje: 205
- Membru din: Lun Dec 28, 2009 6:10 pm
- Localitate: Pitesti
Re: Filtrare comuna in mai multe foi/fisiere
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"?
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.
-
- Mesaje: 433
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: Filtrare comuna in mai multe foi/fisiere
Daca poti sa explici mai clar...cum e cu:sa pot avea in filtrare 2,3...mai multe itemuri, in mod extrem "Select all"?
Filtrare pe mai multe coloane se poate.in mod extrem "Select all"?
藍
"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
-
- Mesaje: 205
- Membru din: Lun Dec 28, 2009 6:10 pm
- Localitate: Pitesti
Re: Filtrare comuna in mai multe foi/fisiere
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.
-
- Mesaje: 433
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: Filtrare comuna in mai multe foi/fisiere
In E1 renunta la DV si inlocuieste codul din foaie 1 cu acesta:
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:
Desigur ca se putea face si un DV cu alegere multipla de nume
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
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
藍
"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
-
- Mesaje: 205
- Membru din: Lun Dec 28, 2009 6:10 pm
- Localitate: Pitesti
Re: Filtrare comuna in mai multe foi/fisiere
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.