list

[cmccabe]

I am using the code below, which works great. Is it possible to use a validation list as a user prompt? So instead of entering data , the user is prompted with a list. The list would be Offset, 5 and is called Age (cells G198:G200). Thanks.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Variant
If Intersect(Target, Range("A3:A53")) Is Nothing Then Exit Sub
Cancel = True
x = Application.InputBox("Enter Case Number Between 1 and 50", "You must Enter a Value or click Cancel to exit this procedure", Type:=1)
If x = False Then Exit Sub
Target.Value = x
Do While Target.Value < 1 Or Target.Value > 50
    Target.Value = InputBox("Enter a number Between 1 and 50", "Input Out of Range!")
Loop
Target.Offset(, 4).Value = InputBox("Enter Age", "You must Enter a Value")
Do While Target.Offset(, 4).Value < 1 Or Target.Offset(, 4).Value > 150
    Target.Offset(, 4).Value = InputBox("Enter a number Between 1 and 150", "Input Out of Range!")
Loop
Target.Offset(, 13).Value = InputBox("Enter Donor", "You must Enter Text")
Do While IsNumeric(Target.Offset(, 13).Value) Or Target.Offset(, 13).Value = ""
    Target.Offset(, 13).Value = InputBox("Enter Donor", "Error!")
Loop
Target.Offset(, 14).Value = InputBox("Enter Description", "You must Enter Text")
Do While IsNumeric(Target.Offset(, 14).Value) Or Target.Offset(, 14).Value = ""
    Target.Offset(, 14).Value = InputBox("Enter Description", "Error!")
Loop
End Sub

 

[jbeaucaire]

You would have to design a small userform to popup with a ListBox on it. A listbox can display the listed items from any range of cells you indicate, and the value selected can be sent into another macro.

 

[cmccabe]

Can I add a staement to the code that requires the answer to be Yes or No and if yes checks a box and if no does not? Thanks.

Target.Offset(, 8).Value = InputBox("Was LSAB Used", "You must Enter Text")
Do While IsNumeric(Target.Offset(, 8).Value) Or Target.Offset(, 8).Value = ""
    Target.Offset(, 8).Value = InputBox("Was LSAB Used", "Error!")
Loop

 

[jbeaucaire]

Don't give them a choice, use a better InputBox:

Target.Offset(, 8).Value = _
    MsgBox("Was LSAB Used?", vbYesNo + vbQuestion, "LSAB Check")