Re: Watch cell?
Code
Sub Macro1_SORT_hights()
'
' Macro1_SORT_hights Macro
'
Application.ScreenUpdating = False
On Error GoTo ErrMsg
ActiveWorkbook.Worksheets("Hights").Sort.SortFields.Clear
Call ActiveWorkbook.Worksheets("Hights").Sort.SortFields.Add(Sheets("Hights").Columns(10), , xlAscending)
Call ActiveWorkbook.Worksheets("Hights").Sort.SetRange(Sheets("Hights").Range("B3:J12"))
ActiveWorkbook.Worksheets("Hights").Sort.Apply
"This checks cells if there is some value change :)
ActiveWorkbook.Worksheets("STICKandTEMP").Select
Range("B8").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("B9").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("D8").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("D9").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("F8").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("F9").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("H8").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("H9").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("J8").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("J9").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("L8").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("L9").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("L18").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("L19").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("J18").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("J19").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("D18").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("D19").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("B18").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("B19").Select
ActiveCell.FormulaR1C1 = Target.Value
Range("A12").Select
ActiveWorkbook.Worksheets("Hights").Select
Range("A1").Select
Application.ScreenUpdating = True
Exit Sub
ErrMsg:
MsgBox prompt:="ERROR ! Table has to be in range B3:J12" & Chr(13) & "to sort working."
End Sub
Display More
Code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim wsTwo As Worksheet
Set ws = Sheets("STICKandTEMP")
Set wsTwo = Sheets("Hights")
If Target.Address = "$B$8" Or Target.Address = "$B$9" Then
wsTwo.Range("R1") = Now() - ThisWorkbook.CustomDocumentProperties("PreviousTimeVal").Value [B]<----- here need to insert code to format cell[/B]
ThisWorkbook.CustomDocumentProperties("PreviousTimeVal") = Now()
ElseIf Target.Address = "$D$8" Or Target.Address = "$D$9" Then
wsTwo.Range("S1") = Now() - ThisWorkbook.CustomDocumentProperties("PreviousTimeVal").Value[B]<----- here need to insert code to format cell[/B]
ThisWorkbook.CustomDocumentProperties("PreviousTimeVal") = Now()
ElseIf Target.Address = "$F$8" Or Target.Address = "$F$9" Then
wsTwo.Range("T1") = Now() - ThisWorkbook.CustomDocumentProperties("PreviousTimeVal").Value [B]<----- here need to insert code to format cell[/B]
ThisWorkbook.CustomDocumentProperties("PreviousTimeVal") = Now()
0
0
0
0
0 and so on......
End If
End Sub
Display More
I forggot to insert line in Sub SORT Hights to trigger Sheet("STICKandTEMP") PrivateSubWorksheet_Change event