excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Makro - vytváření historie
MS Excel
Téma: Makro - vytváření historie 
Zaslal/a Merlin99 19.7.2018 23:00
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...
Příloha: 
40933_obj.rar (32kB, staženo 17x)
40933_obj.rar (32kB, staženo 17x)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.
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: 40947_obj.zip (35kB, staženo 19x)
citovat40947_obj.zip (35kB, staženo 19x)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
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: 40948_obj.rar (27kB, staženo 17x)
citovat40948_obj.rar (27kB, staženo 17x)**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
Děkuji moc
Příloha: 40949_obj.rar (30kB, staženo 16x)
citovat40949_obj.rar (30kB, staženo 16x)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.
"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: 40950_obj-rev2.1.zip (30kB, staženo 16x)
citovat40950_obj-rev2.1.zip (30kB, staženo 16x)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
Prosím napiš mi soukromou zprávu toto zaslouží odměnu.citovat
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
Prosím napiš mi soukromou zprávu toto zaslouží odměnu.citovat
Jaj, sorry. Vůbec sem nezaregistroval, že sloupec G neobsahuje vzorec. Upraveno, zadán pevný rozsah G22 až G500.
Příloha: 40952_obj-rev2.2.zip (30kB, staženo 29x)
citovat40952_obj-rev2.2.zip (30kB, staženo 29x)Stalker: DOKONALÝ top super. DÍKY moc skáču radosti do stropu citovat
citovatUživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články