Hallo,
Ik heb een vraag over onderstaande code. Ik zou graag willen dat deze code geen gebruik maakt van 'Target'. Op het moment dat het tabblad wordt geactiveerd, zouden alle waarden in kolom 11 opgezocht moeten worden in kolom 'K' in het tabblad "scanlijst". Wanneer er een match is, dan zou de bijbehorende waarde (dus uit dezelfde rij) uit kolom 'F' moeten worden overgenomen.
Alvast bedankt!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then
Set zk = Worksheets("scanlijst").Range("L:L").Find(Range("K" & Target.Row).Value, LookIn:=xlValues, lookat:=xlWhole)
If Not zk Is Nothing Then
Range("F" & Target.Row).Value = Worksheets("Scanlijst").Range(zk.Address).Offset(0, -7)
Else
Range("F" & Target.Row).Value = ""
End If
End If
End Sub
Ik heb een vraag over onderstaande code. Ik zou graag willen dat deze code geen gebruik maakt van 'Target'. Op het moment dat het tabblad wordt geactiveerd, zouden alle waarden in kolom 11 opgezocht moeten worden in kolom 'K' in het tabblad "scanlijst". Wanneer er een match is, dan zou de bijbehorende waarde (dus uit dezelfde rij) uit kolom 'F' moeten worden overgenomen.
Alvast bedankt!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then
Set zk = Worksheets("scanlijst").Range("L:L").Find(Range("K" & Target.Row).Value, LookIn:=xlValues, lookat:=xlWhole)
If Not zk Is Nothing Then
Range("F" & Target.Row).Value = Worksheets("Scanlijst").Range(zk.Address).Offset(0, -7)
Else
Range("F" & Target.Row).Value = ""
End If
End If
End Sub
