Příspěvky uživatele
< návrat zpět
ad1-2
budou to 3 případně 4 sloupce podle hodnoty buňky "B3" a budou to buď sloupce A:C nebo A:D , ne jiné.
ad3-4
ne, hodnoty v řádcích 5 a 6 budou jiné ale pokud je potřeba nějaký identifikátor, je možné využít jakékoliv řádky 9+ s tím, že je potom skryji.
případně je možné i využití celých sloupců F+
Díky V.
našel jsem tento kódPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And IsNumeric(Target.Value) = True Then
Cells(Target.Row, 2) = Cells(Target.Row, 2) + Target.Value
Target.Value = 0
End If
End Sub
který dělá podobnou věc kterou potřebuji
hodnoty ve sloupci A přičítá do sloupce B a nastaví nulu
neumím to předělat na můj soubor
Zjistil jsem že mám špatně popis.
Něco už jsem se snažil spáchat, nicméně moje znalosti na to nestačí. Snažím se vždy dohledat nějaký kód a alespoň trochu pochopit logiku, ne vždy úspěšně.
Skrytí sloupce na základě hodnoty už jsem pořešil.
Přičítání hodnoty mi nefunguje podle potřeby, protože nevím jak kód upravit. Makro se mi spouští až po návratu do buňky místo při opuštění a nevím jak od myConst (vlastní název pro konstantu kterou beru z buňky) odečíst 1.
Přikládám nový soubor kde jsem i doplnil jak by měl vypadat výsledek.
Zdravím
Chtěl bych požádat o pomoc s VBA.
Podrobněji jsem popsal v přiloženém souboru.
Děkuji V.
Nevím jakou používáte verzi Office.
Pomocí PowerQuery by to šlo třeba takto.
Vstupní Data jsou nastavená do řádku 22 (muselo by se případně upravit)
Tituly musí končit "." (tečkou) a třídění zatím nastaveno na 10 celků oddělených mezerami tzn. "Ing. Petr Nový" jsou 3 celky.
Po přidání řádků ve sloupci "B" stačí pravý klik na výstupní Tabulku a Obnovit
Pokud by jste chtěl použít PowerQuery tak třeba takto.
Nicméně je potřeba zdrojová data převést na Tabulku nebo použít Definovaný název. V případě, že by byl lepší Def. název, bylo by potřeba udělat malé změny v dotazu.
v posledním příspěvku od elninoslov máte soubor "PQ Import dát" kde je list KT a list Settings, tam je potřeba upravit cestu, nebo použít vzorce z posledního příspěvku elninoslov.
Co se týče "zdojového dotazu":
Používám v PQ, dle toho co mě naučil MePExG, dotaz pojmenovaný jako Zdroj (a v něm právě FPath-cesta ke složce)a další dotazy pokud je potřeba vytvářím z něj.
elnino má trochu odlišný způsob, ale zkušenosti mnohem mnohem větší
Kniha je určitě super nápad 
Na listě "Settings" si upravte správné cesty podle toho kde to máte u sebe.
Osobně používám maticový vzorec a pojmenovanou buňku FPath
načte cestu ze které byl soubor otevřen
vzorec:
=ZLEVA(POLÍČKO("filename");NAJÍT("[";POLÍČKO("filename"))-1)[/code]
v PQ si připravím vlastním dotazem cestu
[code]let
Source = Excel.CurrentWorkbook(){[Name="FPath"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}}),
Column1 = #"Changed Type"{0}[Column1]
in
Column1
a zdrojový dotaz načítám
= Folder.Files(FPath)
snad nevadí že odpovídám 
to elnino:
Mohu se zeptat podle kterého sloupce berete ROK?
Zkoušel jsem dle sloupce "C" a "L" a u obou mi vychází počet pro "nových (Žádost 0)" a rok 2015 "10". Vy máte "5".
Díky V.
pomocí PQ, při změně, pravý klik na výstupní tabulku a Obnovit
podmínku KDYŽ musíte zadat třeba pro A6
=KDYŽ(COUNTIF(A1:A5;">0")=0;"";COUNTIF(A1:A5;">0"))
s tím že nevím jak máte počítaný countif
ten General format taky nevím jak zadat 
edit:
tak už jsem na to přišel 
v CZ verzi se musí zadat
Všeobecný;Všeobecný;;
Šlo by to i pomocí PowerQuery, nicméně by bylo potřeba znát přesnou datovou strukturu.
Přikládám pro ilustraci zkoušku na 5k řádcích.
Není zač.
tak na VBA jsou tu jiní přeborníci
šlo by použít PowerQuery a případně udělat tlačítko na aktualizaci výstupu nebo je nutné VBA?
nicméně ze kterých konkrétně sloupců chcete data načítat a co přesně má být jako výstup?
Sloupce A-F jsou tam proč? Nebo je to výstup z nějakého softwaru?
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články