1e combobox dubbele waarden verwijderen

[Boeije]

Hallo,

Ik wil een combobox alleen unieke waarden laten zien en een 2e combobox alleen de waarden laten zien die corresponderen met de waarde in combobox 1.

Ook wil ik de omschrijving als direct resultaat na invullen laten zien (ter controle voor de gebruiker).

Als dit werkt moet de volgende stap zijn om de corresponderende gegevens in een ander werkblad op te halen (de tabbladen hebben de naam van de artikelgroep).

Alvast bedankt voor de hulp.Bekijk bijlage Form_comboboxen1.zip

 

[HSV]

In Userform-module.
Verwijder de Rowsource in de eigenschappen van de comboboxen.

Private Sub UserForm_Initialize()
With CreateObject("System.Collections.ArrayList")
sq = Sheets("sheet1").Columns(1).SpecialCells(2).Offset(1).Columns(1).SpecialCells(2)
For Each cl In sq
   If Not IsError(cl) And Not .contains(cl) Then .Add cl
 Next cl
  Artikelgroep.List = .toarray()
 End With
End Sub
Private Sub Artikelgroep_Change()
With Sheets("sheet1").Columns(1)
   Set c = .Find(Artikelgroep, , xlValues, xlWhole)
 firstaddress = c.Address
    If Not c Is Nothing Then
 Do
    strg = strg & "|" & c.Offset(, 1)
    Set c = .FindNext(c)
 Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
   ComboBox3 = vbNullString
   ComboBox3.List = Split(Mid(strg, 2), "|")
    End With
End Sub
Private Sub ComboBox3_Change()
 TextBox1 = Sheets("Sheet1").Columns(2).Find(ComboBox3, , xlValues, xlWhole).Offset(, 1)
End Sub

 

[Boeije]

Hoi Harry,

Ik heb je code geplakt, maar heb nog steeds tig keer de artikelgroep in de lijst staan en de 2e box heeft ook alle artikelen erin staan.

 

[HSV]

Staat het in de Userform-module?

 

[Boeije]

Zover ik weet wel
Bekijk bijlage Form_comboboxen1.3.xlsm.zip

 

[HSV]

Nee, je hebt ze in de bladmodule.
Dubbelklik op formulieren en dan op de Userformmodule.
Zet daar de code in.

EN VERWIJDER DE GEGEVENS IN DE ROWSOURCE.

 

[Boeije]

Bekijk bijlage voorbeel blad.xlsxBedankt Harry, hij doet het!

Dan is de volgende stap dat ik hiermee gegevens kan ophalen uit tabbladen die de naam van de artikelgroepen hebben, waar dan telkens 2 kolommen met dezelfde artikelcode te vinden zijn. Die wil ik dan weer kopieren en plakken in een te openen bestand. Ik heb een voorbeeld van een tebblad toegevoegd (heel bestand is veel te groot om te plaatsen).

Bekijk bijlage voorbeel blad.xlsx

 

[Boeije]

Ik sluit deze en stel de "nieuwe vraag" in een ander topic