Worksheet_Change

[maartenmars]

Ik heb een simpele change code opgesteld om verticaal te zoeken. Alleen wanneer ik nu wat anders invul geeft hij een error. Ik zou graag de code willen aanpassen zodat als er iets anders wordt ingevuld er niks gebeurd.

Dus iets van on error go to 0 ofzo. Maar dat krijg ik niet voor elkaar. Kan iemand mij hiermee helpen?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
With Sheets("Data").Columns(1).Find(Target.Value)
.Offset(, 1).Copy Target.Offset(, 2)
End With

End If
End Sub

 

[snb]

Dit is voldoende

Private Sub Worksheet_Change(ByVal Target As Range)
  on error resume next
  If Target.Column = 1 Then Sheets("Data").Columns(1).Find(Target.Value).Offset(, 1).Copy Target.Offset(, 2)
End Sub

 

[maartenmars]

Het werkt. bedankt