Je možné váš příklad lépe rozšířit a popsat lépe problematiku? Nejsem si jist, co přesně použadujete
Přilož nějaký příklad, takhle to bastliv v hlavě to není ono. Hod pár produktů na list total a k tomu pár dodavatelů, zabal do zipu a hod to sem a juknu na to.
Makro zapíše datum vždy vedle buňky, do které napíšete ano. Když napíšete Ano do sloupce ANO, tak do sloupce V se vpíše datum. Stačí si dát pozor a nepsat ANO do sloupců, kde být datum a podmínka nemá
Tak opět platí stejná podmínka mít vytvořen adresář:
C:\Dealeri\
List, z kterého se to bude vyzobávat by měl být seřazen podle ID. Tedy aby byly ID vždy u sebe.. Pokud bude list ve formátu
ID1
ID1
ID2
ID1
tak nastane chyba. správně musí být:
ID1
ID1
ID1
ID2
ID2
Jednoduše řečeno, je třeba to napřed seřadit. Tím jsem se už v makru nějak nezabýval. Snad se bude líbit ;)
Tak koukněte teď ...
Můžete přílohu zaslat znovu, pouze s tím, že bude v zipu? V kanclu si rar nerozbalím..
Tak mám hotovo, funguje to parádně jenom za jedné pomdínky a prosím, musíte jí bez podmínečně splnit!!!!
Než makro spustíte, musíte mít vytvořenou složku s názvem "Dealeri" na vašem disku C.
Musí tedy existovat cesta:
C:\Dealeri kam makro odkazuje uložení souboru.
Pokud tam složku mít vytvořenou nebudete, bude makro hlásit chybu
Už jem to také řešil a nic jsem nenašel, kdyby se ti povdelo něco vypátrat, tak se poděl o zkušenosti
Určitě by to šlo pomocí makra, jen bych přidal nějaký zkrácený příklad tvého souboru a zabalit do zipu. Když to člověk nevidí, tak to není ono..
Snad pomůže ukázka s makrem, které by mělo Váš problém vyřešit. Nejsem si tedy jist, zda jsem problém správně pochopil. Pokud ano, mělo by to být řešení
Je možné zaslat příklad zabalený v zipu?
Ve VBA nevybereš modul, ani worksheet ale ThisWorkBook a použiješ událost:
Private Sub Workbook_Open()
end sub
Určitě by to chtělo přiložit příklad, na kterém by se dalo stavět, není to asi úplně jednoduchý problém na popsání pár řádek kódu. Pokud možno, uložit v *.zip, rara si v kanclu neotevřu
Pokud jsem problém dobře pochopil, tak řešení je následovné
=KDYŽ(C1<0;"PO SPLATNOSTI";"")
Promiň, ještě ta příloha
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.