Dobrá, poslán příspěvek na účet fóra.
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.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.