Old vs. new cell value comparison - possible?
Closed
AfterHoursDba
-
Nov 9, 2010 at 01:39 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Nov 10, 2010 at 05:05 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Nov 10, 2010 at 05:05 AM
Related:
- Old vs. new cell value comparison - possible?
- If cell contains date then return value ✓ - Excel Forum
- Excel "IF" function w/ date in test cell ✓ - Excel Forum
- Excel conditional formatting if another cell contains specific text ✓ - Excel Forum
- Excel formula to check if cell contains a date - Excel Forum
- Conditional formatting if cell contains text - Excel Forum
1 response
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Nov 10, 2010 at 05:05 AM
Nov 10, 2010 at 05:05 AM
quote
different color (1 of 3; yellow, green, blue, in rotation).
unquote
I do not understand this why this color rotation. after all you need to know which is the current number
anyhow try this experiment.
open a new workbook
right click sheet1 tab and copy the event code given below
now you enter any number in A1(A1 only as this is the target cell) of sheet 1 repeat sheet1
now see sheet2
now enter another number in A1 sheet 1 and see sheet2
now enter another number in A1 sheet1 and see sheet 2
are you not satisfied with this
the event code is
different color (1 of 3; yellow, green, blue, in rotation).
unquote
I do not understand this why this color rotation. after all you need to know which is the current number
anyhow try this experiment.
open a new workbook
right click sheet1 tab and copy the event code given below
now you enter any number in A1(A1 only as this is the target cell) of sheet 1 repeat sheet1
now see sheet2
now enter another number in A1 sheet 1 and see sheet2
now enter another number in A1 sheet1 and see sheet 2
are you not satisfied with this
the event code is
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address <> "$A$1" Then GoTo line1
Target.Copy Worksheets("sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
With Worksheets("sheet2")
.Cells.Interior.ColorIndex = xlNone
.Cells(Rows.Count, "A").End(xlUp).Interior.ColorIndex = 6
End With
line1:
Application.EnableEvents = True
End Sub
