Sum med kriterier

=A2+A4+A7+A8

undskyld, B selvfølgelig

Du kan lave en fjerde kolonne, hvor du laver den hvis-formel der tjekker pallenr.
eks. =hvis(a2=a3;0;b1)

derefter summerer du denne fjerde kolonne, så vil du kun få pallen med en gang, vel og mærket hvis du har sorteret listen inden du tilføjer hvis-formlen i fjerde kolonne.

ASKIMS

Det var meningen, at det skulle have været et svar!

Du skal sortere din liste efter pallenr. Hvorefter du tilføjer hvis-formlen i D-kolonen.

Jeg har noget VBA-kode, der også løser problemet, men det kræver, at man har lidt kendskab til VBA, så hvis du er interesseret, må du lige sige til.

Askims> forsøger lige om jeg kan finde ud af det, med den fjerde kolonne - og det virker fint.

Du må meget gerne maile mig det VBA du har. Ikke noget, jeg har kendskab til, men jeg vil da gerne lære. cbarsoe@hotmail.com

klatten

Er det en Access97 database? I givet fald kan du programmere det hele i databasen, og derfra sende data over i Excel og tælle totalvægt ved hjælp af VBA.

Jeg vil ikke bruge tid på at lave det hvis du ikke er interesseret, så smid lige en mail.

Mvh / Mugs

Hej igen.

VBA (Visual Basic for Applications) er det kodesprog xl er bygget på. Det kan godt være lidt forvirrende at kigge på når man ikke har en lille smule kendskab til det, men når du nu gerne vil have det så kommer koden her:

Public Sub Sletdupletter()
\' Marker det område, hvor du ønsker at slette dublet-rækker og kør makroen
Dim r As Long
Dim N As Long
Dim V As Variant
Dim Rng As Range

On Error GoTo EndMacro
\'Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
\'    Range(\"a9\").Select
\'    Range(Selection, Selection.End(xlDown)).Select
If Selection.Rows.Count > 1 Then
    Set Rng = Selection
Else
    Set Rng = ActiveSheet.UsedRange.Rows
End If

N = 0
For r = Rng.Rows.Count To 1 Step -1
    V = Rng.Cells(r, 1).Value
    If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
        Rng.Rows(r).Delete Shift:=xlUp
        N = N + 1
    End If
Next r
EndMacro:
\'Application.ScreenUpdating = True
\'Application.Calculation = xlCalculationAutomatic
End Sub

Håber du kan bruge til et eller andet.

ASKIMS

ASKIMS> tak, jeg prøver om jeg kan finde ud af, hvad det drejer sig om. Nysgerrig er jeg jo!!!

mugs> ellers tak mugs. Det er ikke Access, men et oldnordisk databaseprogram, der er tilknyttet vor produktion. Havde det været Access, havde jeg selv løst problemet.