Macro to check the last 7 values against mean
Closed
Colin
-
Jun 28, 2011 at 08:49 AM
RWomanizer
RWomanizer
- Posts
- 365
- Registration date
- Monday February 7, 2011
- Status
- Contributor
- Last seen
- September 30, 2013
Related:
- Macro to check the last 7 values against mean
- How to check bios windows 7 - Guide
- Excel - Macro to highlight Rows with Duplicate values in a cell ✓ - Forum - Excel
- How to use a macro to check data in 2 work sheets ✓ - Forum - Excel
- How to check the Windows version: Windows 11, 10, 8.1, 7 - Guide
- Windows 7 version check - Guide
1 reply
RWomanizer
Jun 30, 2011 at 02:25 AM
- Posts
- 365
- Registration date
- Monday February 7, 2011
- Status
- Contributor
- Last seen
- September 30, 2013
Jun 30, 2011 at 02:25 AM
here the code is:
Its color last seven value as yellow if less than mean and Green if greater than mean. and no formating if equal to mean. :)
Private Sub CondFormat() Dim lastrow, i As Long Dim Mean As Long lastrow = Range("A" & Rows.Count).End(xlUp).Row Mean = WorksheetFunction.Average(Range("A" & lastrow - 29, "A" & lastrow)) For i = lastrow - 6 To lastrow If Range("A" & i) < Mean Then Range("A" & i).Interior.ColorIndex = 6 Else Range("A" & i).Interior.ColorIndex = 10 End If Next i End Sub
Its color last seven value as yellow if less than mean and Green if greater than mean. and no formating if equal to mean. :)