validatielijst met zoekfunctie mogelijk in een tabel?

[carolined]

Hallo,

Ik heb een validatielijst met zoekfunctie gemaakt zodat het zoeken in een grote lijst producten wat makkelijker is, maar het probleem is dat deze dropdown enkel in de eerste rij (D2) van mijn tabel werkt en dus niet meer in de 2e rij (D3). Is het niet mogelijk om zo een lijst met zoekfunctie in een tabel te gebruiken?

Een 2e vraag is: ik heb dit nu voor product 1 zo opgemaakt, maar voor product 2 en 3 moet er ook zo een dropdown lijst komen, namelijk dezelfde als deze in product 1.
Moet ik dan 3 keer die formules aanmaken of bestaat er een mogelijkheid dat ik deze maar 1 keer maak en dan in de 3 kolommen kan gebruiken?

Het bestand in bijlage is maar een voorbeeld. In werkelijkheid is er de mogelijkheid om 10 producten per rij te kiezen ipv 3.

Bekijk bijlage voorbeeld.xlsx

Alvast bedankt voor jullie reactie,
Caroline

 

[Timshel]

Ik zie alleen even een VBA-oplossing:

 

[carolined]

Bedankt voor de oplossing! Wel jammer dat deze niet werkt op een Mac. Onder Windows geen probleem, maar bij mijn Mac komen de keuzes allemaal horizontaal achter elkaar als ik op het pijltje van de validatielijst klik.

mvg,
Caroline

 

[Timshel]

Ik vermoed dat je op een mac een ander scheidingsteken moet gebruiken.
Vervang de komma eens door een puntkomma:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Br
    
    If Intersect(Target, ActiveSheet.ListObjects(1).Range.Columns(4).Resize(, 10)) Is Nothing Then Exit Sub
    Br = Filter(Evaluate("transpose(if(isnumber(search(""" & Target & """,'valtabel'!B2:B1000)),'valtabel'!B2:B1000,""~""))"), "~", False)
    Target.Validation.Delete
    If UBound(Br) = -1 Then Exit Sub
    Target.Validation.Add xlValidateList, , , Join(Br, [COLOR="#FF0000"]";"[/COLOR])
    Target.Validation.ShowError = False
End Sub

 

[snb]

Een andere benadering zonder formules, maar ook qua VBA robuuster (zelfgemaakte grote validatielijsten worden niet bewaard en geven foutmeldingen bij heropenen van het werkboek).
In het voorbeeld alleen de validatielijsten 'all_in_one', 'Atlanta' en 'Arizona'.

 

[sylvester-ponte]

ook die gaat in mijn archief,

ik zet er wel nog dit regeltje boven:

If Target.Count > 1 Then Exit Sub

dan loopt hij niet vast als je meer dan 1 cel selecteert.
bedankt