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

Příspěvky uživatele

Asi jsem dnes nějaký natvrdlý, ale nechápu to.

1. "...aby se dotahovalo..." Co se má dotájhnout, Kam se to má vložit?

2. "Takže potřebuji najít první práznou bunku ve sloupci BJ, kam se vpisují ceny..." - Kdo tam ty ceny vpisuje? Vždyť ve sloupci BJ jsou jen "x"

Pokud chcete vložit excel s makrem, musíte jej nejdřív zazipovat. Jinak přílohu nevložíte.

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.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje