Příspěvky uživatele
< návrat zpět
Zkuste u všech dotazů na data zakázat refresh na pozadí.
Dodatek - hned jak jsem příspěvek odeslal a ještě znovu četl zadání, napadlo mě, že by to šlo upravit na první písmeno jména - ale pak už JEN na toto první písmeno - tak ještě jeden přiložený soubor.
edit: oprava souboru
Dá se to i bez VBA, viz. přiložený soubor, ale podmínkou je mít Excel v poslední verzi (365?), kde už je funkce FILTER.
Já jsem to dal zatím jen s pomocným polem UNIQUE, tudíž pro MS365.
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ší
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