counting range of cells with condition

[blexor]

are the apostrophe's what is meant by 'tags' when posting code? I want to make sure I submit a request for assistance accurately... But, what I got is, I need to count the number of cells populated across a range, but not the adjacent cell if it's populated... hard to explain.

so, range of cells: c6, c7, c8, c9, c10, c11, c12, c13, c14
8 4 8 8 4 8
would only count as 3, since the adjacent cell has a value in it. Does that make sense? It is to track occurrences regarding absences; the frequency a technician calls in sick.

',    Range("C6:NE6").Select
',    Range("NG6").Activate
',    ActiveCell.FormulaR1C1 = "=COUNT(RC[-368]:RC[-2])"

Thanks in advance with any assistance you are able to provide

[stnkynts]

Tags means the "code" tags (see the pound symbol when you post).

Now to your question. Your post doesn't line up real well so I can't tell which of your cells have data or not. I guess it doesn't matter because you are only asking to count blanks. Using the range supplied something like this should work

Sub Count_Blanks()
Dim lCount As Long
Dim myRange As Range

Set myRange = Range("C6:C14")

lCount = Application.WorksheetFunction.CountBlank(myRange)

MsgBox (lCount)

'or you could put the formula in a range like this
Range("A1").Formula = "=COUNTBLANK(C6:C14)"
Range("B1").Formula = "=COUNTBLANK(" & myRange.Address & ")"

End Sub

[blexor]

thanks for the reply. . . I didn't realize my text 'shifted' when I posted. My technicians get 'occurence rates' if they say, go home sick every Friday for 2 hours. . .2 hours doesn't add up to much, but doing it repeatedly does. If they take 2 days off in a row for being sick, they only get charged with '1' occurence. I hope that helps explain my dilema. There were supposed to be 'blanks' between some of those 'hours' posted in various cells.
c6, d6, e6, f6, g6, h6, i6, j6, k6, l6, m6, n6
8, , , 4, 8, , , , 8, 8, 8, That should only count as 3 occurences. realized I ranged the column the first time too, and it should be across row 6 where I'm counting my values.

[stnkynts]

If the previous post did not solve your question I would recommend you submit a copy of your workbook so I have a better idea what is occuring.

[blexor]

Okay, posting the spreadsheet now.

[stnkynts]

Try this custom function. There may be another way but this seems to work.

Function CountOccurance(row As Long)
Dim ws As Worksheet:    Set ws = Sheets("rolling")
Dim myRange As Range, rCell As Range
Dim Count As Long

Application.Volatile
Set myRange = ws.Range("C" & row, "NE" & row)
Count = 0

For Each rCell In myRange
    If Not IsEmpty(rCell.Value) Then
        If rCell.Column = 3 Then
            Count = Count + 1
        End If
        If rCell.Offset(0, -1).Value = "" Then
            Count = Count + 1
        End If
    End If
Next rCell

CountOccurance = Count

End Function

To use put the formula =CountOccurance(6) in cell NH6. Note that the 6 is for the row number. You will need to put a 7 for row 7, etc

[blexor]

Wow, great. I hit the forum up, because the code I was coming up with was going to take up several thousand lines (500 technicians all together). Thanks for your help with this. Saved me a ton of time; really appreciated.