If the number in a cell is changed and it is larger than the original number
I want the cell to be highlighted in a green colour. If the number is lower
than the original I want the cell to be highlighted in red.
Any suggestions gratefully accepted.
Roger

Hi Jolly:

Put the following in worksheet code:

Dim v
Private Sub Worksheet_Activate()
v = Cells(1, 1).Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
Exit Sub
End If
If Cells(1, 1).Value v Then
Cells(1, 1).Interior.ColorIndex = 50
End If
If Cells(1, 1).Value < v Then
Cells(1, 1).Interior.ColorIndex = 3
End If
End Sub


When the sheet is activated, the first macro just records the value in A1 in
a static variable v. If A1 changes, the second macro compares the new value
to v and colours the cell in an appropriate fashion.
--
Gary's Student


"Jolly Roger" wrote:

If the number in a cell is changed and it is larger than the original number
I want the cell to be highlighted in a green colour. If the number is lower
than the original I want the cell to be highlighted in red.
Any suggestions gratefully accepted.
Roger

--
Gary''s Student


"Jolly Roger" wrote:

If the number in a cell is changed and it is larger than the original number
I want the cell to be highlighted in a green colour. If the number is lower
than the original I want the cell to be highlighted in red.
Any suggestions gratefully accepted.
Roger

Holy Macro!

Would this get put into visual basic editor?

Gary''s Student wrote:
Hi Jolly:

Put the following in worksheet code:

Dim v
Private Sub Worksheet_Activate()
v = Cells(1, 1).Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
Exit Sub
End If
If Cells(1, 1).Value v Then
Cells(1, 1).Interior.ColorIndex = 50
End If
If Cells(1, 1).Value < v Then
Cells(1, 1).Interior.ColorIndex = 3
End If
End Sub


When the sheet is activated, the first macro just records the value in A1 in
a static variable v. If A1 changes, the second macro compares the new value
to v and colours the cell in an appropriate fashion.
--
Gary's Student


"Jolly Roger" wrote:

If the number in a cell is changed and it is larger than the original number
I want the cell to be highlighted in a green colour. If the number is lower
than the original I want the cell to be highlighted in red.
Any suggestions gratefully accepted.
Roger

Right-click on your worksheet tab and "View Code".

Copy/paste into the sheet module that appears.

Alt + q to close.


Gord Dibben MS Excel MVP

On 7 Oct 2006 14:17:38 -0700, "steveK" wrote:


Holy Macro!

Would this get put into visual basic editor?

Gary''s Student wrote:
Hi Jolly:

Put the following in worksheet code:

Dim v
Private Sub Worksheet_Activate()
v = Cells(1, 1).Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
Exit Sub
End If
If Cells(1, 1).Value v Then
Cells(1, 1).Interior.ColorIndex = 50
End If
If Cells(1, 1).Value < v Then
Cells(1, 1).Interior.ColorIndex = 3
End If
End Sub


When the sheet is activated, the first macro just records the value in A1 in
a static variable v. If A1 changes, the second macro compares the new value
to v and colours the cell in an appropriate fashion.
--
Gary's Student


"Jolly Roger" wrote:

If the number in a cell is changed and it is larger than the original number
I want the cell to be highlighted in a green colour. If the number is lower
than the original I want the cell to be highlighted in red.
Any suggestions gratefully accepted.
Roger

Hi,
I pasted this into the sheet. It works for cell A1. How do I use it on the
whole sheet?

Use the formatting paintbrush to copy the formatting to cells you want with that
CF


Gord Dibben MS Excel MVP

On Sun, 8 Oct 2006 03:20:02 -0700, Jolly Roger
wrote:

Hi,
I pasted this into the sheet. It works for cell A1. How do I use it on the
whole sheet?