• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Unieke_lijst_met aantallen

Status
Niet open voor verdere reacties.
J

jmv

Gebruiker
Lid geworden
19 jun 2010
Berichten
64
Beste,
Heb een bestandje dat unieke namen in een lijst zet samen met het aantal, het werkt prima, het geeft echter een foutmelding als er cellen worden gekopieerd.

Hopelijk heeft er iemand met een oplossing, het is in Excel VBA

groeten, Jos,

Bekijk bijlage Unieke_lijst_met aantallen.xlsm
 
Ik wil niet veel zeggen, maar met een bloedsimpele draaitabel trek je die getallen er zonder macro gewoon uit.
 
Kijk maar...
 

Bijlagen

  • Unieke_lijst_met aantallen.xlsx
    122,7 KB · Weergaven: 27
Anders toch.
Resultaat in range("H6:I&verder naar onderen).
Code: 
Sub hsv()
Dim sn, i As Long
sn = Range("D6", Range("D6").End(xlDown))
 With CreateObject("scripting.dictionary")
  For i = 1 To UBound(sn)
   .Item(sn(i, 1)) = .Item(sn(i, 1)) + 1
  Next i
  Range("H6").Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
End With
End Sub
 
Bedankt voor uw voorstellen.
Maar ik had graag de reden gekend waarom mijn programmetje een foutmelding geeft.
Groetjes, Jos,
 
Daar is je fout:
Code: 
Set rnSource = .Range(.Range("D6"),[COLOR=#0000ff] .Range("D5005").End(xlUp)[/COLOR])

Code: 
Set rnSource = .Range(.Range("D6"),[COLOR=#0000FF] .Cells(Rows.Count, 4).End(xlUp)[/COLOR])

Oftewel:
Code: 
Set rnSource = .Range("D6", .Cells(Rows.Count, 4).End(xlUp))
 
Laatst bewerkt:
Harry bedankt voor het opzoeken van de foute regel.
Groetjes Jos,
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan