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

Příspěvky uživatele

Případně, jestli je tam tvarů víc, tak:
karta Domů > ikona Najít a vybrat > Přejít na-jinak
> Objekty > OK. Pak najednou smazat - Delete.
Edit: Pardon, předchozí příspěvek byl rychlejší. Ale i tak vyzkoušejte

Díky za pomoc, pochopil jsem.
Zbytečně vymýšlím složitosti tam, kde nejsou!
Po editaci do skutečného souboru velká úspora MB na velikosti a vteřin na regen.
V sezóně 2015 tak budu zas o něco rychlejší a tím na Velogames.com o něco víc vepředu.

Ahoj,
můžete mi někdo pomoci vysvětlit, proč nefunguje pojmenovaný vzorec, který když se zapíše do buňky v původní formě, dává normálně výsledek?
Problém je upřesněný v příloze, možná asi trochu nepřehledné, vysvětlivky a moje zkoušení je uprostřed u oranžového pruhu.
V listu 1 je původní řešení, kdy vzorec funguje, ale je asi nevhodný z hlediska použití funkcí Nepřímý.Odkaz a Posun (Al zde proti těmto neustále bojuje).
V listu 2 je moje snaha udělat to jinak, ale přestává to fungovat právě při použití vzorce jako pojmenovaného. Co s tím?
Je vůbec možné docílit výsledku bez původních funkcí jen s Indexem? Třeba jiným postupem?

Něco se řešilo tady: http://wall.cz/index.php?m=topic&id=17972
Než měnit odkaz na objektu, co vytvořit nový objekt s doc souborem? V příloze je soubor s tím prvním makrem z odkazovaného vlákna. Importuje doc zadaný cestou, buď jako ikonu nebo objekt se zobrazeným obsahem. Není to ale řešení dotazu, jen postrčení, námět ...

Já taky přidám řešení. (@Mosquito: opravdu nesoupeřím, kdo má lepší řešení )
Už před 1,5 rokem jsem pro sebe dělal to samé! A zjistil jsem, že potřebuju přidávat do listu další sloupce a skrývání tím přestane fungovat.
Proto v příloze je navíc ještě univerzálnější řešení, kde se skrývaný sloupec hledá podle textu.

Mohlo by fungovat tohle:
ReDim Docasna_promenna(Range("Zkratky").Cells.Count - 1)
For i = 1 To Range("Zkratky").Cells.Count
Docasna_promenna(i - 1) = Range("Zkratky").Cells(i).Value
Next i

@Mosquito
Nespustí se? Já to dělám na Win7 64-bit, Excel 2010,2013 32-bit. Nevím. Mělo by to fungovat.
Neříkám lepší makro. Ale k určení složky je u mě vhodnější dialog, kde se ukáže přímo adresář a je to jednoznačné.
Když jsem zkoušel tvoje řešení, z UserForm "vyberte cestu",
1.pokus: vyberu C:\Temp, řádek Název složky = Temp, stisknu OK a napíše to "žádná složka"
2.pokus: to samé + ještě rozkliknu v okně Temp >> OK >> zase "žádná složka"
3.pokus: to samé + navíc ještě v Temp označím podadresář, třeba ABC, v řádku Název složky = ABC >> OK >> a v Userform je teprve cesta C:\Temp. Divné.

Makro na promazání v jedné úrovni jsem měl v pátek v poledne a začal to vylepšovat na podsložky. Ale Mosqito mě předešel, dal sem soubor, tak jsem to zabalil.
Teď jsem to tedy dotáhnul, i pro sebe, abych konečně víc pochopil, jak to funguje.
Základem je totiž soubor, který jsem kdysi našel někde na netu, původně dělal seznam souborů z adresářů dle přípony. Už sem ho sem taky pro někoho dával. Snad někdo neřekne, že se chlubím cizím peřím.
Předělal jsem ho na mazání, snad to bude ono.
Proti Mosqitovu řešení je tu asi lepší výběr složky, ten jeho líp pasuje na výběr souboru. A tu chybu mi to dává taky, je to něco s hledáním.
Vyzkoušej, ale pozor! Je to přeci jen mazání!

Pokud to má být opravdu jen na tuto zadanou oblast, tak např.
Sub kopirovat_oblast()
pocet = InputBox("Kolikrát vložit oblast?")
If Not (IsNumeric(pocet)) Then Exit Sub
If pocet <= 0 Then Exit Sub
For i = 6 To 3 + 3 * pocet Step 3
Range("A3:D5").Copy Cells(i, 1)
Next i
End Sub

Já jsem právě v souboru pro čtení přidání záznamu zakázal. S prací nad jedním souborem nemám zkušenosti, moc si to nedovedu představit, nemám to ani kde vyzkoušet. Obávám se, že už víc nepomůžu.

Zkusil jsem to vylepšit:
- kontroluje, zda je sešit jen pro čtení. Když ano, dá hlášku a makro skončí
- kontroluje, zda cílový soubor existuje. Když ano, zeptá se, zda přepsat nebo ne. Je možná varianta, aby se neptal a nikdy nepřepsal existující soubor. Ale to, že dá vědět o souboru, upozorní na to, že je něco divně.
- na konci makra samo uloží soubor, aby souhlasily záznamy se soubory

Trochu jsem to poupravil. Adresář může být rozbalen kdekoliv, podadresář a krycí soubor musí mít tato jména. "Ulož jako" jsem nahradil kopírováním, odpadá tím rozeznání jména souboru a pořadí se bere z tabulky. Vyhovuje?

Přidat hypertext.odkazy asi půjde.
Ale v příloze se nějak nevyznám. Co to má dělat? Hlavně makro na uložení dalšího souboru bych nedával do ThisWorkbook, ale do modulu. Proč dvě tlačítka? Tlačítko "Vyplnění funkce" přednastaví x-řádků dopředu se vzorci, ale nejsou k nim přeuložené soubory, tak jaké hyp.odkazy?
Tlačítko "Nový záznam" uloží nový soubor s posledním číslem a zafunguje nový řádek, tedy pod tohle tlačítko dodělat ten hyp.odkaz?
Nechci měnit vize, ale šlo by jedním tlačítkem přidat zadaný počet záznamů, ke kterým by se uložil správný počet souborů a přibyl správný počet řádků i se vzorci a odkazy.

Problém bude nejspíš v tom počítání souborů v adresáři. U mě to funguje i při prvním puštění správně. Smyčka Do - Loop spočítá všechny .xls mimo "krycí list". Vypadá to na jeden další .xls v adresáři, nebo je tam i 0.xls ? Zkus to otestovat jen se soubory 1,2,3, + krycí list.

Zkusil jsem něco vytvořit.
Soubor v příloze přidej do adresáře se soubory. Předpokladem je souvislá řada souborů .xls bez vynechání čísla! Mimo tyto soubory s číselným názvem a "krycí list" by tam neměly být jiné soubory .xls, ale můžou být jiné soubory Excelu (xlxs, xlsm).

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse