MS Excel

Téma: Vyplnění jména přihlášeného uživatele

Zaslal/a zEjnik 28.12.2013 9:46

Ahoj,

prosím o radu, mám makro na vyplnění uživatelského jména v případě, že je již není vyplněno. Funguje pouze v případě, že makro spustím ručně, pokud dám uložit, tak nefunguje.

Sub Worksheet_Save()
If IsEmpty(Worksheets("kus").Range("H8")) Then
Range("H8").Value = Environ("username")
End If
End Sub

Potřeboval bych, aby při uložení se toto makro spustilo. Nějaký tip?

Děkuji.

Zaslat odpověď >

Stalker(28.12.2013 11:03)#016944

Zkusil bych makro spustit před uložením

Private Sub Workbook_BeforeSavecitovat

AL(28.12.2013 14:48)#016954

Len poznámka na okraj: žiadna udalosť Worksheet_Save neexistuje, čiže platí to, čo píše Stalker.citovat

zEjnik(29.12.2013 13:28)#016965

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If IsEmpty(Worksheets("kus").Range("H8")) Then
Range("H8").Value = Environ("username")
Range("J8").Value = Date
Else
Range("H9").Value = Environ("username")
Range("J9").Value = Date
End If
End Sub

Upravil jsem na beforsave, ale stejně mi to nejde, ...?

Děkuji.citovat

Pavlus(29.12.2013 14:26)#016966

Musíš ten kód vložit do ThisWorkbook, pak to bude fungovat...
P.citovat

zEjnik(29.12.2013 22:00)#016967

To mám, ale v případě, že makro spustím, tak mi vyskočí okno s přehledem maker, kde žádné není na výběr, jako by nebylo "k dispozici" nebo jak to říct..?!citovat

Stalker(29.12.2013 22:03)#016968

To makro se přece spouští automaticky před uložením.citovat

zEjnik(29.12.2013 22:09)#016969

Myslel jsem, že lze spustit i ručně. Jsem blbej, omlouvám se a díky.. :)citovat

Stalker(29.12.2013 22:22)#016970

Pokud ho chceš spouštět i ručně tak ho vlož např. do modulu listu a do TwisWorkbook dej odkaz, kterým zavoláš makro z modulu listu

call nazev_listu.nazev_makracitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.