dubbele waarden samenvoegen en hoeveelheden van samengevoegde cellen optellen

[djoex]

Hallo beste mensen,

Ik een probleem met een vba-formule. Ook heb ik geprobeerd met ALS.FOUT functie dit te bewerkstelligen, echter levert dit ook geen resultaat op. Ik heb de functie in de cel F2 in het voorbeeld laten staan. Het probleem met de vba-formule is misschien nog wel eenvoudig op te lossen.

Als de te samenvoegen artikelcode boven de A80000 komt, dan kan de vba-formule ook het totaal zoals hij zou moeten berekenen van de samengevoegde hoeveelheid niet meer op tellen. En krijg ik de melding #NAAM? in de cel te zien.

Helaas gaat mijn vba-kennis niet zover dat ik dit voor elkaar krijg. Misschien dat iemand van jullie een idee heeft?

De artikelomschrijving heb ik voor het overzichtelijk te houden ingekort tot 1 woord.

Wat ik graag wil is een overzichtelijk overzicht. Waar elk artikel 1 keer voorkomt en de hoeveelheidkolom opgeteld wordt van de artikelen die samengevoegd worden.

De kolommen a tot en met e worden automatisch gevuld. Het zou mooi zijn dat wanneer deze kolommen gevuld worden, ook automatisch de macro start met het verkorten van de automatisch geladen lijst. Dit mag op hetzelfde tabblad een paar kolommen verderop. Deze gegevens zijn weer voor een andere toepassing nodig en derhalve voldoet een draaitabel niet.

Ik hoop dat iemand mij kan helpen?

Bekijk bijlage voorbeeld.xlsm

 

[VenA]

Je hebt hier geen code voor nodig (die overigens wel werkt). Maak gebruik van een draaitabel.

 

[HSV]

Hallo beste mensen,

Deze gegevens zijn weer voor een andere toepassing nodig en derhalve voldoet een draaitabel niet.

Ik hoop dat iemand mij kan helpen?

Bekijk bijlage 249337

Daar is Ts zo te zien niet mee geholpen.

 

[VenA]

Laatste paar woorden uit en lang verhaal ff gemist Je hebt natuurlijk al wel de oplossing geplaatst?

 

[HSV]

Niet nodig; code werkt goed toch? zoals je schreef.

 

[VenA]

Dan is jouw tussenkomst tot nu toe vrij nutteloos en had de TS zelf kunnen melden dat ik de vraag verkeerd gelezen of een verkeerde conclusie getrokken heb.

Fijn weekend HSV.

 

[HSV]

Zo zijn er wel meer van jouw kant.
Van hetzelfde!

 

[djoex]

Hallo Mensen,

Bedankt voor jullie antwoord en oplossingen. Schijnbaar heb ik niet goed opgelet. Want inderdaad de vba werkt.
Toch bedankt allemaal!

 

[HSV]

Hier nog een iets eenvoudiger code.

Sub hsv()
sn = Cells(1).CurrentRegion
 With CreateObject("scripting.dictionary")
    For j = 1 To UBound(sn)
      .Item(sn(j, 2)) = .Item(sn(j, 2)) + sn(j, 5)
    Next
   Cells(1, 7).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
 End With
End Sub

 

[Timshel]

Schijnbaar heb ik niet goed opgelet. Want inderdaad de vba werkt.

Aan je oplettendheid ligt het niet. De fout uit je openingspost doet zich voor als je het bestand opslaat als .xls en dan voor artikelnummers vanaf A65536. Go figure.

Een oplossing met formules behoort ook tot de mogelijkheden: