Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: unieke items sorteren

  1. #1
    Junior Member
    Geregistreerd
    19 januari 2016
    Locatie
    Kudelstaart
    Afstand tot server
    ±121 km
    Vraag is opgelost

    unieke items sorteren

    Hallo

    ik probeer in excel 2016 via een makro een optelling te maken van aantal stuks produkten
    ik heb een makro geleend van het forum waar zoiets al gedaan is maar dan met cijfers in plaats van letters
    ik krijg echter een foutmelding
    de bedoeling is om in kolom b unieke items te maken die in kolom a opgeteld worden en/ of in kolom e het totaal aantal stuks weergeeft
    de unieke aantallen werkt wel met deze makro ,alleen het optellen in a werkt niet
    optellen in a kan ook overgeslagen worden als totaal in kolom e maar klopt

    wie zou mij hier mee kunnen helpen

    Gert
    Attached Files Attached Files
    Laatst aangepast door meijerg56 : 12 september 2017 om 21:55

  2. #2
    Kun je van de titel van de draad svp begrijpelijk Nederlands maken ?
    VBA voor smarties

    VBA is een taal die je moet leren met een grammatica- en een woordenboek.
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  3. #3
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Hoofdletters en leestekens helpen ook.
    Je zegt een foutmelding te krijgen. Vertel er ook bij welke dat exact is.
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

  4. #4
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Is toch iets voor een draaitabel?

    Met code kan ook. Om het gelijk binnen een collection te sorteren kan je vinden op de site van snb. De code kan wel eenvoudiger maar nu kan je het vergelijken met de draaitabel.

    Code:
    Sub VenA()
      ar = Sheets("blad 1").ListObjects(1).DataBodyRange
      With CreateObject("Scripting.Dictionary")
        For j = 1 To UBound(ar)
          If Not .Exists(ar(j, 1)) Then .Item(ar(j, 1)) = ar(j, 2) Else .Item(ar(j, 1)) = .Item(ar(j, 1)) + ar(j, 2)
        Next j
        Sheets("blad 1").Cells(3, 1).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
        Sheets("blad 1").Cells(3, 1).Resize(.Count, 2).Sort Sheets("blad 1").Cells(3, 1), , , , , , , xlNo
      End With
    End Sub
    Attached Files Attached Files
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    De code kan inderdaad wel zonder:
    Code:
    If Not .Exists(ar(j, 1)) Then .Item(ar(j, 1)) = ar(j, 2) Else
    ____________
    mvg,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  6. #6
    Junior Member
    Geregistreerd
    19 januari 2016
    Locatie
    Kudelstaart
    Afstand tot server
    ±121 km
    Bedankt allen
    een draaitabel was inderdaad de eenvoudigste oplossing

    Gert

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen