Carim
If my understanding is correct, COUNTIF() wouldn't solve his problem in any case. (He wants the count of all rows that have at least one number over 599.99) It would be a SUMPRODUCT().
As to the code, you can put this function in your code and call it:
Note a few things:
- I hard coded the ranges, so you'll have to go in and change them when necessary, it's not automatic.
- You'll have to specify the worksheet name (I used "Sheet1")
Private Function Counting() As Long
Dim i As Long, j As Long
Dim c As Long
Dim Over As Boolean
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
For i = 7 To 70 'goes through rows
Over = False
For j = 6 To 8 'goes through cols F-H
If ws.Cells(i, j) > 599.99 Then Over = True
Next j
If Over Then c = c + 1
Next i
Counting = c
End Function
Scott
Bookmarks