MS Excel

Dobrý den prosím o pomoc s Makrem,

Vytvořil jsem Makro viz níže

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B4").Sort Key1:=Range("B5"), _
Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If

End Sub

Makro je použité na automatické řazení dat ve sloupci B:B v listu 1. Ve sloupci B- jsou vzorce které odkazují na buňky v druhých listech, pokud v druhých listech změním data, tak automatické řazení v listu 1 neproběhne. Proběhne až prokliknu vzorec v ketrékoliv buňce. Makro nereaguje na změny v ostatních listech.

Dokázal by někdo pomoci?

Díky

Zaslat odpověď >

Strana: 1 2 3 další »

elninoslov(21.1.2021 7:21)#049521

Lebo OnChange zachytí iba zmenu od užívateľa, nie zmenu vzorcom. Dá sa použiť OnCalculate, ale to bude spúšťané vždy pri akejkoľvek zmene (lebo každá vyvolá prepočet).

OnChange by fungoval, tak ako popisujete iba, ak by ste ho použil vo všetkých listoch, ktoré ovplyvňujú vzorce v liste, ktorý chcete filtrovať.

Dajte prílohu, ako to u Vás vyzerá, a popis čo potrebujete urobiť, ako sa to používa.citovat

camron(21.1.2021 7:51)#049522

Díky,

V příloze soubor s popisky.

Akorát nelze uložit ve formátu s podporou maker.citovat

elninoslov(21.1.2021 8:17)#049523

XLSM musíte zabaliť do ZIP, aby sa dal nahrať.citovat

camron(21.1.2021 8:21)#049524

OK, viz příloha

Příloha: zip

49524_data-1.zip (93kB, staženo 11x)

citovat

elninoslov(21.1.2021 10:11)#049525

Hmm, a nebolo by lepšie, keby sa cez PowerQuery naťahovali dáta rovno z tých súborov do dátového modelu, a ten by ste iba filtroval cez KT? A nevytváral by ste X listov a nekopíroval data z X súborov do nich. V zmene nejakých dát v niektorom zo zdrojových súborov, by ste iba klikol na Aktualizovať všetko, a PQ by sa aktualizoval. Žiadne makro.
Na toto je superexpert mepexg.citovat

AndrejB(21.1.2021 10:22)#049526

ondrejmalik napsal/a:

OK, viz přílohaPříloha: 49524_data-1.zip (93kB, staženo 2x)

Urcite si dajte vsetko do jednej tabulky, kazdy zaznam do riadku. Datum, chyba, popis.. Data si zobrazujte ako Pivot tabulku. Tam si mozete dat zobrazit podla dna, tyznda, mesiac, rok.. Uplne jednoducho.. Mate zbytocne takto problemy.citovat

camron(21.1.2021 10:29)#049527

Nemám představu jak bych tvořil.
Nevím zda je to problém, ale mě se to tak jeví. Zdroj dat pro KW 1-53 je program, ze kterého vytahuji a exportuji data pro daný týden. Tyto data nejsou filtrovány (potřebuji jen své typy vad), jsou rozděleny do dnů duplikovány a nejsou sečteny na typ vady, vytvářím právě kontingenční tabulku pro daný týden a tyto data pak kopíruji do jednotlivých listů KW1 - KW53. Ve finále je to jednoduchý postup.
Z programu vytáhnou data, vytvořit kontingenční tabulku, zkopírovat data, vložit do KW1, a pak řadit v listu grafy.
Mám v plánu takto řadit každou vadu do TOP 5, a zobrazovat přes vzorec KDYŽ pro daný týden v buňce "I1", následně tvořit různé grafy...citovat

AndrejB(21.1.2021 10:34)#049529

ondrejmalik napsal/a:

Nemám představu jak bych tvořil.
Nevím zda je to problém, ale mě se to tak jeví. Zdroj dat pro KW 1-53 je program, ze kterého vytahuji a exportuji data pro daný týden. Tyto data nejsou filtrovány (potřebuji jen své typy vad), jsou rozděleny do dnů duplikovány a nejsou sečteny na typ vady, vytvářím právě kontingenční tabulku pro daný týden a tyto data pak kopíruji do jednotlivých listů KW1 - KW53. Ve finále je to jednoduchý postup.
Z programu vytáhnou data, vytvořit kontingenční tabulku, zkopírovat data, vložit do KW1, a pak řadit v listu grafy.
Mám v plánu takto řadit každou vadu do TOP 5, a zobrazovat přes vzorec KDYŽ pro daný týden v buňce "I1", následně tvořit různé grafy...

Ako by to mohlo vypadat tu:
https://uloz.to/file/5YSDALEzcSMh/data-1-xlsmcitovat

camron(21.1.2021 10:54)#049530

AndrejB napsal/a:
Ako by to mohlo vypadat tu:
https://uloz.to/file/5YSDALEzcSMh/data-1-xlsm[/quote]

Potřebuji daný rozsah od PO-Neděle - takže data potřebuji rozděleny na KW1 - KW 53, tudíž nezobrazované po dnech ale součet za týden pro danou vadu. Pivot tabulka bude jen další tabulka ze které budu zaškrtávat různé datumy a pak abych měl součet pro daný výrobek budu muset vytvořit kontingenční tabulku. A jsem tam de jsem byl, budu potřebovat histori KW1-KW53, tak znovu kopírovat data do jednotlivých listů KW1-KW53.citovat

elninoslov(21.1.2021 11:00)#049531

Niektoré veci sa dajú jednoducho naklikať. Ten SW Vám exportuje do samostatných súborov?
Ak áno tak majú určite rovnakú štruktúru. Tu je príklad PQ.

Ak sú v exportoch aj iné vady, ako tie, ktoré potrebujete, treba ich uviesť, a urobí sa v PQ na to filter.
Tiež sa mi zdá, že to robíte to komplikovane. Alebo sa nechápeme.

Příloha: zip

49531_kw.zip (79kB, staženo 13x)

citovat

Strana: 1 2 3 další »

Téma: řazení dat - Makro nereaguje změnu v daném listu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje