Need help with input box

[Guest]

Alright, I have code that will have the user insert a Contract # into a
specific cell. This works fine. But what I would like to know, is it possible
to have the inputbox message to already have the Cells Value Listed, then the
user would insert the new information only if neccessary. For Example:

Cell A1 would have the contract # "123" already listed. The inputbox would
ask the user "Please Enter Contract # or if this is the Correct # then press
OK". But in the area where the user enters the information, the "123" would
already be listed. Can this be done with a Inputbox? I hope this makes sense.
Any help is appreciated. Here is the code that I have.

Dim ans As Variant
ans = InputBox("Please Enter Contract # or if this is the Correct # then
press OK")
With Worksheets("Agreement")
Cells(8, 12) = (ans)
End With

 

[JulieD]

Hi Brad

yes, basically the third parameter of the inputbox is a default answer

so you can do something like this:

Sheets("Agreement").Cells(8, 12).Value = InputBox("Please Enter Contract #
or if this is the Correct # then press OK", , Sheets("Agreement").Cells(8,
12).Value)


(all on one line)

Cheers
julieD

 

[JE McGimpsey]

One way:

Dim ans As Variant
Do
ans = Application.InputBox( _
Prompt:="Please Enter Contract #", _
Default:=Sheets("Agreement").Range("A1").Value, _
Title:="Contract Number", _
Type:=2)
If ans = False Then Exit Sub 'User cancelled
Loop Until Len(ans) > 0

 

[Paul B]

Brad, do you want the valve in the active cell in the input box? if so try
this

ans = InputBox("Please Enter Contract # or if this is the Correct # then
press OK", , ActiveCell)

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003