< návrat zpět

MS Excel


Téma: Makro jednou za den rss

Zaslal/a 22.9.2010 11:17

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ěď >

icon #002514
Poki
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 Sub
citovat
#002523
avatar
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: rar2523_informace.rar (51kB, staženo 22x)
citovat
#002532
avatar
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. 4
Příloha: rar2532_informace.rar (54kB, staženo 22x)
citovat
icon #002533
Poki
Mozna takto, co myslis?
Příloha: zip2533_informace.zip (55kB, staženo 23x)
citovat
#002536
avatar
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 24citovat
icon #002537
Poki
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
#002538
avatar
Já ten můj dělám od rána a ty ani ho nechceš studovat?? 3 7

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
icon #002539
Poki
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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09