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

[navstevnik]

Rano jsi pozadal o:

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

Po uprave jsem uvedel, ze neni reseno duplictni vkladani, nereagoval jsi.
Takze ted pozadujes vlastne co?
Navrat k puvodnimu stavu nebo osetrit duplictni vlozeni, tedy kdyz je sada (jeji cislo) jiz zaznamenana, tak ji nezapisovat?
Co s barevnym oznacenim bunky, ma zustat cervene oznaceni nezmeneno, kdyz bude novy stav OK a zelene pripadne zmenit, kdyz novy stav bude NOK, tak jak to je v posledni uprave?

[Branscombe]

Poznámku že není řešeno duplicitní vkládání jsem asi přehlédl.
Potřeboval bych tedy toto duplicitní vkládání ošetřit, což znamená že pokud je již číslo sady v buňce zaznamenáno, tak ho již znovu nezapisovat... Červené a zelené podbarvení je OK, tak jak je, což znamená že pokud je byť jen jedna hodnota jako NOK, tak je buňka červená...

[navstevnik]

viz priloha

[Branscombe]

OK, díky ... ještě tam mám někde nějakou chybičku jelikož mi to po napasování na moje data nějak nefunguje, ale to už nějak dohledám ... Díky moc ...

[Branscombe]

Nový, ale zcela podobný požadavek číslo 3 tohoto tématu:

Fakt jsem se snažil a už jsem si myslel že to zvládnu, ale zasekl jsem se a nevím jak dál. Potřebuji překopírovat data z listu 1 v příloze na list 2 k vybranému číslu tak jak je v příloze naznačeno.

Takže makro vyhledá hodnotu list1 (B2) na listu 2 ve sloupci "B" a vloží hodnoty z listu 1 ("F11:H11") do listu 2 na vybraný řádek do buňky "L:N"

Opravdu jsem myslel že to co jsem sesmolil by fungovalo, ale opak je pravdou a tak opět musím žádat o radu ...

[navstevnik]

Tlacitko je z ovladacich prvku ActiveX.
Procedura je v objektu List1

[Branscombe]

Excelentní, jako vždy, díky

[Branscombe]

Ještě jedna poznámka k prvnímu přesunu dat.

Když upravím ve sloupci "A" na listu "Data" číslo sady z číselného formátu, tak upravím i označení v makru Sada As String a nikoliv Sada As Integer.

Proč mi to ale nefunguje a při spuštění makra Allrow se překopírují pouze hodnoty 1-4 i s formátováním a při spuštění Lastrow se mi překopíruje hodnota páté sady bez formátu ??

Chtěl bych to nejen vyřešit, ale i pochopit ...

[navstevnik]

Zase se vracim k drive uvedenemu, ze demo data maji odpovidat realu.
Proc v rezimu AllRows prenos dat nefunguje:
V Data!A:A jsi v demo datech vlozil cela cisla a hlavicka je "číslo sady" (a navic slucovane bunky komplikuji proceduru ), takze pri prohledavani sloupce Data!A:A v rezimu AllRows byla vyhledavana cela cisla, nikoliv retezce, tudiz pro sadu, kde je retezec, nebyla volana procedura Vloz.
Upraveno, doufam, ze v pripade zmeny hlavicky Data!A:A upravis proceduru.

Proc "při spuštění Lastrow se mi překopíruje hodnota páté sady bez formátu ??":
nerozumim, ale potvrdil jsi:

Červené a zelené podbarvení je OK, tak jak je, což znamená že pokud je byť jen jedna hodnota jako NOK, tak je buňka červená...

takze upresni, zda to plati jen v pripade jedineho cisla sady v bunce a pri vice cislech bude platit nejake jine pravidlo, ktere sdelis nebo je to jiz irelevantni ve vztahu k vyse uvedene uprave.

[Branscombe]

Super, funguje jak má a tu poslední tvou větu jsem stejně nepochopil ...

Jen bych měl ještě jeden malinkatý požadavek, jelikož jsem opět špatně specifikoval zadání a tak jsem tam našel drobnou chybku - když vkládám číslo které tam již je obsaženo, tak mi ho již nevloží, což je správně, ale měl by znovu zkontrolovat stav OK/NOK ... šlo by to ??

tzn. mám tam vloženo číslo sady 10-00005 se stavem OK, vkládám znovu číslo sady 10-00005, ale se stavem NOK, jelikož se mi stav změnil na listu "data" - přebarví buňku na červeno ...

[navstevnik]

Upraveno.
PS: Kdyz jsi pozadoval ignorovat sadu, ktera je jiz zaznamenana, tak jsi neuvedl, ze je ale zapotrebi overit stav ignorovane sady (OK/NOK) a pripadne upravit barvu pozadi bunky, program se choval presne podle zadani, chyba je na strane zadavatele.

[Branscombe]

Diky moc, samozrejme ze chyba je na strane zadavatele, vzdyt jsem to i psal ze je to ma chyba... Budu si na to muset vyhradit nejaky cas a cele to makro prostudovat a zkusit cele pochopit, abych se opravdu necemu priucil... Jeste jednou diky