Updating a validation list macro
Is it a text value you are entering, or a number? Also, is your original
list in the DV, or referencing a range somewhere?
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"rammieib" wrote in message
oups.com...
Bob
Thanks for your reply. I have been unable to make it work. After
entering the name into the inputbox, I cannot get that name to appear
in the cell when I push the validation list down one. I have the
following:
Sub EnterNewBuyer()
Dim ans
ans = InputBox("New value")
Range("FR2").Select
Selection.Insert Shift:=xlDown
With ActiveCell
ans = .Validation.Formula1 & "," & ans
.Validation.Delete
.Validation.Add Type:=xlValidateList, Formula1:=ans
Range("FR2:FR34").Select
Selection.Sort Key1:=Range("FR2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B5").Select
End With
End Sub
|