Új hozzászólás Aktív témák

• #29454 Belnir csendes tag

  Új Válasz 2015-11-11 10:35:06 #29454

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Belnir

  csendes tag

  Felmerült egy probléma. Azt vettem észre, hogy a változást csak akkor logolja, ha semmiről-valamire vagy valamiről-valamire változott az érték. Ha galád módon valaki valamiről-semmire változtat egy cellaértéket, arról nem jön létre a log-sor (magyarán szemétségből valaki töröl egy cellatartalmat, és bemószerolja a másikat).
  A kód ilyen:

  Public aktualis
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lastrow As Long
  Dim akt_lap As String: akt_lap = ActiveSheet.Name
  If Target.Count <> 1 Then Exit Sub
  If aktualis = Target.Value Then Exit Sub
  Application.ScreenUpdating = False
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set Logfile = FSO.OpenTextFile("\eleresi_utvonal\log.txt", 8, True)
  Logfile.WriteLine ("VÁLTOZTAT" & " - " & Format(Now, "YYYY.MM.DD hh:mm:ss") & " - " & Environ$("username") & " - " & Application.UserName & " - " & Environ$("computername") & " - " & Target.Parent.Name & " - " & Target.Address & " - " & aktualis & " - " & Target.Value)
  Logfile.Close
  Set Logfile = Nothing
  Set FSO = Nothing
  xit:
  
  Worksheets(akt_lap).Activate
  Selection.Activate
  Application.ScreenUpdating = True
  End Sub
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  aktualis = ActiveCell.Value
  End Sub

  Mit írjunk még bele, hogy azt is logolja?

Új hozzászólás Aktív témák