Hi,

(Excel)
I'am trying to program a program which generates a summary table of raw data in another worksheet.

The raw worksheets contains information concerning staff clocking.

for example:
Code:
Name              Date In            Date Out          Delta Hours    Absence Hours
Mister X          01/06/09          01/06/09                  2   
Mister X          02/06/09          01/06/09                  2     
Mister X          03/06/09          01/06/09                                  2
...                  
Mister X          30/06/09          30/06/09                  8                
Mister Y          01/06/09          01/06/09                  2   
...
The raw data table contains over 9000 rows, for all staff members. Each day has it's own row.

On the recap timesheet I would like to create a recap table:

Name 01/06/09 02/06/09 03/06/09 ...
Mister X 2 2 0
Mister Y 2

I created following code, however it doesn't seems to work.
WS= recap worksheet
WB.Worksheets(2)= raw data worksheet.
The program is ran from an ms access form

Code:
Dim jRow As Integer
For iRow = 2 To WS.Range("A" & WS.Rows.Count).End(xlUp).Row Step 1
For iColumns = 2 To Daycount Step 1

For jRow = 3 To WB.Worksheets(2).Range("A" & WB.Worksheets(2).Rows.Count).End(xlUp).Row Step 1
If WB.Worksheets(2).Range("A" & jRow).Value = WS.Range("A" & iRow).Value Then
WS.Cells(iRow, iColumns).Value = WB.Worksheets(2).Range("N" & jRow).Value

End If
Next

Next