log bestand bij wijziging

[ozzyozzy]

Change werkt niet in thisworkbook.

Van >>>>>>>>>>>>> Naar


User Name Logname Wijziging Tabblad & Cel Van Naar Datum Tijd

Private Sub Workbook_sheetChange(ByVal Sh As Object, ByVal target As Range)

Dim PreviousValue
Application.EnableEvents = False
  If target.Count > 1 Then
  Application.Undo
  Application.EnableEvents = True
  Exit Sub
 End If

  If target.Value <> PreviousValue Then
x = Environ("USERNAME") & "|" & Application.UserName & "|" & " changed cell " & "|" & ActiveSheet.Name & target.Address _
            & "|" & PreviousValue & "|" & target.Value & "|" & Date & "|" & Time
Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Resize(1, 8).Value = Split(x, "|")

  End If
        Application.EnableEvents = True
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal target As Range)

PreviousValue = target.Value

End Sub

 

[VenA]

Werk eerst even jouw andere vragen af voordat je nieuwe stelt.

 

[edmoor]

En de Workbook_SheetChange werkt altijd.

 

[HSV]

Je moet de variabele PreviousValue buitenom declareren.

 

[ozzyozzy]

even mijn vraag specificeren: ik heb diverse kolommen waarvan van >>> naar.
als ik iets intyp komt het automatisch onder naar te staan , maar bij wijziging van naar moet dat in kolom van komen te staan.

hoe kan ik het beste mijn code hierop aanpassen?

rest van de kolomen doet het werk wel.

 

[ozzyozzy]

even mijn vraag specificeren: ik heb diverse kolommen waarvan van >>> naar.
als ik iets intyp komt het automatisch onder naar te staan , maar bij wijziging van naar moet dat in kolom van komen te staan.

hoe kan ik het beste mijn code hierop aanpassen?

rest van de kolomen doet het werk wel.

 

[HSV]

Doordat PreviousValue altijd leeg blijft.
Vandaar dat je buitenom moet declareren.