Příspěvky uživatele
< návrat zpět
To bylo na mě? Vždyť už skoro spím.
Tak tady to je komplet. Ale vůbec jsem si s tím nehrál. Neošetřoval chyby, prostě nic. Jen k tomu již zmiňovanému hledání od elninoslov jsem přidal dva cykly. Jeden vytvoří listy a druhý tupě kopíruje buňku po buňce.
Sice blbé, ale zato pomalé.
Příloha, příloha, příloha.......
Taková blbost, když těch nul nebude na konci moc.
Aneb jak trávit dlouhé zimní večery vnořováním dalších a dalších a dalších... když:
=KDYŽ(MOD(A2;10);A2;KDYŽ(MOD(A2;100);A2/10;KDYŽ(MOD(A2;1000);A2/100;KDYŽ(MOD(A2;10000);A2/1000;"Konec")))) 
Musí se samozřejmě jednat o číslo.
Otázky směřují k rychlosti zpracování.
Napadlo mě využít funkci od elninoslov pro vytřídění unikátních klíčů, ty využít pro vytvoření jednotlivých listů a k nim pak nakopírovat příslušné hodnoty.
http://wall.cz/index.php?m=topic&id=44350&page=2#posts
Kolik asi tak může být jednotlivých klíčů (a následně listů)?
Kolik asi tak může být položek v listu zdroj?
Soubor s makrem se musí zabalit.
Jak konkrétně se projevuje to, že "sešit nejde uložit"? Neuložil jste omylem sešit jako.xlsx soubor místo .xlsm?
No přece tady 
, kde jinde (nikomu to neříkejte, ale zapoměl jsem to zabalit)
Tak se na to mrkněte.
Do F5 napište cílovou hodnotu (v dalších řádcích se automaticky zvětší o 100 000) a stiskněte tlačítko spočítat.
Ty hodnoty ve sloupci D jsou neměnné?
Proč je v G10 výsledek 4,5,6... a ne např. 1,2,3... Nebo je to jedno?
Může se každá hodnota ve sloupci D použít jen jednou nebo i opakovaně (např. místo 4,5,6 použít 4,4,4)?
Tady je to zapracované do vašeho makra. Nejsou kontroly na existenci souboru apod. Kopírování lze dělat také několika způsoby...
Pokud jde o vyhledávání, já používám něco takového. Číslo řádku v kterém je hledané datum pak najdu v "najdi.Row":
Sub najdiNeco()
Dim datum As Date
Dim najdi As Range
datum = "4.6.2020" 'tady načtu proměnnou, kterou hledám
With Worksheets("2020") 'název listu, kde chci hledat
Set najdi = .Cells.Find(datum, LookIn:=xlValues)
If najdi Is Nothing Then 'pokud nic nenajde
prompt = MsgBox("Zadaný údaj nebyl nalezen", vbOKOnly) 'vypíše hlášku
Exit Sub 'a skončí
End If
End With
'pokud něco najde, tak pokračujeme dál.
'Tady napíše, na kterém řádku datum našel.
prompt = MsgBox("Hledané datum je na řádku:" & najdi.Row)
End Sub
Jinak na předělání je tam toho víc.
marjankaj napsal/a:
Buď rád. Ja som také šťastie nemal.
Nicméně, nedbal jsem dobře míněné rady a přece jen jsem to otevřel.
No, bez upřesnění zadání to může dát dohromady asi jen jeden člověk.
Takže při prvním uzavření souboru se I20:I40 zkopíruje do hárok2!I34:I54.
Při dalším uzavření do hárok2!I55:I75, pak hárok2!I76:I96 atd.?
Nevím jak ostatním, ale mě to při pokusu o stažení souboru píše, že požadovaná stránka nebyla nalezena.
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