Příspěvky uživatele

Dobrý den, pokouším se s využitím fce. Environ vyplňit v buňkách sloupce A uživatelské jméno, což se daří, avšak pokud potřebuji mazat, nefunguje tlačítko Delete, což je pravděpodobně způsobeno řádky např.:

cell = ("Jirásek")

Bohužel mě nenapadá, jak to napsat jinak a proto bych se rád obrátil na vás, kteří jste v excelu zběhlejší.
Předem Děkuji

Pro jistotu ještě nastíním, jak to u nás nyní funguje
( jen pro představu ). Momentálně to běží tak, že operátor si zkopíruje soubor s tabulkou a ručně přepíše název souboru, např. na "17_10_2012_Evidence kontroly" Tento tvar si přeje vedení...
Poté ručně vypíše během směny tabulku, po něm příde kolega a doplňuje dál... v 6:00 ráno oficiálně končí den a ten co příde na ranní směnu opět založí nový soubor, tedy s názvem "18_10_2012_Evidence kontroly".
To vše se děje současně na malém i velkém LK, momentálně se tedy vyplňují dva soubory... vždy druhý den ráno přídu já, nebo kolegyně a ty dva soubory si stáhneme na flash disk, zkopírujeme data jen do jednoho souboru, tak aby tam byly obě tabulky pod sebou a zkontrolujeme zapsaná data, jestli vše sedí, případně opravíme. Poté musíme zapsat za celý den minuty do dalšího souboru, kde se rozdělují jen na malé a velké LK (ty to znáš jako list výkony). Soubor s daty ukládám na síťový disk a soubor s výkony do jiného umístění, přičemž tisknu pouze soubor s daty(s tabulkou) a oba soubory posílám mailem.

No, vzorce nevadí ničemu, krom toho, že někteří operátoři je rádi přepisují, mažou atp...
A ano, mailem se to posílá, ale v tom by asi nebyl až takový problém...( můj názor )

Tisknou se sice každá zvlášť, ale musí být na jednom listě :) Je to z důvodu právě kontroly a návaznosti...
Co se týká listu pro přípravu na tisk, to nechám na tobě, jak se to bude lépe dělat a bude to jednodužší...Jinak, kontrolují a opravují se hlavně časy, případně minuty, nebo právě ty komentáře, list by neměl jen obsahovat vzorce, pokud ale budou vzorce makrem, mohou zůstat, ničemu nevadí :)

Omlouvám se, ale všiml jsem si toho, až když jsem začal testovat... a ano, přesně tak, na jednom PC se zapisuje jen malé LK a na druhém jen velké LK, po zapsání by bylo dobré, aby se data ukládala do jedné tabulky pro pozdější zpracování, viz "Tisk".

V podstatě ano, i takto je to možné a možná to i tak bude lepší a bezpečnější, když se budou ukládat ručně data do jednoho sešitu na malém LK a do druhého na velkém LK a poté se to bude tahat třetím sešitem a tam se to bude i opravovat a vyhodnocovat, případně tisknout...

Míra

Ahh, perfektní, díky moc, už se to zdá být v pořádku :)

Teď mi už jen zbývá pořešit 3 poslední problémy na které jsem přišel, pak už by vše mělo být funkční a již tě nebudu svými občas jistě i hloupými dotazy obtěžovat :)

1, Šlo by do menu na listě "Evidence" přidat tlačítko, které by fungovalo něco jako reset ? Tím myslím, aby se po kliknutí na něj list vrátil do původního stavu, aby jej dotyčný operátor nemusel Promazávat ručně ? Nejlépe, aby se vrátil i na oné 3 řádky na tabulku pokud možno...

2, Možná trochu oříšek... Problém vzniká, když se vyplní formulář například za 14.10.12, rozdělá se formulář na 15.10.12 a bude třeba doupravit a vytisknout starší formulář... lze nějak pořešit, aby se načetla data ze starších souborů ? Snad přez nějaký dialog, pomocí kterého vyberu soubor jež se má otevřít a pak se data z tabulky jen nakopírují do listu evidence a pak už se bude pokračovat stejně jako kdyby byl nový, jen se starším datem... ??
Co mě snad ještě napadlo, že by mohlo stačit, aby se makro pro tisk kopírovalo společně s listem "Tisk" do nového souboru... to sice není přesně to, co by se mi líbilo, ale asi to bude jednodužší..

3, A poslední věc, jak ošetřit to, aby se data z velkého LK ukládala do stejného souboru, tedy reportu jako data z malého LK ??? jde o to, že když budu mít soubor Evidence otevřený na obou počítačích, soubory se budou pravděpodobně přepisovat, ale já bych potřeboval, aby jedna evidence ukládala pouze do tabulky malé LK a druhá pouze do tabulky velké LK, aby pak nedocházelo k tomu, že budu muset dávat ručně oba soubory dohromady a kopírovat data z tabulky do tabulky, aby se mi změny projevily ve výkonech u obou LK... Snad jsem to popsal srozumitelně...

Pokud by tě napadlo jiné řešení na kterýkoliv z bodů, byl bych vděčný.. budu vděčný za jakékoliv řešení..

Poté už opravdu nebudu obtěžovat :)
Díky Míra

Ještě ta příloha... jsem nějak opoměl..

Jinak do teď jsem ještě zkoumal E base správce, konkrétně list výkony a zdá se mi, že to nefunguje korektně, když mrkneš do přílohy, ve složce jsou formuláře, konkrétně 12 a 13.10.2012... no a problém je v tom, že data, tedy výčet minut jednotlivých strojů se zapsal do zcela jiného data...

Jediné co mě napadlo, je to, že když jsem přidal makro na vytvoření složky pro měsíc, rozhasil jsem tím E-base správce, protože ten bere data ze složky výkony a s dalšími podlsožkami už nepočítá, ale možná, že se pletu...

Tušíš co s tím ?

Jinak co se těch ukládaných reportů týká, nebylo by lepší, kdyby se ukládaly bez toho času v názvu souboru ? Aby se soubory se stejným názvem přepisovaly ? Na každý den může být stejně jen jeden report a navíc se tím bude i šetřit místo na disku...

Tak jsem to nějak spatlal, ale občas si to hraje s tím logem a přidává ještě jedno, nevím, zda jsem to udělal nějak špatně, ale pro jistotu přidávám kód...

Private Sub Akce_Tisk()
' muzes nastavit oblasti tisku a jine parametry pro tisk atd ...
Range("A21:H21").Select
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
For eTab = 1 To 2
rdW = (eTab - 1) * Cells(1, 14) + 1
rdLast = Cells(eTab, 14)
ActiveSheet.Range(Cells(rdW, 1), Cells(rdLast, 13)) _
.PrintOut Copies:=1, _
ActivePrinter:="\\T2315.aero.cz\KONICA MINOLTA magicolor 2500W:" 'dosadit svou tiskárnu
Next eTab
ActiveSheet.HPageBreaks(1).Delete
MsgBox "Dokument odeslán do tiskárny"
End Sub

Mrkni se mi prosím, zda je vše, tak jak má být.

Aha, už jsem to pochopil :)

Co se toho tisku týká, tak mi záznamník příliš nepomohl, respektive pomohl nastavit tisk, ale ta oblast tisku se mi nedaří nastavit... Dokázal bych mu nastavit tisk, kdybych to potřeboval vytisknout celé, ale když potřebuju tisknout každou tabulku včetně komentářů zvlášť, ne a ne to rozchodit. Zkoušel jsem i prohledávat forum, ale nic kloudnýho jsem nenašel...

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.

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 :)

Dejavu

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.

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

U druhé tabulky by vše bylo stejně jako u té první samozřejmě, tedy řádky 32-36 do stejných sloupců..

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje