Gruppering af data

Skal det forstås således:
A    B            C        Omsætning
300  Firmanavn 1  Filial 1      100
    Firmanavn 1  filial 2      200
300  Firmanavn 2  Filial 1      100
    Firmanavn 2  filial 2      200

således, at kolonne A er reserveret til "firma-total"  v/brud på fimanavn i kolonne B?

Hej
Det er måske lidt bøvlet skrevet
Jeg har 4 kolonner A-B-C-D
Kolonne A = ID kolonne hvor hver kunde har et fortløbende nummer, jeg har den kun med fordi jeg har fået opfattelsen af at denne kolonne er nødvendig for at kunne gøre det jeg ønsker. Den kan i princippet slettes
Kolonne B = hovedfirmanavn
Kolonne C = navn på filial
Kolonne D = omsætning på filial (det er den der skal summeres op på hovedfirmanavn)

Tak for hurtig respons

jeg har faktisk flere omsætningstal fordelt på forskellige områder i kolonne e,f,g,h, osv
men jeg regner med at de også summeres ligesom kollonne D

Hvis hovedfirmanavn er entydigt er id ikke nødvendig - altså ok at vises summen i kolonne A?

tak, jeg ville helst have summeringerne ligger til højre for hhv. hovedfirmanavn og filial

På forhånd taki

Version 1 - koden anbringes i Ark1/VBA (Alt+F11)

Const førsteRække = 1                  'række hvor første firma er anført - tilpasses
Dim antalRæk, firmaTotal As Single, firma As String, firmaStart
Sub FirmaOptælling()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    firma = ""
    firmaTotal = 0
    firmaStart = førsteRække
   
    For r = førsteRække To antalRæk
        If firma = "" Then
            firma = Cells(r, 2)
            firmaTotal = Cells(r, 4)
        Else
            If Cells(r, 2) <> firma Then
                Cells(firmaStart, 5) = firmaTotal
                Cells(firmaStart, 5).Font.Bold = True
               
                firmaTotal = Cells(r, 4)
                firma = Cells(r, 2)
                firmaStart = r
            Else
                firmaTotal = firmaTotal + Cells(r, 4)
            End If
        End If
    Next r
   
Rem sidste total
    Cells(firmaStart, 5) = firmaTotal
    Cells(firmaStart, 5).Font.Bold = True
   
    Columns.AutoFit
    Cells(førsteRække, 1).Select
   
    MsgBox ("Optælling er afsluttet")
End Sub

tak - jeg prøver den lige af

Hej Supertekst
den summerer fint på hovedfirma (dog altid kr. 0,00) , men den summerer altså ikke ikke værdien af kolonne C

Nu er jeg ikke erfaren bruger af dette forum - men kunne du tænke dig at se selve det ark, som skal være resultatet > måske at det giver et bedre indblik

Men det skal selvfølgelig være hvis du har lyst - jeg er meget taknemmelig for hjælpen hidtil

A.......B.......C........D.............E...............
1    Firma 1    Filial 11    100,00     600,00
    Firma 1    Filial 12    200,00    
    Firma 1    Filial 13    300,00    
2    Firma 2    Filial 21    400,00     400,00
3    Firma 3    Filial 31    500,00     1.100,00
    Firma 3    Filial 32    600,00    

Sådant ser min test ud

Ja tak - kan vises her eller sendes til: pb@supertekst-it.dk

Alternativ forslag:

Lav en liste med Firmaer i kolonne F

F2=Firma 1
F3=Firma 2
osv.

så indsæt følgende formel i G2 og kopier ned
=SUMPRODUKT(($B$2:$B$1000=F2)*($D$2:$D$1000))