Příspěvky uživatele
< návrat zpět
Pokud sem správně pochopil zadání, tak by šlo použít fci SVYHLEDAT viz. soubor.
Hm 
, musím přiznat, že se mi celý ten koncept formuláře vůbec nelíbí. A podle toho, že je toto první reakce od položení dotazu, nejspíš nejsem jediný.
Vůbec sem nepobral, jakou formou mají být data vkládána do schválených žádostí (a proč vlastně, když jsou umístěny hned vedle žádostí), jakožto i ono umístění schválených, které znemožňuje odstranění celého řádku při smazání žádosti. To, že se nová data vkládají do případných prázdných řádků (po smazaní žádosti) je sice pěkné, ale neměly by jít data (datum) chronologicky za sebou? Tedy nová žádost vždy na poslední volný řádek tabulky? Přece nebude žádost ze dne 20.2 umístěna např. mezi daty 8.2 a 12.2 - celá takto vytvořená tabulka bude silně nepřehledná.
Přiznám se, že se mi do nějakých velkých úprav nechce pouštět, tak přikládám jen upravený kód makra PRIDAJ_DO_ZOZNAMU_ZIADOSTI
@shq32
Zákazníkům neposílej soubor excelu, ale *.PDF a budeš mít 100% jistotu, že se to všem zobrazí stejně.
Takto?
= KDYŽ(ZAOKR.DOLŮ(D7/5000;1)>3;3;ZAOKR.DOLŮ(D7/5000;1))
Co takhle funkce NEDEF()?
V en excelu možná NA().
Možný příklad řešení. Soubor "data" nemusí být ve stejné složce jako soubory ze kterých chceme data čerpat. Při spuštění je zobrazen dialog pro výběr sešitů.
elninoslov napsal/a:
EDIT: A ešte treba dať pozor, a vybrať si správne verziu podľa potrieb. Rozdiel je napr. aj v tom, kolegove makro ide zľava doprava, a ak je prázdna cyklus končí. Ja som sa držal zadania, že hodnota môže byť hocikde, nielen zľava.
To je pravda, vycházel sem z přiloženého souboru, kde se v řádcích nevyskytují mezery mezi hodnotami. Proto sem volil cestu opuštění cyklu a přechodu na další řádek.
Jo a objevil sem chybu v kódu.
Místo:
.Cells(1, 1).Resize(UBound(arrSloupec)) = Application.Transpose(arrSloupec)
Má být:
.Cells(1, 1).Resize(UBound(arrSloupec) + 1) = Application.Transpose(arrSloupec)
Šel sem na to bez kolekce, tak to snad nebude úplně mimo mísu 
Na konci TÉTO STRÁNKY máš porovnání WorksheetFunction.Match vs Application.Match
Nevím jestli je to jen náhoda, ale inspirovat se můžete např zde: http://www.jaknaoffice.cz/2-forum/?id=5300
Teda chlape, ty ses do toho pustil. Ten Tvůj kód (první) vychází nejlépe. Ten zbytek se tak nějak mezi sebou mele, i když by se M$ za tem Timer ve VBA měl stydět. Pokud spustím test ještě jednou výsledky se absolutně změní a u některých procedur vrací 0,0000 ms.
Hlavní je, že myslet znamená h.... vědět. A to co sem si původně naivně myslel, že bude rychlejší, tak není.
Díky za čas, který si tomu věnoval.
Jo a s tím editem máš naprostou pravdu, v jednoduchosti je síla. 
Tak trochu zneužiji toto vlákno.
Měl sem vymyšlené řešení pomocí pole, než sem však stačil zareagovat (byl sem v práci na mobilu) elnino poskytl řešení.
Nedalo mi to a dneska sem vyplodil dva kódy, a tady je vlastně můj dotaz. Primárně se týká druhého kódu (Vymaz_Err_3). Vidíte v něm nějakou zásadní slabinu nebo chybu proč takhle né?
Má domněnka je, že by měl být v případě většího počtu dat rychlejší - počet průchodů cyklu bude roven počtu (chyb) výskytu hodnoty err.
Autor dotazu může případně otestovat na větším počtu položek.
PS: Pokud by někdo věděl jak do uvedeného kódu dostat převod řetězce na malá písmena (při porovnání) stejně jako je tomu v Vymaz_Err_2 budu jen rád.
Díky
Sorry, že se do toho montuju. Jen tak ze zvědavosti, proč se zdrojový soubor nesmí otevřít?
Pokud ho otevřu na pozadí (GetObject) tak uživatel o tom nemá ani páru.
Sice už elninoslov poskytl řešení, ale když už sem se s tím drbal (2x! 
, když sem to dokončil tak mi kleklo PC a soubor se neuložil), tak přidávám i to své.
Přikládám makro o kterém mluvil elninoslov (odstavec d).
Uživatelské menu
\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