MS Excel

Zdravím, jak se máte?

Potřeboval bych jestli lze nastavit makro tak, aby se každému uživateli spustilo jen jednou za den - když excel otevře poprvý za den tak se spustí, po druhý už ne. S tím, že neznám jména uživatelů pracující se sešitem.

Makro mi jen zobrazuje jednu hlášku, a ta mi stačí když se spustí jen jednou za den každému uživateli.

Díki za nápady pokud budou.

Zaslat odpověď >

Poki(22.9.2010 15:09)#002514

Napadlo me jen to, ze by slo zapisovat kazdeho uziavatele, ktery sesit otevre a pak prohledat seznam uzivatelu, jestli uz sesit otevrel.
Tento seznam jsem v kodu umistil na list 3 - ktery by samozrejme mohl byt skryty, ci jakkoliv jinak 'uklizeny'. Odkaz na toto makro by melo byt v procedure pri spusteni v ThisWorkbook
Sub RunOnce()
If List3.Cells(1, 1) <> Date Then
List3.Range("a2:a65000").ClearContents
List3.Cells(1, 1) = Date
End If
For i = 2 To List3.Cells(50000, 1).End(xlUp).Row
If List3.Cells(i, 1) = Application.UserName Then
Exit Sub
End If
Next
List3.Cells(List3.Cells(50000, 1).End(xlUp).Row + 1, 1) = Application.UserName
Call NazevMakra
End Subcitovat

Niffki(23.9.2010 16:06)#002523

Díki za tip. Funguje to. Ale ješte bych potřeboval doplnit ješte jednu kontrolu.

V příloze přikládám tabulku, do které to chci vše zakomponovat.

Takže od začátku:
když si spustíš přílohu objeví se ti msgbox, že jsou nové informace a zda si je chceš na ně podívat. Potřeboval bych aby se tento msgbox zobrazil jen jednou za den kaqždému uživateli .... ALE!!!( 2. kontrola) pokud se zapíšou ve stejný den další nové informace tak at se zase zobrazí tento msgbox.

Tedy: uživatel si spustí tuto tabulku(pokud budou zapsány nové informace, které ješte nepřečetl, zobrazí se msgbox).

Nechci už moc? :o) zkouším to vytvořit sám, ale zatím marně.

Příloha: rar

2523_informace.rar (51kB, staženo 22x)

citovat

Niffki(24.9.2010 9:56)#002532

Tak jsem to zhovil upe sám podle toho jak si mě naučil:o) tedy jen pokus, uvidím jak to bude fungovat v praxi.

V příloze posílám můj výtvor. Co na to říkáš, jako zkušenější?

Sestavil jsem to tak, že pokud si někdo otevře tento excel vloží se do listu users jeho jméno a pak dále s tím bude pracovat. Jen nevýhoda bude asík když se smažou nějaké informace tak aby se smazali i hodnyty v listu users.

Pokud bys poradil jinak, nebráním se.

Příloha: rar

2532_informace.rar (54kB, staženo 22x)

citovat

Poki(24.9.2010 10:08)#002533

Mozna takto, co myslis?

Příloha: zip

2533_informace.zip (55kB, staženo 24x)

citovat

Niffki(24.9.2010 10:49)#002536

Hmmmmmmmmmmmmmmmmmmmm, dobrý!

Výhody nevýhody tvého a mého kodu???

Já vidím u mého jen jednu nevýhodu, že je moc dlouhý :-)) a že se nemusí vycházet z toho kolik je celkem informací.

Dobrý, jen ted nevím jaký použít

citovat

Poki(24.9.2010 10:53)#002537

ja tent vuj nevidel, jen jsem vlozil to, co jsem stvoril ja - a priznam se, ze se mi nechce tvu kod studovat, takze si vyber a cokoliv bude fungovat, je dobry :)citovat

Niffki(24.9.2010 11:07)#002538

Já ten můj dělám od rána a ty ani ho nechceš studovat??

K tomu tvému a tohle zadání:
If ZobrazInfo = vbYes Then
aktivace = False
List3.Cells(List3.Cells(50000, 1).End(xlUp).Row + 1, 1) = Application.UserName
List3.Cells(List3.Cells(50000, 1).End(xlUp).Row, 2) = Now

Pokud bude více nových informací za den , se vloží vícekrát username do sešitu 3?citovat

Poki(24.9.2010 11:13)#002539

ano - muze tam byt vickrat, ale nevidim v tom vetsi problem - nepredpokladam, ze by tam bylo nejak moc otevreni toho sesitu, kdyz to bude cca do x tisic, tak se nic hroznyho nedeje - samozrejme muzes to napsat tak, ze se vyhleda username a nahradi, ale priznam se, ze se mi to nechtelo moc resit.
Kazdopadne to neber tak, ze moje verze je nejak sofistikovana - muzes si z ni vzit inspiraci nebo nemusis - je to na tobe, vzdyt jde o tvuj soubor :)citovat

Téma: Makro jednou za den

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje