Drop down List

[jeff07kp]

Hey guys,

I work in transportation and i'm trying to create a schedule report. My problem is that because of holidays and weekends the dates in the report change.

For example, if the plane is to arrive tuesday. My formulas will automatically set dates so the clients can send their products on saturday, friday and thursday. However sometimes because of special ocations these times will have to change.

What can I do so I can write on top of the formula, but without having the formula erased.

I tried using dropdown with validations. But for some reason everytime I write on top of the dropdown it doesn't accept it. A pop up comes out and saying that I have restricted the values

HELP

 

[Joe Was]

This code will let you add items to your In-Cell-Drop-Down-List!
In the sample below the Dropdown is in cell: E6.

Private Sub Worksheet_Change(ByVal Target As Range)
'Run from the Sheet Module that the dropdown is on!
Dim myOldLst$, myNewLst$

If Target.Address = "$E$6" Then

myOldLst = Target.Validation.Formula1
myNewLst = myOldLst & "," & Target.Value

With Target.Validation
.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator _
:=xlBetween, Formula1:=myNewLst

.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.InputMessage = ""
.ErrorTitle = "Warning!"

.ErrorMessage = _
"You may add any value!" & Chr(10) & "" & _
Chr(10) & "If you add a value not on the list it " & _
"will be added to the list the next time it is used!"
.ShowInput = False
.ShowError = True
End With
End If
End Sub