INPUTBOX

[verluc]

How can I create an inputbox that where the text can contain 2 lines.

First line:=Application.Inputbox(prompt:="Give your number."

Second line : "Number as 00.000"

Who can help?
Many thanks

[NateO]

Try the following:

Sub example()
n = Application.InputBox(prompt:="Give your number." _
    & Chr(13) & Chr(13) & "Number as 00.000", Type:=1)
End Sub

Have a great weekend.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-04-26 12:04 ]

[verluc]

On 2002-04-26 11:58, NateO wrote:
Try the following:

Sub example()
n = Application.InputBox(prompt:="Give your number." _
    & Chr(13) & Chr(13) & "Number as 00.000", Type:=1)
End Sub

Have a great weekend.

Thanks for your time to answer.
Maybe you can also give me a solution for the following:
Whe I see the inputbox,I will have two possibilities : OK and Return
How can I that insert in my macro.
Great for your reply.
Thanks

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-04-26 12:04 ]

m

[NateO]

Whe I see the inputbox,I will have two possibilities : OK and Return
How can I that insert in my macro.

I don't follow, maybe say this a different way.

There should be an OK and Cancel button and that's life with this dialog, no need for additional code.

[verluc]

On 2002-04-26 12:20, NateO wrote:

I don't follow, maybe say this a different way.

There should be an OK and Cancel button and that's life with this dialog, no need for additional code.

Sorry, there are indeed two buttons : OK and Cancel.
When I press the button OK then the macro runs to the end.But when I press CANCEL then I receive an errormessage.
The CANCEL-button must return to the inputplace.
How do I insert such a code?
Many thanks

[NateO]

I don't get the error when I cancel, maybe we're on different versions, but try this

Sub example2()
On Error Resume Next
n = Application.InputBox(prompt:="Give your number." _
    & Chr(13) & Chr(13) & "Number as 00.000", Type:=1)
End Sub

You should be in the same cell that you were in when the inputbox was initiated.

[verluc]

On 2002-04-26 12:33, NateO wrote:
I don't get the error when I cancel, maybe we're on different versions, but try this

Sub example2()
On Error Resume Next
n = Application.InputBox(prompt:="Give your number." _
    & Chr(13) & Chr(13) & "Number as 00.000", Type:=1)
End Sub

You should be in the same cell that you were in when the inputbox was initiated.

Sorry but the button CANCEL doesn't work:
Here is the part of my macro:
Sub Mail()
Dim olApp As Object, olMail As Object
Dim rngeAddresses As Range, rngeCell As Range
Set olApp = reateObject"Outlook.Application")
Set rngeAddresses = Application.InputBox(prompt:="Give number." _
& Chr(13) & Chr(13) & "(Number as 00.000)")
For Each rngeCell In rngeAddresses.Cells
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = rngeCell.Value

[NateO]

Error trapper time, in fact now that I look at, you need to exit the procedure on Cancel like this:

Sub Mail()
Dim olApp As Object, olMail As Object
Dim rngeAddresses As Range, rngeCell As Range
Set olApp = CreateObject("Outlook.Application")
On Error GoTo errorhandler 'in the event you cancel
Set rngeAddresses = Application.InputBox(prompt:="Give number." _
    & Chr(13) & Chr(13) & "(Number as 00.000)")
For Each rngeCell In rngeAddresses.Cells
    Set olMail = olApp.CreateItem(olMailItem)
    olMail.To = rngeCell.Value
'Insert the rest of your code right here
errorhandler:
End Sub

_________________
Cheers, NateO

[ This Message was edited by: nateo on 2002-04-26 13:32 ]

[Joe Was]

This is a sample utility to ask the user if they want to print. It contains your cancel code.

Sub myPrint1()

Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Msg = "Print Data Now?" ' Define message.
Style = vbOKCancel ' Define buttons.
Title = "Ready to Print?" ' Define title.
'Help = "DEMO.HLP" ' Define Help file.
'Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then ' User chose Yes.
Columns("AA:AI").Select
ActiveSheet.PageSetup.PrintArea = "$AA:$AI"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollColumn = 1
Else ' User chose No.
GoTo Can
End If
End
Can:

End Sub

You can add your own code inplace of this code:
Columns("AA:AI").Select
ActiveSheet.PageSetup.PrintArea = "$AA:$AI"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollColumn = 1

You control the MsgBox with the variables loaded up top. The trick is the "End" statement and the dummy line call "Can:"
Hope this helps. JSW

P.S. You can also pull the xlCancel property if you wish. JSW