Příspěvky uživatele

@Stalker děkuji. Akorát nevím, proč mi .PrintPreview vyhodí chybu.

Díky

Děkuji. To je jedna z možností. 5x jsem dal jako příklad. Bude jich třeba 40 a to už se mi zdá zbytečné

Dobrý den
V příloze mám zapsaný kód pro tisk listů "Titulní strana", "1. strana" a "Kniha jízd". Prosím o úpravu, aby se "Titulní strana" a "1. strana" vytiskla 1x a "Kniha jízd" vytiskla 5x.
Děkuji

Omlouvám se, nezapsal jsem poslední lomítko v cestě

Můžu ještě poprosit

: namísto číslovky 1 - 12 (měsíc) mám ověřením dat leden - prosinec (aby byl název souboru "duben.pdf". VBA mi ale v tomto případě vyhodí chybu.
Děkuji

Děkuji za rychlou reakci, ale asi jsem zadal dotaz špatně. Do buňky A2 zapíšu cestu do složky kam se má soubor uložit. Název souboru bude podle hodnoty v buňce A1.
Ještě jednou díky

Dobrý den
prosím o úpravu kódu tak, abych nemusel zapisovat cestu k uložení souboru ve VBA, ale zapsal jí v listu "Měsíc" do buňky A2. V buňce A1 mám hodnotu měsíce 1-leden, 2-únor atd.
Děkuji

Sub TiskDoPdf()

Dim Mesic As Integer, OldSelect As Worksheet
Mesic = Sheets("Měsíc").Range("A1").Value
Set OldSelect = ActiveSheet
Sheets("Doplnění").PageSetup.PrintArea = Sheets("Doplnění").Range("A1:G50").Offset(0, (Mesic - 1) * 8).Address
Sheets(Array("sm. A", "sm. B", "sm. C", "sm. D", "Doplnění")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\slay\Desktop\Docházka_pdf\" & Mesic & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Docházka").Select

End Sub

Dobrý den
Přikládám ukázku souboru. Hledat výraz na listu "Kniha".
Oblasti hledání jsem označil v souboru.
Souboru je cca 730, ale jsou rozděleny po měsících. Hlavní složka do které se soubory ukládají má podsložku ROK a ta podsložku ROK-MĚSÍC. Asi jste mi pomáhal i s tímto. Teď mě tak napadlo, že by asi bylo ještě lepší, kdyby se hledání zúžilo na určitý rok, který by se zadal na listu "Hledat".
Mnohokrát děkuji

Dobrý den
Bylo by možné vytvořit makro pro toto:
Každý den se mi uloží dva soubory do určené složky v PC (datum-název.xlsm). Pokud ale potřebuji najít třeba slovo dezinfekce, které se nachází v několika souborech, musel bych je otevírat jeden po druhém. Představuji si zapsat hledaný výraz třeba do A1 a spustit makro, které by vypsalo názvy souborů, které hledaný výraz obsahují do A2, A3 .... .
Děkuji

Dobrý den
Prosím o úpravu kodu tak aby:
1. na listu Měsíc vyberu hodnotu v A1 (používám i k jiné funkci)
2. potřebuji vytisknout listy A,B,C,D a z listu Přehled stránku podle hodnoty A1 z listu Měsíc. (1=leden, 2=únor ...)

Děkuji

Sem kus vola. Sypu si popel na hlavu

@Lugr
zkusil jsem zadat 12 hodinovou směnu a mám 183 hodin dovolené. Výsledek by měl být 15 a 3 hodiny. Není to kritika! Jen zájem přijít na příčinu.

Jenom skromnej dotaz. Pepe 74287 píše, že pokud používáte Microsoft 365, stačí fce UNIQUE. Já používám Office 2019, tak jsem na podobnou selekci použil z fóra =SOUČIN.SKALÁRNÍ(1/COUNTIF(C2:C11;C2:C11)). Ale v práci máme na fšech PC Microsoft 365 Pro a ani tam jsem tuto fci nenašel. I když sám Microsoft popisuje, že na 365 tato funkce běží. To se musí nějak aktivovat? Zkusil jsem jí zapsat a klepnout na ikonu fce, ale ani tak se neobjeví.
Díky

@elninoslov děkuji velice za ochotu.

@elninoslov, můžu požádat o úpravu pro 4 směny? Já se v tom plácám a furt mi to nefunguje, tak jak by mělo. Je to vlastně pokus-omyl

Děkuji předem

@elninoslov tak takto jsem si to představoval

. Teď jestli to napasuju do mého sešitu

. A už vůbec nechápu, jak to někdo vymyslí

Díky

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje