Opzoeken waarde in kolom en aanpassen

[CD007]

Ik wil een waarde (datum) zoeken in een kolom en indien deze bestaat een waarde aanpassen in volgende kolom.
Indien deze niet bestaat moet deze bijgevoegd worden onderaan in de kolom.


Bijlage zal alles duidelijk maken hoop ik.

Alvast bedankt.

Bekijk bijlage Map1.xlsx

 

[VenA]

Probeer het zo eens.

Sub VenA()
Dim f As Range
With Sheets("Output")
    Set f = .Columns(3).Find(.[B2])
    If f Is Nothing Then
        .Cells(.Rows.Count, 3).End(xlUp).Offset(1).Resize(, 2) = Application.Transpose(.[B2:B3])
      Else
        If .[B3] > Cells(f.Row, 4) Then Cells(f.Row, 4) = .[B3]
    End If
End With
End Sub

 

[CD007]

Picobello.

Waarvoor dank !