maybe you can adapt something from this. change the sheet references and the
location for the formulas, i have them starting on sheet2 cell A1.

Option Explicit

Sub emp_formulas()
Dim ws As Worksheet, ws2 As Worksheet
Dim i As Long, z As Long
Dim lastrow As Long
Set ws = Worksheets("Sheet1")
Set ws2 = Worksheets("sheet2")
lastrow = ws.Cells(Rows.Count, "E").End(xlUp).Row
z = 1

For i = 9 To lastrow Step 5
ws2.Range("A" & z).Formula = "=SUMPRODUCT(--(Sheet1!E" & i & ":IV" &
i & _
"=1),--(Sheet1!E" & i + 2 & ":IV" & i + 2 & "=""D""))"
z = z + 1
Next

End Sub

--


Gary


"St@cy" wrote in message
...
Oh, thank you! This did calucate my first employee. Now, I need to copy the
formula down the column with OFFSET some how in the mix.
Rows 9 & 11, 14 & 16, 19 & 21, .... See the pattern?

"Gary Keramidas" wrote:

this formula on sheet2 will count the number of D's in row 11 if row 9 has a
1
in it


=SUMPRODUCT(--(Sheet1!E9:IV9=1),--(Sheet1!E11:IV11="D"))
--


Gary


"St@cy" wrote in message
...
I need to count the number of disconnects, "D"s, in for each employee in the
month of x. Each employee info takes a total of five lines. The row
indicating the month is two lines above the type, where the "D"s would be
located. The formula will be on a different sheet than the data and copied
down the column. Please help me with the right functions and/or macro.

Example:
'QA Input'
D E F .....IV
8 Employee1
9 Month 1 1 3
10 WO#
11 Type D D S
.
.
13 Employee2
14 Month
15 WO#
16 Type