Příspěvky uživatele
< návrat zpět
Děkuji.
Zkoušel jsem to, ale makro se zastaví tady:
sFileTemp = Dir(sDir & "*.xlsx", vbNormal)
Čím to je?
Děkuji.
Jj, to byla chyba.
Soubor jsem přiložil v zipu i minule, ale bez zdroje, omlouvám se. Nyní napraveno. Dal jsem jen ten jeden zdroj na to první makro "inttank".
Nyní mi to, ale dává chybu zde:
sFileTemp = Dir(sDir & "\*.xlsx")
To se také musí upravit, i když jsem již nadefinoval tu cestu?
Díky.
Super funguje.
Prosím, co mám za chybu v makru "inttank", že mi to píše, že neexistuje soubor a pak to proběhne?
Ostatní bych si pak zeditoval.
Děkuji.
Potřeboval bych pomoct s vypsáním cesty k souboru do buňky
Ale toto mi nefunguje.
= LEFT (CELL ("název souboru", A1), FIND ("[", CELL ("název souboru", A1), 1) -1)
Co tam mám špatně?
"Název souboru" mám něčím nahradit?
To musím pojmenovat nějakou oblast?
V buňce B2 mám název souboru bez přípony a v buňce B3 název souboru s příponou, obojí pomocí vzorce.
Chci pak následně v makru využít cestu k souboru.
Děkuji.
Můžete mi prosím někdo poradit, jak získat cestu k souboru pomocí vzorce?
Toto mi nejde zadat a ani mě to nepustí vložit ten vzorec.
= LEFT (CELL ("název souboru", A1), FIND ("[", CELL ("název souboru", A1), 1) -1)
Co tam mám špatně?
"Název souboru" mám něčím nahradit?
v buňce B2 mám název souboru bez přípony a v buňce B3 název souboru s příponou.
To musím pojmenovat nějakou oblast?
Děkuji.
Funguje je to s tou zapsanou cestou. Díky.
Díky za reakci.
Zítra otestuji.
Ale spíš by bylo pro mě lepší, kdyby se ro dalo nějak vydefinovat, za cesta "univerzálně", abych nemusel řešit, kde zrovna mám sešit uložený.
A nebo mě napadá, že by někde byla "buňka" v sešitě, kde by se ukázala ta cesta a makro by si "sahalo" pro to ThisWoorkbook.Path do té buňky. Ale to nevím, zda bych zvládnul patřičně zeditovaz současné makro a jestli by to vůbec fungovalo.
Ale jeste jednou diky.
P.S. Pokud by ten odkaz na buňku s cestou fungoval, pomohl byste mi někdo, prosím, s úpravou makra?
Děkuji.
Nemáte, prosím, někdo nápad, jak tu chybu odstranit?
Děkuji.
díky
Tak ten můj kratky zápis podle vás je soravnr? Je to tak?
Pokud ano, budu používat. Díky.
Našel jsem ještě toto.
Sub AktualizovatVsechnyListy()
Dim ws As Worksheet
Dim qt As QueryTable
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Sheets
For Each qt In ws.QueryTables
qt.Refresh BackgroundQuery:=False
Next qt
Next ws
Application.ScreenUpdating = True
End Sub
Ale toho je nějaké rychlé mi přijde proti tomu prvnímu zápisu co jsem posílal výše. Nebo e mi to jenom zdá?
Super.
Děkuji.
To se zapíše takto?
Sub Refresh_all()
ThisWorkbook.RefreshAll
MsgBox ("REFRESH DONE!")
End Sub
Dobrý den, nevíte zda jsou nějaké omezení pro čtení dat pomocí maker u souborů uložených na Onedrive?
Používám stále stejné makra.
Když soubor a zdroje dat mám na lokálním disku vše funguje.
Ale když mám soubor a zdroje na Onedrive makro se ukončí a neproběhne.
Hází to chybu:
Run-time error '52':
Bad file name or number.
Musím někde něco povolit?
Děkuji.
Dobrý den,
chtěl požádat o pomoc s makrem, které bych přiřadil tlačítku.
Makro by vykonalo rutinu, jak při použití nabídky "Data" --> "Aktualizuj vše".
Můžete mi prosím pomoct?
Děkuji.
Dobrý den,
chci si udělat si udělat podmíněné formátování pro řádek "AVG" a jednotlivé sloupce.
Udělal jsem to pro první sloupec 2022-01, ale nevím, jak to formátování zapsat "obecně", aby to platilo pro každý sloupec samostatně (budou přibývat Periody) a přitom, aby to bylo v tom každém konkrétním sloupci právě jen pro řádek "AVG".
Chci si v každém sloupci zvýraznit nejnižší a nejvyšší hodnotu v řádku "AVG".
Můžete mi prosím s tím někdo poradit?
Děkuji.
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