Lav en oversigt over fejl ved hjælp af vba

=SUMPRODUKT((A1:A100="Allan")*(B1:B100=610)*(D1:D100>=DATO(2007;1;1))*(D1:D100<=DATO(2007;1;31)))

Går ud fra du laver en opstilling med navne fejl og dato
Sellerne med disse oplysninger/seller flettes så ind i formlen

Nej, jeg laver en opstilling med personens navn og afkast, da den jeg skal bruge er hvormange fejl de forskellige lavet i et afkast pr måned, således man måske kan gøre et eller andet for at formindske fejlene i et afkast. Datoen for fejlen har ingen betyde i den situation.

I hvilket område skal formlen så tælle fejl ?

I ark1 har jeg fejllisten som bliver udskifte hver dag og hvor alle oplysninger ligger. Fejllisten består af en kolonne med afkast, dato/klokkeslæt, navnet på personen som har lavet fejl. I ark2 vil jeg gerne have lavet en opsummering af oplysninger fra ark1, således jeg kan se, hvor mange fejl de forskellige laver i forskellige afkast i løbende af en måned basis af oplysningerne fra ark1.

Ja - det ligner noget, som jeg har haft fat i tidligere.
Forslag:
Oprette en særlig xls.fil (FejlStatisik) pr. år.
- Et ark pr.måned, hvor optællingen foretages pr. afkast - pr. person

Er det sådan du kunne forestille dig det?

Ja, det er så.

P.t. På ark2 i Fejlliste5: (kan evt. ændres til separat fil)
I række1
A.......B......C
Medarb.  601 ...602 osv (afkastnr i hver sin celle)

Følgende kode i Ark2:
Sub opbygFejlStatistik()
    hentFejl
End Sub
Private Sub hentFejl()
Dim antaRæk, afkast, medarbejder
    ActiveWorkbook.Sheets(1).Activate
    With ActiveWorkbook.Sheets(1)
        antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
        For ræk = 2 To antalRæk
            afkast = .Cells(ræk, 2)
            medarbejder = .Cells(ræk, 7)
           
            If medarbejder <> "" Then
                opdaterfejl afkast, medarbejder
            End If
        Next ræk
    End With
   
    ActiveWorkbook.Sheets(2).Activate
    MsgBox ("Optælling af fejl afsluttet")
End Sub
Private Sub opdaterfejl(afk, medarb)
Dim mRæk
    mRæk = findMedarbejder(medarb)
    optælFejl mRæk, afk
End Sub
Private Function findMedarbejder(medarb)
Dim ræk
    ræk = 2
    While Cells(ræk, 1) <> ""
        If Cells(ræk, 1) = medarb Then
            findMedarbejder = ræk
            Exit Function
        End If
        ræk = ræk + 1
    Wend
   
    Cells(ræk, 1) = medarb
    findMedarbejder = ræk
End Function
Private Sub optælFejl(ræk, fejl)
Dim kol
    kol = (fejl - 601) + 2
    Cells(ræk, kol) = Cells(ræk, kol) + 1
End Sub

Tak for hjælpen supertekst. Smid lide et svar

Selv tak - det får du