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?
> this formula on sheet2 will count the number of D's in row 11 if row 9 has a 1
> in it
[quoted text clipped - 19 lines]
> > 15 WO#
> > 16 Type
Gary Keramidas - 26 Jan 2007 06:13 GMT
what row and column will contain these formulas on the 2nd page?

Signature
Gary
> 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.
[quoted text clipped - 24 lines]
>> > 15 WO#
>> > 16 Type
St@cy - 26 Jan 2007 06:35 GMT
J3 for Employee 1
J4 for Employee 2
.
.
etc.
> what row and column will contain these formulas on the 2nd page?
>
[quoted text clipped - 26 lines]
> >> > 15 WO#
> >> > 16 Type
Gary Keramidas - 26 Jan 2007 07:22 GMT
here you are:
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 = 3
For i = 9 To lastrow Step 5
ws2.Range("J" & z).Formula = "=SUMPRODUCT(--(Sheet1!E" & i & ":IV" &
i & _
"=1),--(Sheet1!E" & i + 2 & ":IV" & i + 2 & "=""D""))"
z = z + 1
Next
End Sub

Signature
Gary
> J3 for Employee 1
> J4 for Employee 2
[quoted text clipped - 37 lines]
>> >> > 15 WO#
>> >> > 16 Type
Gary Keramidas - 26 Jan 2007 07:35 GMT
hopefully this one won't wrap
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 = 3
For i = 9 To lastrow Step 5
ws2.Range("J" & z).Formula = "=SUMPRODUCT(--(Sheet1!E" & i & ":IV" & i & _
"=1),--(Sheet1!E" & i + 2 & ":IV" & i + 2 & "=""D""))"
z = z + 1
Next
End Sub

Signature
Gary
> here you are:
>
[quoted text clipped - 59 lines]
>>> >> > 15 WO#
>>> >> > 16 Type
St@cy - 26 Jan 2007 15:09 GMT
I change the sheet names, but this appears to be a procedure. I think I need
a function.?? =DisconnectCount(MonthSelected)
Sub DisconnectCount(MonthSelected)
Dim ws As Worksheet, ws2 As Worksheet
Dim i As Long, z As Long
Dim lastrow As Long
Set ws = Worksheets("QA Input")
Set ws2 = Worksheets("Monthly Report")
lastrow = ws.Cells(Rows.Count, "E").End(xlUp).row
z = 3
For i = 9 To lastrow Step 5
ws2.Range("J" & z).Formula = "=SUMPRODUCT(--('QA Input'!E" & i & ":IV" & i
& _
"=MonthSelected),--('QA Input'!E" & i + 2 & ":IV" & i + 2 & "=""D""))"
z = z + 1
Next
End Sub
> hopefully this one won't wrap
>
[quoted text clipped - 78 lines]
> >>> >> > 15 WO#
> >>> >> > 16 Type
Gary Keramidas - 26 Jan 2007 23:25 GMT
you can either repost here or better yet, post in the excel function newsgroup.
this is generally for programming solutions, though the function experts read
here, too.

Signature
Gary
>I change the sheet names, but this appears to be a procedure. I think I need
> a function.?? =DisconnectCount(MonthSelected)
[quoted text clipped - 103 lines]
>> >>> >> > 15 WO#
>> >>> >> > 16 Type
Gary Keramidas - 26 Jan 2007 06:23 GMT
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

Signature
Gary
> 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.
[quoted text clipped - 24 lines]
>> > 15 WO#
>> > 16 Type