Rich (BB code):
Sub Deploy()
Dim i, x, y, z As Long
Dim R1, R12 As Range
x = Cells(Rows.Count, "A").End(xlUp).Row
For i = 9 To x
R1 = Range("G" & i & ":J" & i)
R12 = Range("K" & i & ":M" & i)
y = Application.WorksheetFunction.Average(R1)
z = Application.WorksheetFunction.Average(R12)
Cells(i, "O") = Application.WorksheetFunction.Max(y, z)
Next i
End Sub
Excel is
A | B | C | D | E | F | G | H | I | J | K | L | M | N | O |
S/L | Prime | UK | Desc. | Division | Category | W1 | W2 | W3 | W4 | W5 | W6 | W7 | W8 | DMD |
DDD | TTTT | E2 | rrrr | 0 | 0 | 0 | 1 | 0 | 1 | 2 | 3 | 1 | 0 |
<colgroup><col><col><col span="13"></colgroup><tbody>
</tbody>
Getting error in bold line Plz help
Last edited by a moderator: