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

Příspěvky uživatele

Jestli jsem to dobře pochopil....

Vzorec od lugra funguje, pokud je na začátku jednociferné číslo: 1.22:34:58 nebo 9.22:34:58. Jestli vám to nefunguje a nefunguje ani moje úprava, tak něco děláte špatně. Byli by vhodné se zaregistrovat a vložit přílohu s tím, co vám nefunguje.
Další podmínkou je, že čas musí mít všechny části dvouciferné, tzn. Nemůže být 1.2:4:48, ale musí být 1.02:04:48

místo userForm1.Show vložit:If Cells(Target.Row, Target.Column) = "Form1" Then
UserForm2.Hide
UserForm1.Show (0)
End If
If Cells(Target.Row, Target.Column) = "Form2" Then
UserForm1.Hide
UserForm2.Show 0
End If

?? Jaký zavináč? O žádném nevím.

Něco takového?

=KDYŽ(A(A4>=0,4;A4<=1);A4+5;A4*2)nebo=KDYŽ(A(A5>=0,4;A5<=1);A5+5;KDYŽ(A(A5>=0;A5<0,4);A5*2;" Číslo X je mimo rozmezí 0 - 1"))

Jinak:https://office.lasakovi.com/excel/funkce-logicke/kdyz-funkce-logicka-excel/

Já šel na to trochu složitě, tak to sem dávat nebudu. Jen bych upravil vzoreček od lugra: =HODNOTA(ZPRAVA(A1;8))*24+IFERROR(HODNOTA(ZLEVA(A1;NAJÍT(".";A1;1)-1));0)*24
Ten tvůj vzorec počítá s tím, že je na začátku (před tečkou) jednociferné číslo. Podle mě zadání zní tak, že tam nemusí být nic nebo třeba i dvouciferné číslo.

takto

Mně stačí dobrý pocit, že to funguje a někomu to ulehčí (zrychlí) práci. Taky si alespoň provětrám mozkové závity a často se i něco nového přiučím.

No, ale pokud bys nějakou kačku chtěl pustit, tak můžeš jakoukoliv částku poslat sem: 1660723399/0800, https://www.prorodiny.cz/centrum-pro-rodinu-a-socialni-peci/podporte-nas/

Kdyby náhodou něco nefungovalo jak má, klidně napiš sem nebo na soukromou zprávu. Poradíme, posloužíme, upravíme
Pokud třeba ty žluté buňky s počty chceš dát jinam, musí se v makru nastaveni() změnit jejich adresa.

1. Opraveno mazání - nevymaže jména před datem aktualizace. To co již proběhlo se nesmaže.
2. Změnil jsem načítání počtu jmen. Není to natvrdo v makru, jako doposud, ale načítá se přímo z listu - viz žluté buňky. Je to pro případ, že by se měnil počet jmen, počet svátku nebo počet sobot.
3. Seznam jmen nemusí být zdvojený.
4. Nějaké kosmetické úpravy v rámci makra.

Bude potřeba to otestovat.

Jestli to chápu dobře:

Sub dopln()

Dim radek As Integer

For radek = 1 To 10

If Range("A" & radek) = "" And (Range("M" & radek) = 1 Or Range("M" & radek) = 2) Then
Range("A" & radek) = "nákup"
ElseIf Range("A" & radek) = "" And Range("M" & radek) = 3 Then
Range("A" & radek) = "prodej"
End If

Next
End Sub

Jména jsou 2x protože to bylo pro mě nejvýhodnější jak zajistit posouvání jména pokud na někoho vyjde např odpolední a rozvoz nebo sobota po odpolední.
Jde to samozřejmě udělati v rámci makra, ale nechtěl jsem si to ze začátku komplikovat.

Tlačítko není problém dodělat, jen teď nemám kdy.
Taky by tam mohlo být pouze tlačítko přidat rok a žádný formulář by se nemusel dělat. Nevím však jaké máš představy a plány, co s tím ještě dělat.

Takto?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje