Příspěvky uživatele

2)Dobrá tedy.
Každý den se tato evidence někam kopíruje. Při té příležitosti bych ten stav minut uložil do toho text souboru.
Kdo, kdy, jakým způsobem?
3)Aha! Začínám chápat?
Je nějaký list (kontrola?), který je kopií listu evidence a tento se tiskne.
V tomto listu jsou komentáře vypsány pod tabulkou.
Temto list mám být aktualizovaný při každé změně v listu evidence, nebo až před tiskem?
Pošli vzorek, ať vím jak má vypadat.
4)TextBox bude volán na tom prvním listu (evidence) při volbě z místní nabídky - upravit komentář.

2)Tabulky evidence budeš každý den resetovat (mazat), předpokládám.
To by se dalo ošetřit makrem. Před resetem stav min. uložit i s datumem do textového souboru např. pro celý rok.
Tyto záznamy se pak dají načítat do nějakého report.xls podle různých zadání.
3)Zde je třeba zjistit a dodržovat znak pro řádkování.
Používá se Chr(10), Chr(13), Chr(10) & Chr(13), nebo obdoba předcházejícího vbCrLf.
Zde použiju příklad pro Chr(10).
MyStr = ActiveCell.Comment.Text 'vloží celý text komentáře
pzcx = InStr(1, MyStr, Chr(10)) + 1 'první znak v druhém řádku
MyStr = Mid(MyStr, pzcx) 'vloží text z koment bez prvního řádku.
' Taky lze v případě řádkování tohoto kódu (nechápu), znaky pro řádek odtranit.
MyStr = Replace(MyStr, Chr(10), vbNullString)
Sheets("kontrola").cells(x,y) = MyStr

4)Zde nevím jakým způsobem v makru dostat operátora do objektu Comment, do režimu Edit, pak aby čekalo na ukončení tohoto
vkládání a pak pokračovalo.
Kdyby se vkládal pouze jednořádkový kód, mohl by se použít InputBox().
V případě víceřádkového zápisu bych asi vytvořil UserForm s TextBoxem.
Tato procedura by následně vypsala tento text do Komentáře i do Sheets("kontrola").
Při tisku se snad komentáře netisknou?
Ale i tak není problém Tisk ošetřit makrem a před tímto tiskem komentáře odstranit.

nebo
if meno_listu Like "*2013" Then ....

1)Poslední modifikace:
Co všechno chceš sledovat. Opravdu všechno?
2)Výtah dat:
Při jaké příležitosti to chceš uložit? Při každé změně sumy? Nebo přidat tento záznam v rámci sledování modifikace?
3)Kopírování komentáře:
Co z něho? Všechno? Kdy? Kam?
4)Menu Komentář:
Komentáře lze vkládat kdekoliv? Nebo jen editovat v tom jednom sloupci?
Do toho komentáře budeš vkládat nějaký identifikátor.
Pokaždé jiný, nebo z nějakého seznamu s možností doplnění chybějícího?
Bude vkládaný pouze tento identifikátor, nebo kromě něho můžou být vkládány další libovolné informace?
V jakém rozsahu?

Taky jsem ti napsal něco pro inspiraci.

Už jsi rozhodnutý, že databanka bude XLS?
Nebo se pak rozmyslíš a bude CSV?
A co záznamník maker. Ten ti nenapoví?

Mezi dvěma libovolnými datumy.
R1C1 = 1.1.2012
R2C1 = 31.12.2012
R4C1 = 1 (kritérium)
R5C1 = =ROUNDUP((R2C1-R1C1+1-MOD(R4C1-DENTÝDNE(R1C1;2)+7;7))/7;)

Zkus
=VYHLEDAT("B1115";CONCATENATE(R1C1:R18C1;R1C2:R18C2);R1C3:R18C3)
nebo maticový
{=POZVYHLEDAT("B1115";CONCATENATE(R1C1:R18C1;R1C2:R18C2);0)}
pardon
{=INDEX(R1C3:R18C3;POZVYHLEDAT("B1115";CONCATENATE(R1C1:R18C1;R1C2:R18C2);0))}

Vypadá to na něco mezi verzemi excelu.
Celé jsem to kopnul do nového sešitu ve svém 2003.
Zkus to kopnout do nového sešitu ve tvé verzi excelu.
Ten sešit už toho má dost za sebou a obsahuje spoustu skrytých blbostí. Zkontroluj ty vzorce v Data Ověření, jestli se tam při překopírování něco nezměnilo. Ale jinak vzorce i makra pracují pouze s prvním listem. Ta hláška nedává smysl. Ale je možné, že je tam nějaká funkce, kterou tvá verze nezná. Musíš pátrat.

Problém s komentářema upraven.

Tak si to užij.

Teď to ještě píšu pro přidání a odebrání v každé tab zvlášť. Jestli chceš.

Kde je chyba ?!
Od 11:45 do 00:45 je 780 minut.
Od 23:45 do 00:45 je 60 minut.

Do procedury Pridat_radek()
si dodej

'za kod
Set xCel = Range(Cells(rd, 1), Cells(rd, 15))
xCel.Insert Shift:=xlDown
'znovu nastaveni
Set xCel = Range(Cells(rd, 1), Cells(rd, 15))

Jde nastavit "Oblast tisku".
Zkus přes záznamník.

Makrem.
ActiveSheet.Shapes("Obrázek 1").Visible = msoFalse
ActiveSheet.Shapes("Obrázek 1").Visible = msoTrue

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje