Print side | Luk vindue

Log udvidelse?

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=514
Udskrevet den: 12.Dec.2024 kl. 21:06


Emne: Log udvidelse?
Besked fra: Sempai
Emne: Log udvidelse?
Posteringsdato: 03.Nov.2011 kl. 09:39

Hej,

 
Jeg har lavet log på min projektmappe med en formel der minder om den, der florerer herinde.
Der er dog en enkelt funktion jeg synes jeg mangler..
 
Kan man lave sådan, at der skrives til loggen, hver gang brugeren skifter ark?
Så man kan se, hvilke ark der bliver brugt, i hvilken rækkefølge osv...
 
Jeg kan godt få loggen til at skrive arkets navn, men kun når man foretager sig noget inde i arket, og altså ikke når man bare skifter i mellem dem..
 
Nogen der kender en funktion?
 
Mvh



Svar:
Besked fra: Allan
Posteringsdato: 03.Nov.2011 kl. 10:13
Hej Sempai,
 
Jeg har opdateret kilden til filen her: https://www.excel-regneark.dk/?pageIDX=185" >https://www.excel-regneark.dk/?pageIDX=185
 
For at kunne følge en brugers færden i dit regneark, og dermed se hvilke faner som har været aktiveret, skal du tilføje denne kodestump til din eksisterende udgave af loggen.
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
    If LogFilPlacering = "" Then
        Open ThisWorkbook.Path & Application.PathSeparator & LogFilNavn For Append As #1
    Else
        Open LogFilPlacering & LogFilNavn For Append As #1
    End If
    Print #1, UserName, "Aktiv fane ", Now, Sh.Name
    Close #1
End Sub
 
//Allan


Besked fra: Sempai
Posteringsdato: 03.Nov.2011 kl. 10:18
Fedt!
Mange tak for hjælpen!
 
Kunne simpelthen ikke få googlet mig frem til, at funktionen hedder SheetActivate..
 
 


Besked fra: Allan
Posteringsdato: 03.Nov.2011 kl. 10:20
Velbekomme og tak for din tilbagemelding, det var godt du kunne bruge det Big smile
 
//Allan


-------------
MVH

Allan
https://www.excel-regneark.dk" rel="nofollow - Excel-regneark.dk - Gratis skabeloner til Excel
Få over 120 ekstra funktioner med Danmarks bedste add-in



Print side | Luk vindue