MS Excel

Ahojte, měl bych na vás prosbu... opět si nevím rady.

Mám list evidence kontroly viz. příloha, potřebuji, aby se mi do jiného sešitu ukládaly pod sebe hodnoty z buňky celkem min. a to tak, že v jednom sloupci bude LK velké a ve druhém sloupci LK malé a aby byly tříděné podle datumu...

asi takto :

Malé LK Velké LK
20.9.2012 180 20.9.2012 210
21.9.2012 200 21.9.2012 190

Tušíte někdo jak toho dosáhnout pomocí maker (jsem začátečník a v tomto ohledu zcela mimo mísu :))?

Btw. sešit je jen provizorní, nejsou na něm žádná makra, je to jen kopie listu.

Předem děkuji za jakoukoliv snahu o pomoc.
Dejavu

Zaslat odpověď >

Strana: « předchozí 1 2 3 4 další »

kp57(1.10.2012 20:13)#009676

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

Dejavu(1.10.2012 20:51)#009677

Ano, přesně tak, pod každou zvlášť, Tisknout se bude taky každá zvlášť. Bohužel list musí zůstat tak jak je, tedy obě tabulky na jednom listě :(citovat

kp57(7.10.2012 21:29)#009772

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

Příloha: rar

9772_evidence-2.rar (257kB, staženo 25x)

citovat

Dejavu(9.10.2012 22:44)#009794

Jednoduše perfektní, to je přesně to, co jsem od daného ( daných ) sešitů potřeboval, je to naprosto perfektní, jen si tam udělám pár jednoduchých úprav, protože sešit umí i věci, které nepotřebuji, aby viděli i ostatní, ale takto je to naprosto perfektní... velké díky.

Jinak doporučuju všem, kteří také potřebují zpracovat evidenci kontroly... je to skvělé řešení.

Jsi kouzelník kp57.
Velké díky
Míracitovat

kp57(9.10.2012 23:42)#009796

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

Dejavu(10.10.2012 2:39)#009797

Ok, dám to tam, díky moc.
Zkusím to tento týden nějak dotáhnout, kdyby mi něco nešlo, dám kdyžtak vědět a pak sem hodím výsledek.

Ještě jednou díky.citovat

Dejavu(10.10.2012 3:11)#009798

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

kp57(10.10.2012 20:42)#009807

1)Samozřejmě:
'Pod kód
'pro novy rok zalozi novou slozku
MyHelp = ThisWorkbook.Path & "\E-BASE\Formulare\" & Year(Response)
On Error Resume Next
NameDB = GetAttr(MyHelp) And vbDirectory = vbDirectory
If Not Err = 0 Then MkDir MyHelp
'přidáš
'pro novy mesic zalozi novou slozku
Err.Clear
MyHelp = MyHelp & "\" & Format(Response, "mmmm")
NameDB = GetAttr(MyHelp) And vbDirectory = vbDirectory
If Not Err = 0 Then MkDir MyHelp
On Error GoTo 0
Zde ale bych byl opatrný, diakritika v názvech souborů či složek může působit problémy.
'Raděj bych se držel číselného označení měsíce,
MyHelp = MyHelp & "\" & Month(Response)

'nebo název měsíce bez diakritiky
MyHelp = MyHelp & "\" & Choose(Month(Response),"Leden",...,"Cervenec",...)

2)Tak jak je popsáno. Pouze ukázka. Může se vložit nějaká další procedura, nebo jen vymazat.
3)Přesně tak. Umíš nastavovat OBLAST TISKU? Pohrej si se záznamníkem maker. Většinu z toho ti ukáže.
Taky bude dobré spolu s tabulkami přenést i hodnoty ze sloupce 21. Pak budeš znát velikost tabulek.
4)Samozřejmě.citovat

Dejavu(11.10.2012 5:28)#009811

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

kp57(11.10.2012 19:05)#009840

Choose - help
http://office.microsoft.com/cs-cz/access-help/funkce-choose-HA001228797.aspx

Month(Response) je zde jako index. Položky seznamu musíš naplnit.
Choose(Month(Response),"Leden",...,"Cervenec",...)citovat

Strana: « předchozí 1 2 3 4 další »

Téma: Výtah dat

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje