naar een bepaald veld gaan

[verkammanM]

Beste mensen,

Ik heb een bestand bij gevoegd , ik wil graag in het gele veld een barcode invoeren en dan is de bedoeling dat in kolom A naar de barcode gezocht wordt en dat de cursor dan in die rij naar kolom E gaat.

Het probleem is dat de barcode's niet in dezelfde rijen blijven staan, als ik een nieuw artikel toevoeg, dan schuift alles een rij naar beneden op.

Wie kan me helpen??

mvg
Marien Verkamman

 

[Cobbe]

Gebruik deze eens:

Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("A9:A1000").Find([A3], LookAt:=xlWhole)
 If Not r Is Nothing Then
  Application.Goto Cells(r.Row, "E")
 End If
End Sub

 

[HSV]

Iets robuuster (al zou ik kiezen voor cel B3 om de gezochte waarde in te vullen).

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [a3]) is nothing And Target.Count = 1 Then
    Set c = Columns(1).Find(Target, [a3], , xlWhole)
    If Not c Is Nothing Then Application.Goto c.Offset(, 4)
 End If
End Sub

 

[gast0660]

Beste Marien,
Mischien zo?
In het zoekveldje iets intikken (vanaf 2 tekens krijg je resultaten).