• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

super děkuji :-)

Dobrý den,
mám makro pro uložení do souboru pdf dle hodnot v buňkách. Potřeboval bych, aby mi makro ověřilo existenci pdf souboru pod stejným názvem a vyhodilo msgbox s tím, že soubor již existuje a zda chci soubor přepsat. Níže kód :-)
------
Sub Tisk_protokolu_do_PDF()

Application.ScreenUpdating = False

Sheets("Kovo - actual forms").Select

If Len(Dir(ThisWorkbook.Path & "\PDF\", vbDirectory)) = 0 Then
MkDir ThisWorkbook.Path & "\PDF\"
End If

If Len(Dir(ThisWorkbook.Path & "\PDF\" & "Protokoly", vbDirectory)) = 0 Then
MkDir ThisWorkbook.Path & "\PDF\" & "Protokoly"
End If

If Len(Dir(ThisWorkbook.Path & "\PDF\Protokoly\" & "Hotové", vbDirectory)) = 0 Then
MkDir ThisWorkbook.Path & "\PDF\Protokoly\" & "Hotové"
End If

slozka = ThisWorkbook.Path & "\PDF\Protokoly\Hotové"
zakazka = Range("AK1").Text & "_" & Range("AL1").Text & " - " & Range("AJ3").Text
soubor = slozka & "\" & zakazka & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=soubor, _
Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Application.ScreenUpdating = True

End Sub
----------------

Děkuji moczapomoc :-)

Chápu,
napsal jste to dobře :-) .... vím, že je to mocný nástroj. Hodně si s ním usnadňuji práci. Ale neumím programovat. Vždy někde na netu najdu radu a implementuji do svého souboru, i když je to pro mě fuška :-) .... přeji hezký večer :-)

Ještě jednou děkuji. Jsem tu nový, tak ještě tápu. Do přílohy dávám soubor. Prostě někam do toho servisního protokolu zakomponovat eet účtenku :-) .... ale děkuji Vám.

Aha děkuji.
Jedná se o projekt, který se zaměřuje na servis zařízení. Zákazníkovi vystavím servisní list, poté zahájím samotnou opravu zařízení a vystavím servisní protokol včetně účtenky. Zákazník mi za tuto službu zaplatí buď hotově nebo kartou a já mu potřebuji vystavit účtenku v souladu s EET. Abych rovnou vytisknul servisní protokol včetně této účtenky EET. Veškeré tyto servisní listy generuji v tomto souboru a ukládám automaticky na disk. Makra na uložení do pdf atd. Nechci ještě navíc využívat jiné programy. Chtěl bych, když už jsem si dal tu práci s vytvořením projektu v excelu, aby to šlo vše v tomto souboru. Snad jsem se vyjádřil alespoň trošku jasně :-)

Dobrý den,
chtěl bych se zeptat, zda lze makrem vyřešit Elektronickou evidenci tržeb.

Děkuji za odpověď :-)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje