Tracking my employee's history of changes.

[ZEUSZEUS]

Have a dilemma.
I am using excel as point of sale book (to record customer name, service, and total price etc.) at our hair salon. We have employees that may be there to manage alone from time to time, and enter clients into excel.
Our worry is straight forward, and involves them erasing what they wrote. I am confident that the actual service and price is entered at the beginning, but want to track their changes to their own entries.

The "track changes" would work if it "tracked changes" after entry. But it seems to track the last change from saving. For example....the employee enters $40.25 presses enter--after she knows she can get away with a change, she may erase it altogether or change it to say $16.75.

Please help.
Thanks in advance

 

[Aleciafxc]

Thanks I will try it this weekend and then let you know.

 

[Aleciafxc]

Worked Perfect, thanks so much.

Alecia

 

[Aleciafxc]

Ok, i thought it was working well but it is not giving me the Pre Value, any ideas??

 

[Ed in Aus]

How do you want to use the pre value?

 

[ScottD]

Is there a way to track the change in a cell which is linked to an option button using this code?

 

[VoG]

As far as I know changing the value of an option button won't trigger the event code that is used.

 

[ScottD]

That's what I was afraid of. . . It's killing me trying to track the use of these buttons.

 

[VoG]

If you are using ActiveX buttons you may be able to use this

Private Sub OptionButton1_Change()

End Sub

 

[ScottD]

So simple, yet brilliant! Thanks for blasting away the cobwebs. . . I'll just include handlers for each button.

 

[AAF4348]

bringing this one up from the past as it is what i thought i needed...

Here is what I have loaded:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LR As Long, X As Variant
If Sh.Name = "Log" Then Exit Sub
X = Target.Value
With Application
.EnableEvents = False
.ScreenUpdating = False
If Target.Count = 1 Then .Undo
End With
With Sheets("Log")
' .Unprotect Password:="pw"
LR = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & LR + 1).Value = Now
.Range("B" & LR + 1).Value = Sh.Name
.Range("C" & LR + 1).NumberFormat = "@"
.Range("C" & LR + 1).Value = Target.Address(False, False)
.Range("D" & LR + 1).Value = Target.Value
.Range("E" & LR + 1).Value = X
.Range("F" & LR + 1).Value = Environ("username")
' .Protect Password:="pw"
End With
If Target.Count = 1 Then Target.Value = X
On Error Resume Next
Target.Offset(, 1).Select
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With

End Sub

this works great when anything is done within a cell. however, i have added buttons that run various macros. when i use one of the buttons, the above code freezes up. Is there a way to keep the above sub from running when i use my macro enabled buttons? One of those buttons is for notes. my associates can click it and an input box pops up for them to type in any notes they need to make that are added to a separate tab - date stamped in column a, notes in column b. this one really throws off the above code, so would rather not even have it log anything done when using certain macros.

also, the workbook the above sub is saved in is a template. i have another workbook that "kicks off" a large macro that does several things within the template workbook then asks the user to save as a new file name, then it closes out the template. i really do not want the above sub to run in the template workbook, but do need it within the newly created workbook my associates will be using. is there a way to have it added to the new workbook and not actually work in the template? is there vba code to add a macro to a workbook as a private sub?

thanks!