Příspěvky uživatele

když tak nad tím přemýšlím, tak jsem asi ten OnTime pouštěl ručně

no ještě si s tím pohraju

ještě jednou děkuji za rady a vyčerpávající celodenní pomoc

časem se do toho snad dostanu

Díky
S.

nejsem si jist, zda jsem ten řádek doplnil správně

takže jestli jsem tě pochopil správně, tak mi stačí jen ty dva moduly?? zbytek co jsem tam měl je nepotřebný??

pro jistotu přikládám file.

poněvadž se mi zdá, že mi to takhle nefunguje

za každou zakázku ne, to je asi zbytečně komplikované.
stačí jen jeden email denně, vždy pokud sloupec "D" bude kdekoliv mít hodnu > 24 ,pokud bude < 24 nebo "Hotovo" tak nic
(kterou zakázku a kolik jich je, to si už dohledají ;) )

ve sloupci "E" jsem si jen ověřoval, zda mi ten kód funguje. To tam nebude

Díky
S.

Ahoj Milane,
no zřejmě ano :) ale svedu to na tu pokročilou hodinu

přikládám správný file :) kde je i zbytek.

Zatím díky za kód na zálohování ;)

S VBA začínám, takže zatím jen vykrádám již hotové kódy od ostatních zde a z netu a upravuju (co zvládnu) pro vlastní potřebu :)

Reším nasledující:
na Listu1 mám seznam, kam zapisuju zakázky od kdy do kdy byla v opravě + její stáří (tabulku jsem zjednodušil pro vzor).

Sešit bych měl otevřen a denně bych z něj potřeboval odesílat, třeba v 8:00hod, informativní email, bez přílohy, pouze předmět a text v těle emailu (např. některá ze zakázek má stáří 25dnů nebo více, ukončit a odeslat).
- posílání emailu jsem tu na fóru našel - to funguje parádně (je v modulu2)
- povedlo se mi zmastit kód pro spuštění makra na odeslání emailu v konkrétní hodinu - to mi funguje taky parádně (modul1)

jsem ale v pastí s tím, aby se to odeslalo pouze pokud je splněna podmínka na Listu1, když hodnota v "D" je > 24
- zde jsem opět vykradl již hotový kód, poupravil jej, ale mám problém, že mi to nefunguje na sloupec "D" kde je výsledek vzorcem (na číslo do sloupce "E" mi to funguje) - kód je vložen do Listu1

1. Potřeboval bych doladit kód v Listu1, aby fungoval na výpočet vzorcem v "D"čku.
2. Sešit plánuji mít jako sdílený - bude tam v něčem problém??
3. Potřeboval bych to i nějak oblbuvzdornit. třeba pokud by někdo zapsal datum v "B" u několika řádků najednou atd.
4. Potřeboval bych aby se to i nějak pravidelně ukládalo

Pokud to lze nějak zjednodusšit nebo udělat jinak, sem s tím ;)

Za rady, tipy, triky předem moc díky.
Sabaot (Excel 2010)

BOMBA

- takhle mi to bohatě stačí, přestávky si už klidně odečtu v dalším sloupečku :)

jste oba borci a smekám, jak před borcem co vyrobil tu rozloženou práci, tak i před tebou, jak jsi to elegantně složil do hromady ;)

No je vidět že se mám stále co učit

Jsem moc rád že tento web funguje a děkuji za pomoc.

Ahoj/Dobrý den,

dostalo se mi pomoci, kde je dosáhnuto kýženého výsledku ;) ale potřeboval bych to pomoci nějak zjednodušit.

Tabulek budu mít několik za sebou (pro každý den jednu) a takhle je to strašně rozsáhlé :(

najde se někdo kdo by mi pomohl??

Díky
S.

Ahoj,

potřeboval bych pomoct/poradit, jak se vypořádat s výpočtem odpracovaných hodin na jednotlivých směnách (ranní (R), odpolední (O), noční (N) ) z celkového počtu hodin.

Na ukázku přikládám přílohu, kde je hrubý nástřel toho, co jsem si dal do hromady, ale potřeboval bych to ještě rosekat, kolik z toho bylo odpracováno hodin na jednotlivé směně - s tím už jsem nevypořádal

Preferoval bych nejlépe pomoc formou vzorců, ale nepohrdnu ani VBAčkem (VBA možná nebude tak rozsáhlé jako vzorce). Jinak pracuji s MS Excel 2010.

Předem děkuji za jakoukoli pomoc či radu

je možné, aby otevření stejného sešitu jen pro čtení v jiném PC vynulovalo vartimer???

opravdu se nenajde nikdo, kdo by poradil??

tak mám tu jeden poznatek, zdá se, že to "po nějakém čase" není samovolnou činností, ale že ten sešit otevře ještě někdo jiný jen pro čtení.

zdravím,
potřeboval bych zkontrolovat a poradit s tímto makrem.

Makro je funkční a vypadá že je vše OK, nastavím čas na 30min, ale po nějakém čase (mám vypozorováno cca za 3-4hodiny) se to začne z nějakého důvodu refreshovat a ukládat pořád dokolečka :(

Workbook:

Private Sub Workbook_Open()
Call cas
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ukladani
End Sub

Modul:

Public vartimer As Variant
Const TimeOut = 15 'zde si nastavte po kolika minutách se má dokument uložit

Sub refresh()

ActiveWorkbook.RefreshAll
Call cas
End Sub

Sub ulozime()

ActiveWorkbook.Save
Call cas
End Sub

Sub cas()
vartimer = Format(Now + TimeSerial(0, TimeOut, 0), "hh:mm:ss")
If vartimer = "" Then Exit Sub
Application.OnTime TimeValue(vartimer), "refresh"
Application.OnTime TimeValue(vartimer), "ulozime"
End Sub

Sub ukladani()
On Error Resume Next
Application.OnTime earliesttime:=vartimer, _
procedure:="ulozime", schedule:=False
On Error GoTo 0
End Sub

hmmm,tak už jsem to vyřešil

nevím jak se to stalo

ale ve všech sešitech, se mi nejak samovolně nastavilo automatické přepočítávání na ruční

zapomněl jsem dodat, že data se načítají automaticky po otevření sešitu.

Dobrý den,

Excel mi najednou z ničeho nic přestal aktualizovat data :(

Do několika listů načítám data z SQL, ze kterých v jiném listu zpracovávám přehled.

V listu, kam se data načítají z SQL, jsou data aktuální, ale v přehledu se mi data nezaktualizujou. Do přehledu ty data tahám vzorecem, když do vzorce kliknu a pak dám enter, data se načtou

Pls o radu, kde mám co špatně, nebo jak to napravit.

Díky

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje