• Ú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 "bomba".
Díky moc

Měl bych jeden dotaz.
Tady v tom kroku:
9. Karta „Domů“ --> „Načíst a zavřít“

9.1. Vytvoří list s dotazem
9.2. Nebo podmenu „Zavřít a načíst do…“ --> umožní nevytvářet nový list, ale možnost například vložit do určité buňky

Když použiju třeba bod 9.1., jak mohu jednoduše se pak vrátit a použít bod 9.2.?
Nebo to musím zpět do PQ a tam udělat duplikovat a použít jiný postup?

Děkuji oběma.

K tomu PQ
Vůbec netuším, jak jste dosáhl tohoto...

let
Zdroj = Excel.CurrentWorkbook(){[Name="DataTab"]}[Content],
#"Zrušenie kontingenčnosti ostatných stĺpcov" = Table.UnpivotOtherColumns(Zdroj, {"Hospodářské středisko", "Registrační značka"}, "Měsíc", "Částka"),
#"Stĺpce so zmeneným poradím" = Table.ReorderColumns(#"Zrušenie kontingenčnosti ostatných stĺpcov",{"Měsíc", "Hospodářské středisko", "Registrační značka", "Částka"}),
#"Zmenený typ" = Table.TransformColumnTypes(#"Stĺpce so zmeneným poradím",{{"Měsíc", type text}, {"Hospodářské středisko", type text}, {"Registrační značka", type text}, {"Částka", type number}})
in
#"Zmenený typ"

To jste nejprve vložil prázdní dotaz a pak jste nadefinoval "manuálně" (napsal) Zdroj?

A jak jste pak doplnil ty další kroky dotazu (Použitý postup)?
To vůbec netuším, ale přijde mi to, jako zajímavá věc.

Já zatím jako laik používal PQ na slučování a úpravu dat ze zdrojů excel a pak přes Power Pivot.
Ale tohle od vás je fakt zajímavé.

Děkuji
To PQ asi ne, protože ne všichni mají Office, kde PQ běží.

Dobrý den,
chtěl bych požádat o pomoc s makrem.
Na listu "data" mám v jednotlivých řádcích například konkrétní vozidla. Tento list je ve formátu tabulky
V prvních dvou sloupcích je označení vozidel a jejich umístění.
Ve sloupcích C-N, tedy 3-14 mám hodnoty pro konkrétní měsíce.

Potřeboval bych, aby se vytvořil nový list nebo já ho vytvořím prázdný a do něj se přenesla data z listu "data".
Vytvořil jsem list "vystup" kam jsem ta data manuálně nakopíroval.
Na tomto listu "vystup" je mi jedno, v jakém pořadí se ta data budou řadit pod sebe, s tím si pak už poradím.
Ale potřebuji je takto transponovat, abych to pak mohl jednoduše například třídit po měsících.
V tom makru bych rád, aby se pracovalo s pořadovými čísly sloupců z listu "data" a totéž s pořadovými čísly sloupců na tom novém listu.
Jde mi jen o to, aby se to lépe případně editovalo.

Děkuji.
Radek

Super, to je ono.

Jen mě ještě napadlo, jestli by se dal použít třeba nějaký pomocný list, třeba s názvem "hodnoty", kde by se pod sebe v prvním sloupci zadaly hodnoty (makro by prohledalo první sloupec), které by se využili v této části makra.

Case "něco", 900: bDel = True 'nebo mazat při těchto hodnotách, hodnoty lze lehce přidat

Jen proto, aby někdo nemusel editovat makro.

Ale jinak je pro mě i toto dostačující.
Ještě jednou děkuji.
Radek

Děkuji

Já ještě budu testovat to moje původní s tím, že buď to bude na Error nebo na konkrétní text nebo na konkrétní hodnotu:
If IsError(tbl.DataBodyRange.Cells(i, 11).Value) Then tbl.DataBodyRange.Rows(i).Delete

If tbl.DataBodyRange.Cells(i, 11).Value = "něco" Then tbl.DataBodyRange.Rows(i).Delete

If tbl.DataBodyRange.Cells(i, 11).Value = 900 Then tbl.DataBodyRange.Rows(i).Delete

Vyřešeno:
Sub DeleteRows()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("faktury")

Dim tbl As ListObject
Set tbl = ws.ListObjects("DataFaktury")

Dim lastRow As Long
lastRow = tbl.Range.Rows.Count

Dim i As Long
For i = lastRow To 1 Step -1
If IsError(tbl.DataBodyRange.Cells(i, 11).Value) Then
tbl.DataBodyRange.Rows(i).Delete
End If
Next i

MsgBox ("ŘÁDKY VYMAZÁNY")

End Sub

Dobrý den,
chci se zeptat, zda byste mi pomohli s makrem, které by vymazalo na listu, který je ve formátu tabulky příslušný řádek, když je v konkrétním sloupci nějaký hodnota?
Na listu "faktury" mám tabulku "DataFaktury".
A potřeboval bych, aby makro konkrétně ve sloupci číslo 11 prohledávalo jednotlivé buňky a pokud by byla v buňce hodnota "#NENÍ_K_DISPOZICI", tak by se řádek s touto hodnotou vymazal.
A takto by to zkontrolovalo a případně vymazalo všechny buňky (řádky) v tom sloupci číslo 11.
Děkuji.
Radek

Dobrý den všem,
chci se zeptat, zda máte někdo zkušenosti a jaké s fungováním excelu na MacBook Air nebo MacBook Pro?
Jde mi o to, že možná budu nucen používat tyt počítače a nikdy jsem s nimi nepracoval.
Excel jsem používal vždy na PC a NB se systémem Windows.
V excelu používám kromě jiného Power Query, Power Pivot a pak standardní funkce a kontingenční tabulky.
Děkuji.
Radek

@elninoslov
Mám dotaz a prosbu.
Dalo by se také makro napsat i pro kontingenční tabulku?
Konkrétně mám na mysli to, že každá KT se nějak jmenuje a já bych si v makru upravil její název a pak bych nadefinoval řádky, sloupce a hodnoty nebo jejich indexy, které bych chtěl vyexportovat do *.xlsx souboru.
Děkuji.
Radek

Neskutečné...
Díky moc
Radek

Díky moc, to je ono.

Já si ještě zkusím v čase to makro zeditovat tak, aby se nemusely vypisovat názvy těch sloupců "manuálně", ale aby se automaticky vzal název toho příslušného sloupce z tabulky "DataTab".
Ještě jednou díky.
Radek

Super, To je ono.
Jen nešo by tam dát dopředu ještě datum?
Neco takového...

Dim MyDate, MyStr
MyStr = Format(MyDate, "yyyy-mm-dd")
MyDate = Date
.
.
With .Worksheets(1)
.Name = "Export" & MyStr
.Cells(1, 1).Resize(, Sloupcu).Value2 = Nazvy

Nějak to nemohu doplnit.
Díky.
Radek

Dobrý den,
mohli byste mi prosím pomoct s makrem, kde potřebuji z listu, který je ve formátu tabulky vyexportovat do *.xls nebo xlsx pouze určité sloupce a v určitém pořadí?
Název listu, ze kterého bych exportoval (nebo název tabulky) bych zadal (editoval) v makru.
Konkrétně nyní mám data na listu "data", tabulka "DataTab".
Exportovaný soubor by se uložil do adresáře "export", který by byl vytvořený ve stejném adresáři, ve kterém je tento soubor s daty.
Na listu "export" jsem uvedl pořadí zdrojových sloupců a ve druhém řádku jejich pořadí a názvy v exportovaném souboru.
Děkuji.
Radek

Dobrý den,
prosím, potřeboval bych poradit, viz přiložený soubor, s vložením pole do Power Pivot, která má zdroje namapované přes PQ.
Děkuji.
Radek

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse