DarkValley
Gebruiker
- Lid geworden
- 11 jan 2007
- Berichten
- 59
Beste VBA'ers
Ik heb een macro gemaakt welke via een ListBox een overzicht geeft van de klanten die een bestelling hebben gedaan. Deze tool werkt op zich prima. Ik kan (een) klant(en) selecteren en de macro gaat ermee aan de gang.
De data in dit voorbeeld bestand wordt telkens aangevuld. (normaliter draait deze macro los van het data bestand)
Ik heb een deel van initialisatie even uit de totale macro gehaald om het overzichtelijker te maken.
Dit gedeelte van de code doet het volgende:
Leest de waarde uit kolom 5 en vult dan de ListBox met UNIEKE waarden (het kolom nummer is in de code aan te passen).
Ik zou graag willen dat in kolom 2, van ListBox, het aantal bestelde regels zichtbaar wordt (AANTAL.ALS gebaseerd op waarde kolom 5) en deze kolom word gesorteerd (hoog/laag). Dan kan ik besluiten om de klant met de meeste regels af te drukken of nog even te wachten tot er meer regels bij zijn gekomen.
Let op ! bij het openen van het bestand wordt een invoegtoepassing aangemaakt genaamd "Picklist Tool"
Ik ben al wel redelijk bekend met VBA maar dit gaat toch nog ff te ver wat betreft mijn kennis.
Hoop dat iemand mij kan helpen.
Groet,
Jeffrey
Ik heb een macro gemaakt welke via een ListBox een overzicht geeft van de klanten die een bestelling hebben gedaan. Deze tool werkt op zich prima. Ik kan (een) klant(en) selecteren en de macro gaat ermee aan de gang.
De data in dit voorbeeld bestand wordt telkens aangevuld. (normaliter draait deze macro los van het data bestand)
Ik heb een deel van initialisatie even uit de totale macro gehaald om het overzichtelijker te maken.
Dit gedeelte van de code doet het volgende:
Leest de waarde uit kolom 5 en vult dan de ListBox met UNIEKE waarden (het kolom nummer is in de code aan te passen).
Ik zou graag willen dat in kolom 2, van ListBox, het aantal bestelde regels zichtbaar wordt (AANTAL.ALS gebaseerd op waarde kolom 5) en deze kolom word gesorteerd (hoog/laag). Dan kan ik besluiten om de klant met de meeste regels af te drukken of nog even te wachten tot er meer regels bij zijn gekomen.
Let op ! bij het openen van het bestand wordt een invoegtoepassing aangemaakt genaamd "Picklist Tool"
Code:
Private Sub UserForm_Initialize()
Range("A1").Select
On Error Resume Next
Dim lng As Long
Dim col As New Collection
'haal unieke data uit huidig bestand
lng = 2 'vanaf regel inlezen in collectie
Do Until Cells(lng, 5).Value = "" '5 is het kolom nummer
col.Add Cells(lng, 5), Cells(lng, 5).Text
lng = lng + 1
Loop
'wegschrijven data in Listbox1
lng = 0 'begin bij eerst regel in listbox
For lng = 1 To col.Count
Me.ListBox1.AddItem col(lng)
Next
End Sub
Ik ben al wel redelijk bekend met VBA maar dit gaat toch nog ff te ver wat betreft mijn kennis.
Hoop dat iemand mij kan helpen.
Groet,
Jeffrey