Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: optellen van cellen in een kolom  (gelezen 2950 keer)

0 leden en 1 gast bekijken dit topic.

Offline SMC

  • Nieuw lid
  • Berichten: 3
  • Geslacht: Man
  • Oplossing.be
optellen van cellen in een kolom
« Gepost op: 08 juli 2020, 15:13:11 »
Beste vrienden,
ik ben ben opzoek naar een oplossing voor het volgende probleem:

in een tabel heb ik 2 kolommen A en B.
ik zou graag waar de cellen in kolom A gelijk zijn , cellen in kolom B worden opgeteld.

uiteindelijk wil ik en mijn tabel telkens uniek cel in kolom A hebben en in kolom B moet de som zijn van dezelfde waarden in kolom A.

Hopelijk iemand kan me hierbij helpen.

Alvast bedankt

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.275
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: optellen van cellen in een kolom
« Reactie #1 Gepost op: 08 juli 2020, 15:51:59 »
SMC, welkom op dit forum.

Je vraag lijkt mij een gevalletje voor een Pivot Table (draai tabel). Zie bijlage.
Overigens staat je "quantity" als tekst en niet als getal. Die moet je wel ff omzetten naar getal voordat je met je Pivot kan werken.
______________________________

Groet, Leo

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: optellen van cellen in een kolom
« Reactie #2 Gepost op: 08 juli 2020, 16:29:30 »
Of
Sub dotch()
Set bib = CreateObject("Scripting.Dictionary")
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
    bib(Cells(x, 1).Value) = bib(Cells(x, 1).Value) + Cells(x, 2).Value
Next
Range("D2").Resize(bib.Count).Value = Application.Transpose(bib.Keys)
Range("E2").Resize(bib.Count).Value = Application.Transpose(bib.Items)
End Sub
Zoals Redhead al aangaf,quantity omzetten naar getal.

Offline SMC

  • Nieuw lid
  • Berichten: 3
  • Geslacht: Man
  • Oplossing.be
Re: optellen van cellen in een kolom
« Reactie #3 Gepost op: 13 juli 2020, 12:42:08 »
Dank u RedHead,
Dank u Dotchiejack.

ik heb beide getest en het gaat wel. het is raar als ik de kolom quantity selecteer en via cel properties de cel waarde naar nummer aanpas dan leuk het niet.
ik moet de driehoek in de cel waar de foutmelding aangeeft gebruiken om de cel naar nummer verander. dit heb ik voor alle cellen in deze tabel gedaan, natuurlijk met een totaal selectie.

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: optellen van cellen in een kolom
« Reactie #4 Gepost op: 13 juli 2020, 15:50:48 »
Kleine macro om alle tekst om te zetten naar getal in kolom quantity
Sub dotch()
With Worksheets("vb1").Columns(2)
    .NumberFormat = "0"
    .Value = .Value
End With
End Sub

Offline SMC

  • Nieuw lid
  • Berichten: 3
  • Geslacht: Man
  • Oplossing.be
Re: optellen van cellen in een kolom
« Reactie #5 Gepost op: 14 juli 2020, 18:33:34 »
Dank u vriend.
het is stuk beter wanneer er oplossingen zijn.

nogmaals bedankt Dotchiejack

mvg

Saeed MIRZAIE

 


www.combell.com