Tlačítko tisk do Excelu a další... Vyřešeno

[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

Reklamační protokol-Pokusy.xls

(37 KiB) Staženo 36 x

[Reklama]

[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

[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)?

[akem]

Ahoj, diky za pomoc.
Je potreba tisknout 1xvsechny listy.

Odesláno z mého HTC One pomocí Tapatalk

[Azuzula]

V příloze máte sešit s makrem. Snad to bude OK i ve starší verzi excelu.

[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.

[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é.

[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?

[beather]

http://support.microsoft.com/kb/214081/cs

návod na zamknutí

[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í...

[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"
Next

Pro 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.

[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).Select

tak 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).Select

dí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