• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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.

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

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse