Prev: Delete entire row if older then 365 days
Next: How do I recover a prior version of a saved document?
From: JB on 5 Apr 2010 00:45
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DV_AjoutListe.xls

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")
Else
Application.Undo
End If
End If
End If
End If
End Sub

Named range:
=Offset(Liste!$A$2,,,CountA(Liste!$A:$A)-1)

JB


On 4 avr, 01:00, GEdwards <GEdwa...(a)discussions.microsoft.com> 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?

First  |  Prev  | 
Pages: 1 2
Prev: Delete entire row if older then 365 days
Next: How do I recover a prior version of a saved document?