Userform sorteren combobox

[wheel]

Beste experts,

In het bijgevoegde bestand ben ik al een heel eind opgeschoten, dankzij jullie hulp. Er is echter nog een aantal zaken waar ik niet uitkom.

Situatie:
1. Door middel van de knop 'kaart' roep ik een medewerkerkaart op. Hier heb ik een aantal knoppen gemaakt.
2. De knop 'verberg oud medewerker' verbergt alle rijen die zijn voorzien van een rode tekst. De knop 'toon oud medewerker' laat die rijen weer zien.
3. 'Sorteren op naam' en 'sorteren op team' is door middel van een macro gemaakt en wat aangepast. De codes zullen wel veel te omslachtig zijn, maar het werkt voor mij. :d

Probleem:
1. Wat ik graag zou willen, is dat in het userform bij de 'achternaam' altijd wordt gesorteerd op naam, ongeacht de sortering in het werkblad.
2. Alle namen van oud medewerkers zijn ook zichtbaar bij de 'achternaam'. Dit is niet handig. Zou het mogelijk zijn om de namen zichtbaar te maken als de desbetreffende selectie daarvoor is gemaakt en ook omgekeerd?

Daarna wil ik me gaan bezighouden met een knop 'wijzigen' en 'toevoegen' op het userform, zodat van daaruit gegevens gewijzigd of toegevoegd kunnen worden.

Alvast bedankt, Wheel.

 

[wheel]

Beste experts,

Ik ben al een stukje verder. Volgens mij heb ik probleempje 1 opgelost middels de onderstaande code die ik ergens heb gevonden (schrijver van die code is Warme Bakkertje :d)

Private Sub UserForm_Initialize()
With Sheets("Gegevens")
    sq = .Range("A3:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
For lLoop = 1 To UBound(sq)
    For lLoop2 = lLoop To UBound(sq)
        If UCase(sq(lLoop2, 1)) < UCase(sq(lLoop, 1)) Then
            str1 = sq(lLoop, 1)
            str2 = sq(lLoop2, 1)
            sq(lLoop, 1) = str2
            sq(lLoop2, 1) = str1
        End If
    Next lLoop2
Next lLoop
ComboBox1.List = sq
End Sub

Probleem 2 kom ik niet uit. Wie kan me daarbij helpen?

Thnx, wheel

 

[wheel]

Misschien handig om het bijgewerkte bestandje even te plaatsen.

 

[wheel]

Waarschijnlijk was mijn vraagstelling niet helemaal duidelijk, zoals ik het bedoel.

Het probleem waar ik nu niet uitkom, is het volgende:

Ik wil graag dat de lijst in de combobox zich aanpast als de rijen met rode tekst zijn verborgen. Dus dat de namen uit kolom A dan niet zichtbaar zijn in de comboboxlijst. Als de rijen wel zichtbaar zijn, dan past de combobox zich hier weer op aan.

Ik heb al heel wat (Engelstalige) forums overhoop gehaald op zoek naar een antwoord, maar van deze blijf ik verstoken.

Wie o wie heeft een geniaal idee?

Thnx, Wheel

 

[ExcelAmateur]

wheel,

Ik weet niet of je er wat mee kunt maar deze code heb ik opgenomen.
Tevens heb ik er een blad bijgezet Blad1.
Hij maak een copy van de zichtbare cellen in het bereik.
Het zal best wel wat korter kunnen denk ik.
Hier de code:

Sub Macro2()
    Sheets("Gegevens").Range("A3:A17").SpecialCells(xlCellTypeVisible).Copy
    Sheets("Blad1").Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A1").Select
End Sub

Ik heb dit in je file verwerkt, het zal niet de mooiste oplossing zijn maar het werkt zoals je wil, denk ik.

 

[wheel]

Al is het niet de mooiste oplossing, zoals je zegt, als het maar werkt. Het lijkt te werken idd. Mijn dank is groot :thumb:

Hoe zou een mooie oplossing er dan uitzien? :d Ben benieuwd!

 

[ExcelAmateur]

Hoe zou een mooie oplossing er dan uitzien? Ben benieuwd!

Daarvoor moet je niet bij mij zijn hoor.
Er zijn hier specialisten op het gebied van VBA en als die het bekijken zullen ze de code misschien beter maken.
Zoals je al zegt het werkt zoals je wil en daar gaat het om.