zelfde namen met bijbehorende getallen tot een regel maken

[ewh]

Hallo,

we hebben een uitdraai van de telefoon rekening gekregen ( 22000 ) regels

de naam wordt weer gegeven per dag en de bij behorende kosten ( sms , bellen enzo )

we willen dat de naam maar een keer voor komt en op dezelfde regel de totale kosten van de man

een voorbeeld bestandje is bij gevoegd

ik hoop dat jullie me kunnen helpen

 

[popipipo]

Heb je al gekeken naar een draaitabel??

 

[ewh]

popipipo, daar heb ik wel aan gedacht maar krijg het niet voor elkaar, daarbij komt dat zo wat elke excel versie weer een eigen draaitabel heeft . ik had gehoopt iets met vba of formules te kunnen doen

 

[gast0660]

Hoi,
Je kan het ook met SOM.ALS.
In bijlage een vbtje
Laat maar weten als iets niet duidelijk is
Greetz

 

[ewh]

bedankt , daar kan ik wel wat mee

 

[snb]

Lijkt me een typisch gevalletje voor een dictionary:

Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion
   
  With CreateObject("scripting.dictionary")
    For j = 2 To UBound(sn)
      sp = Array(sn(j, 1), sn(j, 9), sn(j, 11))
      If .exists(sn(j, 1)) Then
        sq = .Item(sn(j, 1))
        sp(1) = sp(1) + sq(1)
        sp(2) = sp(2) + sq(2)
      End If
         
      .Item(sn(j, 1)) = sp
    Next
      
    Sheet2.Cells(1).Resize(.Count, 3) = Application.Index(.items, 0, 0)
  End With
End Sub

 

[ewh]

SNB,
dit is wat ik zocht
was er overigens nooit zelf opgekomen, bedankt

 

[snb]

'Alles' over Dictionaries:

http://www.snb-vba.eu/VBA_Dictionary.html