MS Excel

Zdravím všechny, bojuju s jedním záludným makrem ale už je nad moje schopnosti, pokud by někdo tušil budu rád za pomoc.

Na listu Objednávky vyplňuji data (počet materiálů se může měnit)
Kliknu na tlačítko, které by mělo:

Podívat se na první podmínku List Objednávky D17 (Pokud je tam 1 tak makro pokračuje, jinak vyskočí hláška "Nejsou splneny podmínky")
Následně se podívá do listu Historie PLÁN jestli tam kdekoli ve sloupci F není datum z listu Objednávky D18, pokud tam není makro pokračuje, jinak vyskočí hláška "Data daného datumu už jsou vložena"

Zobrazí a Odemkne list Historie PLÁN heslem AHOJ
Zkopíruje data z listu Objednávky D22:I302 (ROZSAH MŮŽE BÝT DELŠÍ/kratší ne širší)
Najde poslední volný řádek na listu Historie PLÁN a vloží tam tyto data.
Zamknout a skrýt list Historie PLÁN heslem AHOJ

(Data se tímto procesem budou ukládat pod sebe a vytvoří historii )

Případně děkuji moc za pomoc na to už mi hlava nebere...

Zaslat odpověď >

Merlin99(20.7.2018 20:09)#040946

*Vím že je to již složitější příklad a jsem ochotný se domluvit na finanční odměně.

Děkujicitovat

Stalker(21.7.2018 0:11)#040947

Ahoj, vyzkoušej kód v souboru. Jediné co sem neřešil je zobrazování listu "Historie PLÁN", pro vkládání (kopírování) dat to není potřeba. Rozsah kopírované oblasti se určuje podle sloupce D listu "Objednávky". Pokud bude objednávka prázdná (poslední obsazený řádek <22) makro vyhodí hlášku a ukončí se.

Testování případných chyb nechám na Tobě, du chrnět.
Pokud by si přišel na nějakou zradu, dej vědět.

Příloha: zip

40947_obj.zip (35kB, staženo 18x)

citovat

Merlin99(21.7.2018 11:22)#040948

Dobré ráno
Stalker: tak to je uplne presne jak sem psal DĚKUJI MOC.
Testoval jsem to a zjistil jsem ze bych potreboval posledni upravy:

Na začátku odemknout List Objednávky heslem AHOJ a zrušit na řádku 21 veškeré filtry.
Pak kopírovat jen řádky na kterých ve sloupci D je číslo a ne ty s "" (Data stojí na funkcích).
Následně aby se data na list Historie PLÁN vkládali jako hodnoty.
Na konci procesu vymazat na listu Objednávky rozsah G22:G500 a zase zamknout list Objednávky heslem AHOJ

Prosím pošli mi číslo účtu a částku do zprávy.
Děkuji moc

Příloha: rar

40948_obj.rar (27kB, staženo 16x)

citovat

Merlin99(21.7.2018 12:47)#040949

**Pokud je na zamknutem listu (Objednavky, Historie PLÁN) radek s filtrem musi jit filtrovat i kdyz je list zamčený. (Zamknout s povolením automatickeho filtru)
Děkuji moc

Příloha: rar

40949_obj.rar (30kB, staženo 15x)

citovat

Stalker(21.7.2018 13:50)#040950

Kód upraven podle požadavků mimo jedné věci, kterou né zcela chápu.

"Na konci procesu vymazat na listu Objednávky rozsah G22:G500 a zase zamknout list"

Pokud jsou data do listu Objednávky tahána pomocí vzorců, nelze mazat (smažou se vzorce). Jediné co by se dalo vymazat je zdroj dat pro vzorce, tedy v tomto případě List1.

Pokud si to myslel jinak budeš to muset lépe popsat.

Edit: S tím kopírováním jen textových hodnot podle sloupce D. Makro nalezne poslední textový údaj tedy řádek 23. Pokud však bude na řádku např. 30 vracet vzorec textovou hodnotu, a vzorce před ním (řádky 24 až 29) hodnotu "", makro bude kopírovat oblast řádků 22 až 30. Tedy budou do historie uloženy i prázdné hodnoty.

Vše záleží jakým způsobem jsou data zadávána do objednávky. Pokud by se musel ošetřit i tento stav, bylo by potřeba celou objednávku načíst do pole a jednotlivé buňky sloupce D zkontrolovat na nenulovou délku.
De facto celé to znovu přepsat.

Příloha: zip

40950_obj-rev2.1.zip (30kB, staženo 15x)

citovat

Merlin99(21.7.2018 15:48)#040951

Stalker: Ouuu tak to je dokonalá práce! Funguje skvele.

Na konci procesu vymazat na listu Objednávky rozsah G22:G500 a zase zamknout list:

Co se týče tohoto kroku jde o to že tenhle sloupec je řešen ručně a opravdu by se měl mazat. Pokud by jsi to tam ještě prosím přidal tak to bude TOP.
Děkuji moooooooc mám obrovskou radost nečekal jsem to