Makro pro vyhledání hodnot vyšších než 0

[Martin Švach]

Zdravím všechny,

převzal jsem v práci po kolegovi jednu evidenci - ve zkratce se jedná o kontrolu vagónů, které přebíráme od Rakušáků na hranicích, pokud jsou OK - tak nemají žádnou závadu třídy 3,4 nebo 5. Pokud se nějaká závada najde, zapíše se počet závad.

Do tabulky na listě "Data" vkládám informace o vlaku, dopravci a především čísla vagónů, které byly kontrolovány.
Jako příklad jsou v tabulce zapsány 3 kontroly, (1.k - 25 wg, 2.k - 25 wg, 3.k - 19 wg).

Hodnoty/informace, které potřebuju dostat do listu "Výsledky" jsem dostal pomocí funkcí, až na čísla vagónů, které mají závadu.

Zadání: Vytvořit makro, které vyhledá hodnoty vyšší než 0 ve sloupcích J, K, L (třídy závad) a vrátí text ze sloupců G, H, I (číslo wg, avv kod a popis) ze stejného řádku do listu "Výsledky" a přiřadí na správný řádek podle čísla kontroly (list Data, sloupec A = list Výsledky, sloupec C). V případě, že při kontrole bylo zjištěno více závad, byla by potřeba vždy další posunout o 1 sloupec doprava.

Pro lepší představu jsem žlutě vyznačil vybrané vozy se závadou, odkud a kam by měly informace putovat.

ATTI TEST.xlsm

(80.61 KiB) Staženo 47 x

Děkuji předem za pomoc :)

S pozdravem
MŠ

[MePExG]

Prikladám riešenie pomocou dvoch pomocných stĺpcov a dvoch kontingenčných tabuliek. Stačí aktualizovať údaje na liste Data a potom na liste kt dať aktualizovať obidve kt.
Dal by sa počítať aj prvý list a data by sa dali načítavať z súborov rovnakej štruktúry z adresára pomocou Power Query (od verzie 2010 doplnok a od verzie 2016 je tento nástroj obsiahnutý). Výsledkami pohľadmi by boli kt, ktoré by sa aktualizovali spolu so zdrojovými údajmi napr. pri otvorení súboru.