Excel VBA - makro pro přepsání dat

[Branscombe]

No i tak se pokusím to co možná nejlépe pochopit ...

[Reklama]

[navstevnik]

Viz priloha

[Branscombe]

Super, demo funguje jak má. Vypadá to dokonce že bych tento zápis mohl pochopit.
Díky moc, budu testovat, napasuji na svoje data a uvidíme ... Have a nice weekend ...

[Branscombe]

Ahoj again,

všechno funguje, upravil jsem si to trošičku a přizpůsobil svým datům, ale zjistil jsem drobnou chybičku. Pakliže se kopíruje záznam do buňky kde již jeden záznam je, tak ho samozřejmě přepíše, ale já bych potřeboval, aby ho vložil do buňky k již existujícímu záznamu. Šlo by to ??

[navstevnik]

To Branscombe:
Zadna chybicka, ale tvoje neschopnost zadat jednoznacne pozadavky najednou.
Predlozene reseni odpovida zadani:

...v příloze kliknu na tlačítko, aby mi překopíroval a transponoval data z oblasti D3:D20 na list2 do buněk B2:S2...

Navic si dej do poradku svou termonologii: to co povazujes za zaznam je polozka!

...záznam píšeme do řádku tabulky. Záznam popisuje jeden objekt databáze (jedna kniha, jeden pacient apod.). Jeho data tedy spolu úzce souvisí, ale jistě jsou různých datových typů (jméno je text, datum narození je datum, věk je číslo atd.). Položky (políčka tabulky) stejného druhu tvoří sloupce tabulky (nazývaný také pole). Všechny hodnoty daného sloupce musí být stejného typu! Např. ve sloupci pro příjmení osob budou jen příjmení, tedy texty (ne čísla, datum apod.), ve sloupci s datem narození budou zase jen data (ne texty)....

Je to uz vse, nebo se objevi jeste nejaka "chybicka"?
Pridana data v polozce oddelit jakym oddelovacem - " ", ";", "|", neco jineho?

[Branscombe]

Já vím že je to moje nechopnost, ale nejsem bohužel kontingenční tabulka abych počítal se všemi možnostmi
A špatně jsem specifikoval problém - jedná se o tabulku "přesun dat"
Nepředpokládal jsem že budou dva záznamy do stejné buňky, ale při spuštění do provoz mě ostatní uživatelé přesvědčili o opaku.
Předpokládám že je to vše, možná ještě ošetřit stav kdy nenajde správnou hodnotu v řádku 2 s typem na listu "tabulka", tak aby nic nekopíroval.

A co se týče oddělení, tak ";" by byl fajn ...

[navstevnik]

To Branscombe:
To neni jen neschopnost specifikovat zadani, za poslednim resenym zadanim navazat bez jakehokoliv upozerneni na predchozi zadani hranici s funkcni negramotnosti, zvlaste kdyz jsi u posledniho uvedl:

....tak nevím jestli kvůli tomu zakládat nové téma. Potřebuji jednoduchou vyhledávací formulku....

Upresni: V pripade, ze bude vysledek smerovat (napr. podle uklazky) opet do bunky M18, tak pridat hodnotu do teto bunky?

[Branscombe]

No jo no, asi jsem měl založit nové téma, asi jsem měl lépe specifikovat požadavek a asi jsem se měl lépe učit a naučit se s VBA, ale bohužel není tomu tak ...

Zdá se že máš dnes nějakou špatnou náladu ...

[navstevnik]

Upraveno.
1. Osetrit duplicitni vlozeni do Tabulky jsi nepozadoval - nereseno.
2. Nezadal jsi, ale upravil jsem: Pokud je v Tabulce cervenou barvou odlisen stav NOK, je ponechano i v pripade, ze dalsi sada ma stav OK, pokud byl predchozi stav OK (zelena), pak v pripade NOK u dalsi sady bude barva cervena.
3. Doplneno osetreni stavu, kdy neni nalezeno v Tabulce datum mereni nebo Typ.

[Branscombe]

Díky moc ... Uravil jsem pro svá data a funguje jak má ... Ještě jsem tam našel jednu, ale to si ošetřím asi nějakým dalším makrem. Ještě jednou díky ...

[navstevnik]

Hm, tak to sem dej, at to neni samy pristipek

[Branscombe]

No ještě by to mohlo do každé buňky vložit vždy číslo pouze jednou.

tzn. že pokud již tam to číslo je, aby jej tam již nevkládalo

Ale můžu to ošetřit, tak že vždy všechny hodnoty nejprve smažu ...