Příspěvky uživatele
< návrat zpět
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).
Stačí doplnit fci IFERROR. Na list "Evidence" doplněna fce KDYŽ.
Teď mě tak napadá pokud potřebuješ mít data v notepadu a využiješ změnu kódu od elninoslov
stačí koncovku ".csv" nahradit ".txt" a máš vystaráno 
Vyzkoušej, žádné uvozovky v notepadu mi to nedělá
https://proexcel.cz/pole-se-seznamem-cili-combobox/
konkrétně:
Style … pokud uživatel nemá mít možnost zapsat do textového pole prvku vlastní hodnotu a bude pouze vybírat z existujících položek, zvolte 2-fmSTyleDropDownList
Přijdeš tím však o možnost zadat popisek "Vyberte ze seznamu".
V proceduře "'zápis dat z formuláře" bude třeba změnit
ComboBox2.Text = ""
na
ComboBox2.Value = ""
Ale to Tě editor upozorní.
toto:
user_name = Environ("USERNAME")
nahraď tímto:
user_name = LCase(Environ("USERNAME"))
a všechna jména uživatelů v kódu napiš malými písmeny.
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