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
Tlačítko tisk do Excelu a další... Vyřešeno
Tlačítko tisk do Excelu a další...
Říkám co si myslím a myslím si co chci...
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
Re: Tlačítko tisk do Excelu a další...
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
Odesláno z mého HTC One pomocí Tapatalk
Říkám co si myslím a myslím si co chci...
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Tlačítko tisk do Excelu a další...
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)?
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)?
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Tlačítko tisk do Excelu a další...
Ahoj, diky za pomoc.
Je potreba tisknout 1xvsechny listy.
Odesláno z mého HTC One pomocí Tapatalk
Je potreba tisknout 1xvsechny listy.
Odesláno z mého HTC One pomocí Tapatalk
Říkám co si myslím a myslím si co chci...
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Tlačítko tisk do Excelu a další...
V příloze máte sešit s makrem. Snad to bude OK i ve starší verzi excelu.
- Přílohy
-
- Reklamační protokol-Pokusy1.xls
- (61 KiB) Staženo 87 x
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Tlačítko tisk do Excelu a další...
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.
Arma II
ARMA II: Operation Arrowhead
legální gift kod na STEAM.
Tak dej vědět.
Říkám co si myslím a myslím si co chci...
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Tlačítko tisk do Excelu a další...
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é.
Jedině, že by měl zájem někdo jiný.
Pokud je to vše, tak označ téma za vyřešené.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Tlačítko tisk do Excelu a další...
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?
Říkám co si myslím a myslím si co chci...
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
- beather
- Herní spec. / Tvůrce článků
-
Master Level 7
- Příspěvky: 4480
- Registrován: únor 13
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Tlačítko tisk do Excelu a další...
Návod na HijackThis ♦ Návod na BSOD ♦ Základní diagnostika počítače ♦ Příspěvek fóru
„Inteligentní lidé se snaží problémy řešit, geniální se je snaží nedělat!“ - Albert Einstein
[b]Rozcestník mých článků
„Inteligentní lidé se snaží problémy řešit, geniální se je snaží nedělat!“ - Albert Einstein
[b]Rozcestník mých článků
Re: Tlačítko tisk do Excelu a další...
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í...
Říkám co si myslím a myslím si co chci...
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Tlačítko tisk do Excelu a další...
Do makra před uložení sešitu stačí přidat:
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.
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.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Tlačítko tisk do Excelu a další...
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ě
pak je problém s tiskem
hlásí tuto chybu
Compile Error
Named argument not found
označené je toto
IgnorePrintAreas:=
tak tisk už jsem vyřešil... možná se dopídim i k tomu ukládání :)
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...
--- 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
Říkám co si myslím a myslím si co chci...
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 3
- 1391
-
od Dolpi
Zobrazit poslední příspěvek
25 led 2024 18:23
-
- 5
- 1190
-
od phoboss
Zobrazit poslední příspěvek
04 kvě 2024 15:16
-
- 4
- 1505
-
od Martab
Zobrazit poslední příspěvek
02 led 2024 13:11
-
- 12
- 2877
-
od amirinda
Zobrazit poslední příspěvek
14 říj 2023 16:39
-
-
ikona refresh a tlačítko aktualizovat zmizelo
od Dizzy66 » 27 lis 2023 23:59 » v Windows 11, 10, 8... - 0
- 1118
-
od Dizzy66
Zobrazit poslední příspěvek
27 lis 2023 23:59
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 12 hostů