Need help with input box

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

See changes in your code in BOLD below (change "InputBox Title" to your own title for the input box and change the cell reference A1 to your own):

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

Hope this helps,
theDude

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 <[email protected]>,
"Brad" <[email protected]> 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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
news:[email protected]...
> 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
>
>