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

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


In article ,
"Brad" wrote:

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

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



"Brad" wrote in message
...
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

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

"Brad" wrote in message
...
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