Namen zoeken

[bowlingman]

Is het mogelijk om via de inhoud van een bepaalde cel gegevens te zoeken in een andere kolom.

Bv. In kolom A staan honderde namen.
Kan je dan als je dan bv in cel G1 een naam zet via een button automatisch naar de rij met die naam in kolom A gaan.
Ik weet dat dit ook gaat met "Ctrl+F", maar dit is voor iemand die eigenlijk zogoed als niets kent van Excel.

grtjs.
Armand

 

[edmoor]

Met een stukje VBA achter het werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    
    If Target.Address(0, 0) = "G1" Then
        Set c = Range("A:A").Find(Target.Value, , xlValues, xlWhole)
        If Not c Is Nothing Then
            Range(c.Address).Select
        Else
            MsgBox Target.Value & " niet gevonden", vbCritical
        End If
    End If
End Sub

Daarnaast is CTRL-F natuurlijk zo uitgelegd.

 

[bowlingman]

Hallo Ed,

Bedankt voor je reactie.
Dit werkt perfect.
Als ik nu een naam invul in G1 wordt na enter die naam in kolom A geselecteerd.
Nu heb ik nog een vraagje.
Kan deze code nog uitgebreid worden zodat nadat er op enter is gedrukt de cel G1 automatisch terug wordt leeggemaakt en geselecteerd.

Grtjs.
Armand

 

[edmoor]

Tuurlijk.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    
    If Target.Address(0, 0) = "G1" Then
        Set c = Range("A:A").Find(Target.Value, , xlValues, xlWhole)
        If Not c Is Nothing Then
            Range(c.Address).Select
        Else
            MsgBox Target.Value & " niet gevonden", vbCritical
        End If
        [COLOR="#FF0000"]Target.ClearContents[/COLOR]
    End If
End Sub

Direct G1 weer selecteren doet het bovenstaande teniet, dus dat lijkt me niet handig.