Příspěvky uživatele

Tak jestli je to jednorázová akce a nejsou tam v tom vzorce, tak bych to udělal: do pom.sloupce vzadu sloučit Concatenate sloupce, do počtu nejvyššího, mezi si dát oddělovač např. #, nakonec připojit text a pak výsledek rozdělit text do sloupců s tím oddělovačem. Netestoval jsem, ale mohlo by to fungovat. Vzorce samozřejmě roztáhnout na potřebný počet řádků.
EDIT: tak pardon, bylo by to složitější, vytvořený sloupec přeuložit "jako hodnotu" a před rozdělením do sloupců v oblasti nahradit např. ### nebo ## za jeden rozdělovač #. Ale pro 2000 řádků i to se vyplatí

Taky jsem to kdysi hledal, nenašel, tak používám toto pro reset hledání: (nemyslím, že tohle tak moc zpomalí )
Sub reset_hledani()
With ActiveSheet.Range("A1:A5")
Set rreset = .Cells.Find(What:="", _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With
Set rreset = Nothing
End Sub
Volat z hlavního makra před ukončením pomocí Call.

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")

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje