Příspěvky uživatele

Ujasněme si nejdříve zadání .-).
Takže, jak to chápu já...

Postup:
1. Uživatel na Listu 2 klikne dvakrát na řádek kam chce zapisovat a následně je přesměrován na List 1.
2. Na Listu 1 uživatel dvakrát klikne na řádek, který chce překopírovat na List 2, tím se spustí formulář s těmito předvyplněnými daty.
3. Uživatel klikne na tlačítko a tím data uloží na List 2 (na řádek, který je aktivní na Listu 2) za poslední záznam na daném řádku.

Je to tak správně?

Pokud ano, tak máš u tlačítka špatné určení řádku, kam se má zapisovat. Aktuálně to bere pro zápis do Listu 2 aktivní řádek z Listu 1.
Dále se divíš, že ti to stále zapisuje do sloupců 20, 21 atd., ale máš to tam tak v tom kódu napsaný .-), takže asi tak.
Tvůj problém je asi v nalezení posledního záznamu na řádku. Lze využít třeba toto:Sloupec = Cells(Radek, Columns.Count).End(xlToLeft).ColumnDo kódu jsem nijak nesahal, jen jsem to upravil tak, aby to fungovalo dle mého postupu...
P.

Viz příloha:

Sumu tam máš definovanou správně.
U té dovolené lze využít např. funkci KDYŽ. Nevím přesně kam do "D" píšeš, pokud do začátku směny, tak třeba nějak takto. (ten čas asi myslíš 7:45)
P.

Př.:
=KDYŽ(C8="D";ČASHODN("7:45");C11-C8-(C10-C9))

Pokud tomu rozumím, tak to je pouze jednoduchá matematika, ne? Vezmeš "konec směny" mínus "začátek směny" a od toho odečteš délku přestávky, tedy "konec přestávky" mínus "začátek přestávky".
P.

Př.:
=C11-C8-(C10-C9)

Chyba bude určitě v kódu. To "mismath" znamená, že dojde k matematické chybě, například "přetečení" u proměnné, nesprávně definovaná proměnná, nematematický výraz apod.
A jako vždy :-), přidej soubor...
P.

Zkus přidat ještě přílohu.
V uvedeném kódu je problém se syntaxí (nevhodně rozdělené příkazy), využíváš špatně podtržítka.
P.

Pokud se hodnota ukládá do "A1", tak bych třeba při načtení Excelu uložil hodnotu této buňky do nějaké globální proměnné, a pak při změně listu bych přes IF testoval, zda se hodnota buňky liší od oné globální proměnné a případně bych spustil zmíněné makro.
P.

Viz příloha:

Chceš tam jenom tu jednu hodnotu, nebo vypsat všechny?
Přes VBA by to šlo takto.
P.

Viz příloha:

@AL
Asi máš pravdu .-).
Mojí zkušeností je, že spousta lidí vůbec netuší, že to jde jinak a lépe...

Myslím, že to chce ještě více specifikovat. A bude to chtít také nějaké vzorek dat s příkladem.
P.

Jedná se o programování ve VBA. Doporučuji samostudium, protože tohle se v práci vážně hodí, neuvěřitelně to může zjednodušit spoustu problémů .-).
Pro Office 2010: Vývojář/Visual Basic.
P.

Přikládám klasické řešení s rozevíracím seznamem v buňce s událostí Worksheet_Change.
P.

Viz příloha:

Pokud to není nějaký tajný dokument, tak ho sem nahraj a rádi ti pomůžeme.
P.

Podle mě je chyba v "Selection.Cut", což znamená "vyjmout", pak lze již využít pouze klasické vložení (tedy vše). Já bych to nahradil "Selection.Copy" a využil bych pak to co máš v komentáři (Selection.PasteSpecial...).
P.

Použij záznamník maker...

Postup bývá takový, že zvolíš "Povolit uživatelům úpravy oblastí", v tvém případě asi vše kromě té buňky a následně dáš "Zamknout list".
P.

Možná bych zvolil spíše systém jedniček a nul, ale to záleží na tobě a na tom k čemu to bude sloužit.

Možný postup:
1. V mém řešení je nutné, aby všechny buňky měly nějakou hodnotu (např. 1 nebo 0).
2. Všechny hodnoty si sloučíš v pomocném sloupci do jedné (využití ampersandu &).
3. Pak lze využít třeba funkci COUNTIF.

Zkusil jsem ti to demonstrovat na příloze. Mělo by to fungovat i pro "x" a třeba "o". Pokud bys tam nechtěl mít ten pomocný sloupec, tak ho označ a dej "Skrýt". Pokud bys chtěl tu druhou hodnotu nějak "skrýt" nebo "zamaskovat", tak lze využít třeba podmíněné formátování s bílou barvou.
P.

Viz příloha:

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje