Verzuimrapport met VBA

[AD1957]

Misschien kun je hier verder mee.
Maak maar eens een selectie in de ComboBoxen.
Door de codes in de ComboBoxen. aan te passen kun je de filtering zelf aanpassen (met name 1e coderegel)
p.s. jouw code heb ik niet bekeken.

 

[Michiel82]

Bedankt! Hier kom ik een stuk verder mee.

Kan je ook aangeven hoe ik alleen unieke waarden naar voren kan krijgen? Op basis van Kolom "A" wil ik namelijk filteren. De kolommen B t/m G zijn altijd gelijk aan de unieke waarde in kolom A.

Ik vermoed dat ik hier iets mee moet doen:

ListBox1.List = Sheets("Database").ListObjects(1).DataBodyRange.Value

Wat ik eerder heb geprobeerd is de onderstaande code. Hier krijg ik wel unieke waarde naar boven, maar werd de listbox niet goed gevuld.

Dim MyList As Collection
Dim MyRange As Range
Dim ws As Worksheet
Dim MyVal As Variant

Set ws = ThisWorkbook.Sheets("Database")
Set MyRange = ws.Range("A2", "A" & ws.Range("A2").End(xlDown))
Set MyList = New Collection

On Error Resume Next
For Each myCell In MyRange.Cells
MyList.Add myCell.Value, CStr(myCell.Value)
Next myCell

On Error GoTo 0

For Each MyVal In MyList
Me.ListBox1.AddItem MyVal
Next MyVal

 

[AD1957]

Als je alleen de dossiernummers wilt zien in de listbox zet dan de columnwidths van de andere op nul.

 

[VenA]

Voor unieke dossiernummers

Sheets("Database").ListObjects(1).Range.Columns(1).AdvancedFilter xlFilterCopy, , Sheets("List").Cells(1, 6), True
    ComboBox4.List = Sheets("List").Columns(6).SpecialCells(2).Offset(1).SpecialCells(2).Value
    Sheets("List").Columns(6).Clear