Oprettelse af log-fil

Det skal lige nævnes at ovenstående patientliste.xls danner grundlag for de 2 nævnte projektmapper (opstartes fra kommandoknapper i patientliste.xls). Log-filen til de 2 projektmapper skal navngives med cpr (= (Range("D7")) efterfulgt af ectensionen (.log)
Jeg håber at det er til at forstå  :0)

ret denne.

LogInformation ThisWorkbook.Name & " åbnet af " & Application.UserName & " " & Format(Date, "dd-mm-yyyy hh:nn")

Her har vi diskuteret det med log over ændringer i celler

http://www.eksperten.dk/spm/377356

Den skriver desværre fortsat 00:00 - mystisk.
Debatten ser spændende ud - det skal selvfølgelig afprøves - indtil videre tak for hjælpen :0)

Det er noget den skal gøre , Steen:
Date() giver kun en dato:
Brug Now(), der giver både dato og tid
LogInformation ThisWorkbook.Name & " åbnet af " & Application.UserName & " " & Format(Date, "dd-mm-yyyy hh:mm")

prøv denne, den virker hos mig

LogInformation ThisWorkbook.Name & " åbnet af " & Application.UserName & " " & Now()

s'føli
LogInformation ThisWorkbook.Name & " åbnet af " & Application.UserName & " " & Format(Now(), "dd-mm-yyyy hh:mm")

Yes den kører - tak for det !!!

Det er fint, steen, men hvis du vil bruge application.username, så vær opmærksom på at det er det navn man skriver i excel under "Funktioner / Indstillinger" på fanebladet Standard. Det er ikke alle der har det udfyldt og man kan skrive hvad man har lyst til.

Brug heller det navn de er logget på maskinen med:

Declare Function Get_User_Name Lib "advapi32.dll" Alias _
                "GetUserNameA" (ByVal lpBuffer As String, _
                nSize As Long) As Long


Function GetUserName() As String
    Dim lpBuff As String * 25

    Get_User_Name lpBuff, 25
    GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
   
End Function

LogInformation ThisWorkbook.Name & " åbnet af " & GetUserName & " " & Format(Now(), "dd-mm-yyyy hh:mm")

--> Bak jeg har oprettet et log-on i projektmappen og ville jo gerne anvende de log-ons som anvender der i stedet for application.username. Her er koden til FrmAdgang (det ser lidt forvirrende ud - jeg håber at du får noget ud af det):0)

Option Explicit

Private Sub CancelButt_Click()
ThisWorkbook.Close SaveChanges:=False
End Sub

Private Sub CommandButton1_Click()
'ThisWorkbook.Close SaveChanges:=False
    ThisWorkbook.Saved = True
    Application.Quit
End Sub

Private Sub Image1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub OKButt_Click()
Dim iFoundPass As Integer
On Error Resume Next
With Sheets("Config").Range("UserNames")

  iFoundPass = .Find(What:=UserNameTextBox, After:=.Cells(1, 1), LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Row
End With
On Error GoTo 0

If iFoundPass = 0 Then
  SomethingWrong
      Exit Sub
End If

If Sheets("Config").Cells(iFoundPass, 2) <> PasswordTextBox Then
  SomethingWrong
      Exit Sub
End If

Sheets("Config").Range("LoggedInAs") = UserNameTextBox
Unload Me


End Sub

Private Sub PasswordTextBox_Change()
OKButt.Enabled = (UserNameTextBox.TextLength > 2 And _
                      PasswordTextBox.TextLength > 2)
End Sub

Private Sub PasswordTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call OKButt_Click

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Private Sub UserNameTextBox_Change()
OKButt.Enabled = (UserNameTextBox.TextLength > 2 And _
                      PasswordTextBox.TextLength > 2)
End Sub

Private Sub SomethingWrong()
  MsgBox "Forkert Brugernavn eller kodeord.", vbCritical + vbInformation, "Bla.bla"
End Sub

Glem ovenstående kode - jeg fandt en løsning på det.
Jeg har indlagt den kode i blev enige om i Projektmappen (Patient.xls) arket: "Medicin". Den fungerer umiddelbart MEN hvis man ændrer et præparat fra ex: "1-1-1-0" til "" viser den korrekt "" men hvis man siden ændrer fra "" til ex "0-1-1-0" så viser den IKKE at cellen var tom ("") men derimod "1-1-1-0").
Jeg har desuden ændret log-on informationen.
I rækken:  rng.Offset(0, 3) = cell.Address    ville jeg gerne ha' anført værdien i samme række men kolonne a (hvor medicinen navn står anført) så log'en ikke kun er celleadresser.
Jeg har også forsøgt at få log'en til kun at skrive hvis der står anført noget i target-cellen men det resulterede i at Log'en heller ikke blev ført hvis man ændrede fra en værdi til ingenting :0(    - med andre ord er jeg på "skideren"

Kan en eller anden hjælpe??? 

Public Sub Hvem(Target)
Dim rng As Range
Dim A As String
Dim C As String
Dim i As Long
Dim cell As Range
A = ActiveSheet.Name
C = Target.Address
i = 0
For Each cell In Target
  'If Targe <> "" Then
  i = i + 1
  Set rng = Sheets("Log").Range("A65536").End(xlUp).Offset(1, 0)
  rng.Value = Now
  rng.Offset(0, 1) = A
  rng.Offset(0, 2) = cell.Address
  rng.Offset(0, 3) = cell.Address
  rng.Offset(0, 4) = "'" & OldSelection(i).Val
  rng.Offset(0, 5) = "'" & cell.Formula
  rng.Offset(0, 6) = Workbooks("Patientliste.xls").Sheets("Config").Range("C1").Value 'her er anbragt log-in information
  'End If
Next
End Sub

rng.Offset(0, 3) = Cells(cell.row,1).value

-->kabbak Tak fordi du kigge forbi. Alt fungerer nu (med kode du tidl. har lavet til mig) pånær den linie du lige har ændret. Nu står der intet i 3 kolonne.

undskyld 4 kolonne

ok, nu har jeg jo ikke et opdateret ark, så jeg ved jo ikke hvilken side(Ark), den henter Target fra.

Så jeg ved jo ikke om der er noget i A kolonnen

i Projektmappen (Patient.xls) arket: "Medicin",(hvor medicinen's navn står anført), det står ikke i A men i C kolonnen

så skal det være
rng.Offset(0, 3) = Cells(cell.row,3).value

Fy for den ... du har da fuldstændig ret. Hvorledes skal det så anføres?

Steen, hvad er dit arbejde egentlig, EDB eller læge ?.

Man forledes jo til at tro at det er EDB, da du jo er her både morgen og aften. ;-))

Nå du nåede det før mig. Nu fungerer det bare. Tak igen, igen......
Svar lige så får du point . eller måske burde jeg fordele med mellem bak og dig?

jeg synes at bak også skal have

Det var så en opfordring til bak :0)

Læge (Anæstesiolog) er mit arbejde. Edb er min hobby, med vba som noget nyt. Dog fylder edb-stoffet meget på mit arbejde.

Vedr morgen og aften - er jeg jo ikke den eneste GUDSKELOV

nej, det kan det jo være noget om ;-))

kabbak du fik aldrig dine point og bak svarede ikke - så hermed følger de :0)