From: JB on

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
If IsError(Application.Match(Target.Value, [Liste], 0)) Then
If MsgBox("Add?", vbYesNo) = vbYes Then
[Liste].End(xlDown).Offset(1, 0) = Target.Value
Sheets("Liste").[Liste].Sort key1:=Sheets("Liste").Range("A2")
End If
End If
End If
End If
End Sub

Named range:


On 4 avr, 01:00, GEdwards <GEdwa...(a)> wrote:
> I cannot find if there is a way to have a dropdown list that contains
> pre-defined data validation entries and also allow a user to input their own.
> Is there a way to do this in Excel?