You can use onchange code such as below...it relies on macros being enabled
though.
This first sub needs to go in the workbook module.
Private Sub Workbook_Open()
ThisWorkbook.Worksheets("NAME OF WORKSHEET").OnEntry = "DidCellsChange"
End Sub
Sub DidCellsChange()
Dim KeyCells As String
KeyCells = "AQ3:AQ1000" [PUT RANGE THAT YOU WANT TO MONITOR]
If Not Application.Intersect(ActiveCell, Range(KeyCells)) _
Is Nothing Then KeyCellsChanged
End Sub
Sub KeyCellsChanged()
ActiveCell.[PUT THE FORMATTING HERE eg. interior.colourindex =0]
End Sub
"dawleen" wrote:
I need to be able to track changes between two sheets. One will be locked and
the other able to to be edited. I want to turn any cells blue that are
changed and not equal to the static sheet. Conditional formatting won't let
me go between two sheets. Is there any other way to do it? Thanks. D
|