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

Příspěvky uživatele

Tak to je zlé, doufejte v pomoc od elninoslov, ten je tu nejšikovnější.

Už jsem tu před lety dával soubor, který by v tomto případě mohl posloužit, buď úplně nebo jako vzor řešení. Kdysi jsem ho potkal někde na internetu, ale zdroj už přesně neznám.
edit: vinou haprujícího připojení se mi nedaří připojit soubor, ale dá se na Wall.cz vyhledat: hledejte VypisAdresareSoubory_4.zip
nebo by to mělo být v https://wall.cz/index.php?m=topic&id=17836&page=1#post-39166

Ahoj, nevíte někdo jak vyresetovat chování excelu po použití příkazu Text do sloupců? Např. si obrátím jméno/příjmení s pomocí text do sloupců, když následně vkládám textová data se schránky do jiného souboru, vloží se mi do 2 sloupců! Pomůže mi jen zavřít kompletně excel. Excel 365. Na www jsem našel jen nezodpovězený shodný dozat u Lašáků.

pro All - ano, omlouvám se, funguje, nedostal jsem se k tomu "null" , a už vůbec nechápu, že to s tím pak funguje, ale je to tak. Celé si ukládám do svých postupů.

Tak jsem si pro zajímavost zkoušel použít řešení od @All i @lubo, a dospěl jsem k závěru, že opravdu funguje jen druhý kód @lubo s tím, že se tam doplní "= true" >> jinak kód hodí chybu, že text.hodnotu nemůže převést na logickou (to v případě, že hodnota filtru není prázdná). Ostatní řešení nerespektují to, že při prázené hodnotě se nefiltruje - nezobrazují nic.
// nevím co se načte z buňky
par = if ParametrBunky = null or ParametrBunky = "" then true else ParametrBunky,
// Pokud nechceme filtrovat, tak vracíme původní tabulku
xxx = if ParametrBunky = true then #"tabulka" else Table.SelectRows(#"tabulka", each [sloupec] = par) toto jde slušně použít i na víc sloupců, funguje to! Dám sem i soubor, ve kterém jsem to zapracoval >> vidím, že @hona se s tím nějak pere

Já to kdysi taky řešil, ale jako začátečník v PQ jsem hledal postup "klikací". Bylo to přes pomocné sloupce v dotazu (na pozadí). Našel jsem ten testovací soubor, jen jsem ho trochu učesal a dávám to sem.

Taková práce s jedním znakem! Já vždycky hledám jednoduchou cestičku: co třeba psát místo té dvojtečky např. "§" - taky jeden stisk a nakonec práce to hromadně nahradit za dvojtečku?

Tak sem dám to řešení já, tabulky excelu jsou tam proto, že se líp ohlídají rozsahy vyhledávání a vzorce.

V prvním řádku tedy změna na:
Set stud1 = Selection.Find(What:="Štúdium", LookAt:=xlWhole)ale pozor, po spuštění makra zůstane v excelu při hledání (ctrl-f) nastavené "pouze celé buňky"

edit: aha, byl jsi rychlejší

Mohlo by fungovat tohle:
Set stud1 = Selection.Find(What:="Štúdium")
Set studium = Selection.FindPrevious(after:=stud1)
studium.Select

dalo by se i vzorcem, předpoklad je použití JEN pomlčky a čárek jako oddělovačů a tečky před měsícem
=1+HODNOTA(ČÁST(A1;1+HLEDAT("#";DOSADIT(DOSADIT(A1;"-";",");",";"#";DÉLKA(DOSADIT(A1;"-";","))-DÉLKA(DOSADIT(DOSADIT(A1;"-";",");",";""))));HLEDAT(".";A1)-HLEDAT("#";DOSADIT(DOSADIT(A1;"-";",");",";"#";DÉLKA(DOSADIT(A1;"-";","))-DÉLKA(DOSADIT(DOSADIT(A1;"-";",");",";""))))-1))-HODNOTA(ZLEVA(A1;HLEDAT(",";DOSADIT(A1;"-";","))-1))
ENG (bez záruky překladu)
=1+VALUE(MID(A1,1+SEARCH("#",SUBSTITUTE(SUBSTITUTE(A1,"-",","),",","#",LEN(SUBSTITUTE(A1,"-",","))-LEN(SUBSTITUTE(SUBSTITUTE(A1,"-",","),",","")))),SEARCH(".",A1)-SEARCH("#",SUBSTITUTE(SUBSTITUTE(A1,"-",","),",","#",LEN(SUBSTITUTE(A1,"-",","))-LEN(SUBSTITUTE(SUBSTITUTE(A1,"-",","),",",""))))-1))-VALUE(LEFT(A1,SEARCH(",",SUBSTITUTE(A1,"-",","))-1))

Pro toto je nutné nejdříve zamknout list a teprve potom celý sešit. Při zamykání listu by měla vyskočit tabulka, kde se dá odškrtnout políčko "vybrat zamknuté buňky". Když se to takto nastaví, lze se pohybovat jen po odemknutých buňkách s to co píšete není možné provést.

Možná jsem to špatně pochopil, ale výsledek té funkce má dávat datum vždy o měsíc pozadu?? a to KDYŽ jen kompenzuje 2 místa pro měsíc?
Jestli ano, měl bych jiný postup:
promenna= Format(Application.WorksheetFunction.EDate(Date, -1), "yyyy_mm")

ještě by taky šlo použít kopírování:
Range("C3:C214").Copy
Range("F3:F214").PasteSpecial Paste:=xlPasteValues, Operation:=xlSubtract
Application.CutCopyMode = False
pro odečítání, pro přičtení pak s =xlAdd

Ještě k tomu, jak elninoslov zmínil, že sloupců na 10 let bude hodně do šířky. Já bych si to udělal tak, že bych v 1.sloupci vyšel z datumu DNES() a třeba na dalších 11 sloupců přidal 1 měsíc k předchozímu. Tak bych měl stále aktuální stav na 1 rok dopředu.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse