Excel If en popup

[carllitos]

Hallo Allemaal!

Het lukt mij niet om een melding te krijgen als de waarde niet gevonden wordt.
Wel krijg ik een melding als de waarde gevonden wordt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cl As Range
If Target.Address = "$F$1" Then
Set Cl = Range("B3:B14").Find(Target.Value, , , xlWhole)
If Not Cl Is Nothing Then Cl.Offset(, 3).Value = Cl.Offset(, 3).Value + 1
ElseIf Cl Is Nothing Then MsgBox "Product has been added"
Else: MsgBox "add"
End If
End Sub


Misschien iemand die mij hiermee kan helpen.

[MSteverink]

Je hebt drie voorwaarden, t.w.

code:

If Not Cl Is Nothing 
ElseIf Cl Is Nothing 
Else:

Maar als 1 niet van toepassing is, is 2 van toepassing. Dus de opdracht achter Else zal nooit worden uitgevoerd.

[carllitos]

Bedankt voor de uitleg, ik heb het al aangepast en het is gelukt!