Jeg har følgende data (kolonne a,b,c) som jeg ønsker at få grupperet efter kolonne a med en disposition ala den som dannes ved Gruppér-kommandoen - udfordringen er at jeg har rigtig mange data, så det skal nok være en VB-code af en art. Jeg vil helst undgå at indsætte blanke linier til summering, men kan det lade sig gøre at at summere omsætningen per firmanavn i rækken hvor der står hhv. 1 eller 2
A B C Omsætning 1 Firmanavn 1 Filial 1 100 Firmanavn 1 filial 2 200 2 Firmanavn 2 Filial 1 100 Firmanavn 2 filial 2 200
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)
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
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
så indsæt følgende formel i G2 og kopier ned =SUMPRODUKT(($B$2:$B$1000=F2)*($D$2:$D$1000))
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
