Code achter werkblad

[CorVerm]

Beste mensen,
Ik begrijp dat deze code niet werkt zoals die hier staat. Wie wil hier een goed lopende code van maken?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 2 Then
Range("A6:A300").Find(Range("B2").Value, , , xlWhole)
.Offset(0, 3).Value = .Offset(0, 3).Value + Range("A4").Value

End If
End Sub

 

[Roncancio]

Beste mensen,
Ik begrijp dat deze code niet werkt zoals die hier staat. Wie wil hier een goed lopende code van maken?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 2 Then
Range("A6:A300").Find(Range("B2").Value, , , xlWhole)
.Offset(0, 3).Value = .Offset(0, 3).Value + Range("A4").Value

End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.address="$B$2" then
Range("A6:A300").Find(Range("B2").Value, , , xlWhole)
.Offset(0, 3).Value = .Offset(0, 3).Value + Range("A4").Value

End If
End Sub

 

[CorVerm]

Roncancio,
Helaas geeft deze code een foutmelding. Hierbij het bestandje zodat je kunt zien waar het over gaat. De knoppen werken zoals het hoort maar ik wil de code graag onder het werkblad.

 

[LucB]

Cor,

Is dit je bedoeling.

 

[Roncancio]

Bedoel je zo ?

 

[CorVerm]

Heren,
Straks zal ik jullie voorstellen bekijken, moet even weg.

 

[LucB]

Cor,

Nog een variant.

 

[CorVerm]

Roncancio,
Het is niet wat ik bedoelde maar kan de code zeker wel gebruiken. Heb het in m'n "archief"gezet.
Bedankt voor de code en je tijd.:thumb:

Luc,
Ik heb voor jouw tweede variant gekozen na een kleine aanpassing te hebben aangebracht. Het is de bedoeling dat, na wijziging van resp. A4 en D4, de berekening wordt uitgevoerd. Verder is het zoals we het van jou gewend zijn. Klasse!
Bedankt maar weer.