MS Excel

Chtěl jsem vědět kde a jak v listě oprava se budou vypisovat ty kódy operací(řádkování). Asi pod každou zvlášť? Tisknout se bude každá zvlášť, nebo?
A co kdyby byl každý stroj(tabulka) zvlášť na samostatném listu? Nebo tak jak to je?citovat

No něco jsem napsal. Nevím přesně jak to má fachčit, co to má dělat, snad ti to pomůže. Není to odladěné, tak jestli tam jsou nějaké chyby, nebo nebudeš něco vědět tak napiš.citovat

Ještě v proceduře Pro_Tisk() si změň zápis.

'Místo

End If
On Error GoTo 0
With Sheets("TISK")
.Activate
.Cells.Clear
rdLast = Sheets("Evidence").Cells.SpecialCells(xlCellTypeLastCell).Row

'Tam dej

End If
With Sheets("TISK")
.Activate
.Cells.Clear
.Shapes("Logo 1").Delete
.Shapes("Logo 2").Delete
On Error GoTo 0
rdLast = Sheets("Evidence").Cells.SpecialCells(xlCellTypeLastCell).Rowcitovat

Tak jsem na to trošek koukal a měl bych pár proseb...

1, je možné makro upravit tak, aby se ukládané formuláře ukládaly tak, jak je tomu nyní (pro nový rok se vytvoří nová složka), ale ještě tak, aby se vytvořila nová složka pro nový měsíc ? tzn.. nyní je 10. října, pokud uložím evidenci 1.listopadu, uloží se protokol do složky 2012, pod kterou se vytvoří složka Listopad.

2, Nepochopil jsem příliš nabídku, konkrétně možnost "Přidej si nabídku", lze snad vytvořit makro, které mi přidá novou možnost, kterou si pak jen ručně doladím ve VBA ? Nebo jak to bylo myšleno ?

3, Stejně jako u předchozího bodu, akce tisk, je předpřipravena pro vložení makra na tisk listu "TISK" ?
Raději se zeptám ještě předem... Lze vytvořit makro tak, aby tisklo defaultní tiskárnou zvlášť tabulku pro malé a velké LK spolu s komentáři pod tabulkou ? (nikdy totiž předem nevím, kolik bude mít tabulka řádků...

4, Soubory nebudu mít pohromadě, ale budou na různých místech, nechci, aby mi je někdo omylem smazal... jak je dobrým zvykem, navíc nemusí každý vidět, co všechno se zaznamenává, proto např. tento kód:

NameDB = ThisWorkbook.Path & "\EBASE\Seznamy\E_poznamky.txt"

mohu upravit absolutní cestou ?
např.:

NameDB = D:\Evidence kontroly\EBASE\Seznamy\E_poznamky.txt ?

Už sotva koukám a zatím jsem na nic dalšího, co mi není úplně jasné nenarazil, ale prokousávám se tím :)

Dejavucitovat

1, Tak pokud jsem správně pochopil a stačí mi měsíce bez diakritiky, kód vypadá takto:

'pro novy mesic zalozi novou slozku
Err.Clear
MyHelp = MyHelp & "\" & Choose(Month(Response))
NameDB = GetAttr(MyHelp) And vbDirectory = vbDirectory
If Not Err = 0 Then MkDir MyHelp

Nestihl jsem otestovat, na to mrknu zítra.

3, Oblast tisku jsem zatím nikdy nastavovat nepotřeboval, ale zítra v noci se na to mrknu a uvidím co svedu, nebo nesvedu... Ten záznamník tedy vyzkouším.citovat