• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Abych řek pravdu, tak se v tom souboru moc nevyznám, ale něco sem zkusil a snad by to bylo i funkční (alespoň u mě to tak nějak funguje).
Upraveno makro a vzorce.

Vyzkoušej

Tohle sem vygooglil. Makro se bude spouštět při jakékoliv změně buňky ve sloupci Q

Třeba takto:

Opraveno

Třeba takto:

Tak sem na to přišel. Je potřeba vlézt do nastavení excelu - centrum zabezpečení a zatrhnout volbu .... viz. screen

Dovolím si vytáhnout toto vlákno a poptat se zkušenějších. Chtěl sem využít tento Pokiho kód, ale není funkční. Vybíhá hláška viz. přiložený screen.
Jen chci upozornit, že před cca rokem co se to tu řešilo všechno fungovalo bez problémů. Možná za to můžou aktualizace office (používám Excel 2007).
Nemáte někdo ponětí jak znovu zprovoznit tento kód.
Děkuji

Třeba takto:

Koukni na soubor.

Pro výpočet věku lze také využit fci DATEDIF
=DATEDIF(D4;DNES();"Y")

viz: http://www.office4you.cz/rady-a-navody-ms-excel/268-excel-tajna-funkce-datedif.html

např:
cislo_mesice = Month(Cells(1, 1).Value)

Netuším jestli sem správně pochopil zadání tak si ověř platnost hodnot
=KDYŽ(KDYŽ(A1=0;0;KDYŽ(A1>B1;(24+B1)-A1;B1-A1))>6;KDYŽ(A1=0;0;KDYŽ(A1>B1;(24+B1)-A1;B1-A1))-0,5;KDYŽ(A1=0;0;KDYŽ(A1>B1;(24+B1)-A1;B1-A1)))

Edit:
pokud je to špatně tak tady je to s tvým neupraveným vzorcem
=KDYŽ(KDYŽ(A1=0;0;KDYŽ(A1>B1;(24+B1)-A1-0,5;B1-A1-0,5))>6;KDYŽ(A1=0;0;KDYŽ(A1>B1;(24+B1)-A1-0,5;B1-A1-0,5))-0,5;KDYŽ(A1=0;0;KDYŽ(A1>B1;(24+B1)-A1-0,5;B1-A1-0,5)))

Neboj dá se to. Jen tam musíš doplnit do kódu právě to DoEvents, aby došlo k překreslení userform. Koukni na soubor

No v tom Tvém makru se absolutně neorientuju, ale zkusil bych změnit toto v kódu kde vyvoláváš zobrazení userform
UserForm1.Show (False)
DoEvents

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje