Stránka 1 z 2
Tlačítko tisk do Excelu a další...
Napsal: 10 bře 2014 10:50
od akem
Ahoj,
v excelu znám zakladní tabulkové funkce, ale v tomto nejsem vůbec kovanej.
Potřebuji pomoc. Budu rád za každou pomoc.
1. potřebuji aby se v kolence číslo reklamace generoval po stisknutí tlačítka "START" unikátní číselný kód podle kterého bude reklamace snadno dohledatelná. bude se skládat z datumu a času vytvoření souboru 100314/1045 (10.03.2014 10:45)
2. Vytvořit tlačítko tisk které udělá tyto věci: - Vytiskne třil listy
- Uloží do složky pod vygenerovaným číslem
Akem
Re: Tlačítko tisk do Excelu a další...
Napsal: 12 bře 2014 07:11
od akem
Tak, 11x stažené, ale rada žádná... Nějak tomu nerozimím. Možná je to složitější, než sem si myslel.
Odesláno z mého HTC One pomocí Tapatalk
Re: Tlačítko tisk do Excelu a další...
Napsal: 12 bře 2014 12:26
od Azuzula
Ahoj,
možné to je. Jen je potřeba udělat změnu. Soubor nelze uložit v lomítkem v názvu, takže tam bude pomlčka (nebo cokoliv jiného dle možností), ale v buňce s číslem zakázky bude vypisovat lomítko.
Funkčnost v excelu starším než 2007 nezaručím (nemám kde otestovat)
Tisk nemůžu úplně ověřit (nemám tiskárnu).
Každopádně se ještě zeptám, je potřeba tisknout jen první list 3x, nebo všechny 3 listy v sešitu 1x (nebo 3x)?
Re: Tlačítko tisk do Excelu a další...
Napsal: 12 bře 2014 14:03
od akem
Ahoj, diky za pomoc.
Je potreba tisknout 1xvsechny listy.
Odesláno z mého HTC One pomocí Tapatalk
Re: Tlačítko tisk do Excelu a další...
Napsal: 12 bře 2014 16:14
od Azuzula
V příloze máte sešit s makrem. Snad to bude OK i ve starší verzi excelu.
Re: Tlačítko tisk do Excelu a další...
Napsal: 12 bře 2014 16:49
od akem
Super! Děkuji. POkud by si měl zájem, tak Ti za pomoc mohu nabídnout tyto dvě hry...
Arma II
ARMA II: Operation Arrowhead
legální gift kod na STEAM.
Tak dej vědět.
Re: Tlačítko tisk do Excelu a další...
Napsal: 12 bře 2014 17:02
od Azuzula
Děkuji za nabídku, ale sama tohle nehraju. Kdysi jsem hrála jen UT2004
Jedině, že by měl zájem někdo jiný.
Pokud je to vše, tak označ téma za vyřešené.
Re: Tlačítko tisk do Excelu a další...
Napsal: 12 bře 2014 17:07
od akem
Teď sem si vzpomněl na jednu věc... je možné ještě udělat to aby se to po uložení nedalo už upravovat? Zamknout určité buňky pod heslem?
Re: Tlačítko tisk do Excelu a další...
Napsal: 12 bře 2014 17:15
od beather
Re: Tlačítko tisk do Excelu a další...
Napsal: 12 bře 2014 17:17
od akem
Já umím zamknout buňky (základy Excelu zvládám, ale né makra), ale chtěl bych to po tom co se formulář vyplní a vytiskne aby se automaticky určitá pole zamkla a tím se znemožnilo pozdější upravování...
Re: Tlačítko tisk do Excelu a další...
Napsal: 12 bře 2014 17:38
od Azuzula
Do makra před uložení sešitu stačí přidat:
Kód: Vybrat vše
'zamkne všechny listy
Dim wsh As Worksheet
For Each wsh In Worksheets
wsh.Protect Password:="x"
NextPro přehlednost můžete deklaraci proměnné "Dim wsh As Worksheet" přesunout úplně na začátek makra.
Místo "x" napište svoje heslo v uvozovkách.
Kdokoliv to heslo může zjistit když se podívá do editoru maker. Jako znemožnění náhodné úpravy stačí i bez zaheslování maker v editoru.
Re: Tlačítko tisk do Excelu a další...
Napsal: 12 bře 2014 17:44
od akem
Díky moc!
--- Doplnění předchozího příspěvku (12 Bře 2014 20:58) ---
Tak jsem v práci a testuji. máme Office 2003
první problém byl v exportu kde jsem změnil Excel8 na Excel7
ukládání funguje jen to ukládá do místa kde je tabulka uložená a nejde mi přiřadit síťové úložiště
Kód: Vybrat vše
'kam uložit *******************
'nastaví cestu k ukládání
sPath = ThisWorkbook.Path ' & "G:\buero\Pokus reklamace\"
'******************************pak je problém s tiskem
hlásí tuto chybu
Compile Error
Named argument not found
označené je toto
IgnorePrintAreas:=Kód: Vybrat vše
'tisk
Worksheets(Array(1, 2, 3)).Select 'označí listy k tisku
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Worksheets(1).Selecttak tisk už jsem vyřešil... možná se dopídim i k tomu ukládání :)
Kód: Vybrat vše
'tisk
Worksheets(Array(1, 2, 3)).Select 'označí listy k tisku
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Worksheets(1).Selectdíky za každou radu
--- Doplnění předchozího příspěvku (12 Bře 2014 22:02) ---
Upravil sem celé makro a už to ukládá do síťové složky, ale zase to nemění název a nepřiřazuje to to datum...
Kód: Vybrat vše
Sub start()
Dim sNum As String, sName As String, sPath As String
Dim sDen As String, sMesic As String, sRok As String
Dim sHod As String, sMin As String, sSec As String
'kam uložit *******************
'nastaví cestu k ukládání
ChDir "G:\buero\Tabulky\test"
ActiveWorkbook.SaveAs Filename:= _
"G:\buero\Tabulky\test\120314-2125.xls", FileFormat:=xlExcel7 _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'******************************
'pořadové číslo (přidává nulu před číslo, když je menší než 10)
If Day(Now) < 10 Then 'den
sDen = "0" & Day(Now)
Else: sDen = Day(Now)
End If
If Month(Now) < 10 Then 'měsíc
sMesic = "0" & Month(Now)
Else: sMesic = Month(Now)
End If
sRok = Mid(Year(Now), 3, 2) 'rok
If Hour(Now) < 10 Then 'hodiny
sHod = "0" & Hour(Now)
Else: sHod = Hour(Now)
End If
If Minute(Now) < 10 Then 'minuty
sMin = "0" & Minute(Now)
Else: sMin = Minute(Now)
End If
'If Second(Now) < 10 Then 'sekundy
' sSec = "0" & Second(Now)
'Else: sSec = Second(Now)
'End If
sNum = sDen & sMesic & sRok & "/" & sHod & sMin '& sSec 'číslo do buňky
sName = sDen & sMesic & sRok & "-" & sHod & sMin '& sSec 'číslo na pojmenování souboru
'zápis čísla do buňky
Range("E5") = sNum
'uložení souboru
ThisWorkbook.SaveAs Filename:=sPath & "\" & sName & ".xls", FileFormat:=xlExcel7
End Sub