Příspěvky uživatele

Sqělý

To bez COPY je super.

Kam mohu poslat nějaký příspěvek?

Ještě jednou děkuji.

Děkuji.
Ano adresář "pdf" existuje.
Teď mám to makro takto:

Sub doPDF()

Dim wList As Worksheet
Dim sDir As String
Dim i As Integer

Set wList = List2 'sem napíšeš list, který se má zpracovat

sDir = ThisWorkbook.Path & "\pdf\"
wList.Copy

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sDir & IIf(Right(sDir, 1) <> "\", "\", "") & wList.Name & " - " & c2 & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

ActiveWorkbook.Close False

MsgBox ("Uloženo")

End Sub

Ale:
Ukládá se to 1 minutu.
Na to listu je totiž KT a dva Průřezy.
Navíc ta KT má data přes Power Query.
A v názvu uloženého *.pdf souboru se mi neobjeví hodnota z buňky C2.
V buňce C2 má vzorec =B12 a v buňce B12 je textová hodnota z Filtru KT,
konkrétně je to název střediska.

Co je špatně?
Děkuji.
Radek

Dobrý den, nemáte někdo makro na uložení konkrétního listu do pdf?
Tohle se mi nedaří rozchodit

Díky.
RAdek

Sub doPDF()

Dim wList As Worksheet
Dim sDir As String
Dim i As Integer

Set wList = List2 'sem napíšeš list, který se má zpracovat
sDir = ThisWorkbook.Path & "\pdf\"
wList.Copy

ActiveWorkbook.SaveAs sDir & IIf(Right(sDir, 1) <> "\", "\", "") & wList.Name & " - " & c2 & ".pdf", FileFormat:=xlTypePDF, CreateBackup:=False, Local:=True

MsgBox ("Uloženo")
Application.StatusBar = False
End Sub

@hans66
elninoslov najde určitě elegantnější řešení.
Mně vždycky tady pánové a paní poradili dobře

Já jsem prostý uživatel.

Super, děkuji.
Nenapadlo mě, že stačí označit sloupce té Tabulky.
Pro můj účel naprosto dostačující.
Ještě jednou díky.
Radek

Trochu kostrbatě jsem to udělal přes kódy intervalů, ale...
Nevím přesně, kde a jak se budou zadávat hodnoty a v jakých jednotkách to bude.
Chce to otestovat.
Určitě to jde i jinak nějakým využitím fcí.

@eLCHa
díky za radu ;-)
Vždycky jsem to ve zdroji nějak složitě udělal, rozložil a pak spojil.
Ale to tohle je geniální rada.
Díky moc.

Dobrý den, mám data na listu "XXX" a to ve formátu Tabulky, kde tabulka se jmenuje "DataTab".
Mohu a případně jak mohu využít tuto tabulku, jako zdroj dat pro graf?
To musím nějak přes definovanou oblast, i když už mám to DataTab?
Nechci využívat kontingenční graf.
Děkuji.
Radek

Perfektní, děkuji.
Radek

Mockrát děkuji za pomoc.
Mohl byste mi, prosím, ještě poradit s maximem a minimem?
Soubor přikládám.

Na listu "dataphm" bych potřeboval do sloupce "BD" doplnit minimum a do sloupce "BE" maximum podle těchto kritérií.

Jednoznačný identifikátor je ve sloupci "Z" a je to SPZ auta.
A do sloupce "BD" tedy minimum by se doplnila nejnižší hodnota ze sloupce "AW" pro příslušnou SPZ a analogicky do sloupce "BE" zase maximum ze sloupce "AX" pro příslušnou SPZ.
Děkuji.
Radek

Dobrý den,
mám tento zápis:
=INDEX(DataPhm[@[PHM v M]];POZVYHLEDAT([@ID];DataPhm[@ID];0))
Na listu s tabulkou DataPhm mám sloupec ID, kde ID je jednoznačný identifikátor - spojení RZ a roku a měsíce.
A pak na listu s tabulkou DataWebdisp má výše uvedený vzorec. Zde mám také ID, které se shoduje s ID na druhém listu.
Jenže mně se doplní pouze první hodnota z listu s tabulkou DataPhm.
Přikládám soubor.
Můžete mi, prosím, poradit, jak upravit ten vzorec tak, aby se doplnily všechny hodnoty?
Děkuji.
Radek

Já zkoušel to od elninoslov, ale to mi nefunguje.
v adresáři to mám takto:
data
osnova
zakazky
naklady.xlsm
V adresářích jsou *csv soubory.
A z adresáře "data" mám sloučeny všechny csv soubory přes PQ.
A mám "pouze vytvořit připojení", u všech.

to veny
Vůbec netuším, kde je ten "Settings" list.
A nevím, kam bych měl ten vzorec zapsat a pak ten zdrojový dotaz.
V příštím týdnu by mi měla přijít knížka ve slovenštine ohledně power pivot a tak se snad dozvím něco víc.
Každopádně oběma děkuji.

Jj, děkuji.
Ale hází mi to chybu.
DataSource.NotFound: File or Folder: Nepovedlo se nám najít složku d:\Dokumenty\Excel\PQ+KT z CSV\Data\*.
Podrobnosti:
d:\Dokumenty\Excel\PQ+KT z CSV\Data\

Jsem se chtěl zeptat, když v Power Query "natahuji" soubor v úvodu, kde zadám a jak zadám relativní cestu tak, aby se při přesunutí souboru, změnila i ta cesta?
Vycházím z toho, že struktura adresáře bude stejná.
Děkuji.

Omlouvám se, dostal jsem se k tomu pořádně až dneska.
Nakonec bych zřejmě exportoval jednotlivé roky do souborů *.csv. Minulé roky zůstanou a jen aktuální rok budu vždy de facto aktualizovat. List s daty se všude, v každém souboru bude jmenovat "data" a soubor, viz příloha, např. 2016 data.csv
Pak bych to chtěl !učesat" v Pivota Power s použitím Power Query. A tady jsem asi v koncích :-(
V souboru zakazky.csv je seznam zakázek a v posledním sloupci je informace. Tento soubor by se také aktualizoval v čase, protože zakázky stále přibývají.
Tento soubor, zakazky.csv je de facto "řídící", kde jednoznačné ID je "Kód zakázky".
Potřebuji pak udělat ze všeho Power Pivot a to tak, že:
Filtr = poslední sloupec ze souboru zakazky.csv
Sloupce = sloupec "ROK" z každého datového souboru. A potřebuji, aby ten "ROK" se automaticky v Pivot zobrazoval, jako název sloupce, tedy by byly vedle sebe sloupce 2016, 2017, 2018, 2019, 2020
Hodnoty = sloupec "D - MD" z datových souborů.

Já jsem si už načetl ty datové soubory, byly to kompletní roky a udělal jsem Transformaci, abych opravil datové formáty a pak jsem s tím chtěl pracovat v Pivot.
Ale nedařilo se mi dostat do těch Sloupců automaticky názvy těch "ROK", aby to bylo vedle sebe.
Měl jsem Relaci ze zakazky.csv do každého datového souboru, kde to bylo Kod zakazky (zakazky.csv) --> Kod zakazky (datovy soubor)
Zatím děkuji.

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje