logbestand

[ddr]

ik heb een vba waarbij elke wijziging in een cel  word gelogd in tabblad log. dit werkt perfect als men in 1 enkele cel iets wijzigd.

Maar als men meerdere cellen selecteert om deze bv. leeg te maken , dan krijg ik een foutmelding.

Hoe kan ik dit vermijden?

 

Is het ook mogelijk om de logging op te splitsen in aparte kolommen, zodat er achteraf gemakkelijk kan gezocht worden naar een bepaald tabblad en cel?

Zie vb van tabblad "log2" .

logbestand.xls

[emielDS]

Verander uw code zo 

 

Private Sub Worksheet_Change(ByVal target As Range)
If target.count =1 then
If target.Value <> PreviousValue Then
Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
            Application.UserName & " changed cell " & ActiveSheet.Name & target.Address _
            & " from " & PreviousValue & " to " & target.Value & " Date " & Date & "  " & Time
End If
 end if           
End Sub

 

8 december 2019 aangepast door emielDS

[bakerman]

Ga maar eens aan de slag met deze.

ddr.xls

[ddr]

bakerman:  toppie. 

Is het ook mogelijk om , wanneer ik meerdere cellen selecteer, en deze delete, dat de waarden ook in logbestand komen?

 

mvg

DDR

[bakerman]

Probeer deze dan eens.

ddr_ver2.xls

[ddr]

Super bakerman,

Is helemaal wat ik zocht.

Dikke merci.

 

 

[bakerman]

Graag gedaan en bedankt voor de feedback.

[kweezie wabbit]

Op 11/12/2019 om 20:09, ddr zei:

Is helemaal wat ik zocht.

Dan neem ik aan dat je probleem is opgelost en kunnen we het topic afsluiten.

Succes nog.