NB: De samlede værdier og kundenr skrives i kolonne C & D Kode indsættes underrelevante ark (højreklik / vis programkode) Hvis ønskeligt kandu sende en mail - så returnerer jeg min model. @-adresse under profil. ------------------------
Dim antalRækker As Long, kundeNr, ptKundeNr, ræk As Long, værdier As String, ptVærdi As String Dim nyRæk As Long Public Sub fraRækkerTilKolonne() antalRækker = ActiveCell.SpecialCells(xlLastCell).row nyRæk = 2
For ræk = 2 To antalRækker ptKundeNr = Range("A" & ræk) ptVærdi = Range("B" & ræk)
If ræk = 2 Then kundeNr = ptKundeNr værdier = ptVærdi Else If ptKundeNr = kundeNr Then værdier = værdier + ptVærdi Else Range("C" & nyRæk) = kundeNr Range("D" & nyRæk) = værdier
kundeNr = ptKundeNr værdier = ptVærdi
nyRæk = nyRæk + 1 End If End If Next ræk
Rem sidste kunde Range("C" & nyRæk) = kundeNr Range("D" & nyRæk) = værdier
End Sub
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.