zoek functie

[bigfoot47]

Hoi iedereen,

wie kan me verder helpen.

ik zou graag in volgende bestand als je david geeft dat hij een lijst geeft waar david in komt en dat ik daar uit kan kiezen.

En dan pas de rest ingevuld wordt. wat overeenkomt met wat ik aangeduid heb.

Bekijk bijlage test.xls

mvg Bigfoot

 

[Cobbe]

Zo goed?

 

[bigfoot47]

ja en nee,

zou zelf iets willen in vullen in a3 en dat hij dan de keuze lijst geeft waar het woord in voor komt in a5. Dat ik deze dan kan aan klikken.

 

[Cobbe]

Zo iets dan?
Als je een woord ingeeft dat niet in de lijst staat reageert hij niet.
En dus enkel wat je in Zoeken!A3 zet is geldig.

 

[bigfoot47]

zo iets is het enkel dat het hoofdletter gevoelig is maar dat gaat wel.
Kan je wat info geven hoe je dit hebt gedaan?

Mvg Bigfoot

 

[Cobbe]

Heb dat probleem van die hoofdletters opgelost.

Kijk maar eens via ALT & F11 daar staat de code die daar voor gebruikt is.

 

[bigfoot47]

Ok Bedankt

 

[Warme bakkertje]

Zo kan het ook.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$3" Then Exit Sub
    sn = Sheets("lijst").Cells(1).CurrentRegion.Value
    With Sheets("zoeken")
        .Range("A5") = ""
        .Range("A5").Select
        .Range("Z2:Z500").ClearContents
    End With
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(sn)
            If InStr(UCase(sn(i, 1)), UCase(Sheets("zoeken").Range("A3"))) > 0 Then
                x0 = .Item(sn(i, 1))
            End If
        Next
        If .Count = 0 Then Exit Sub
        Sheets("zoeken").Cells(2, "Z").Resize(.Count).Value = Application.Transpose(.keys)
    End With
End Sub

 

[VenA]

Waarom niet gelijk de validatielijst aanpassen?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$3" Then Exit Sub
ar = Sheets("lijst").Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
For j = 1 To UBound(ar)
    If InStr(1, LCase(ar(j, 1)), LCase([A3])) Then c00 = c00 & ar(j, 1) & ","
Next j
With [A5]
    .Validation.Modify , , , c00
    .ClearContents
    .Select
End With
End Sub