ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   InputBox Screen Position (https://www.excelbanter.com/excel-programming/316268-inputbox-screen-position.html)

James Montgomery

InputBox Screen Position
 
Hi,

Can position X & Y screeen positions be added to the InputBox code below the
way it's written.

userExciseTaxNo = InputBox("Enter sales tax number. Example Format:" &
Chr(13) & _
"Enter .06125 for 6.125% " & Chr(13) & Chr(13) & _
"Press enter Or Click 'OK'", "Enter Tax Amonut",
startExciseTaxNo)

Thanks



Frank Kabel

InputBox Screen Position
 
Hi
have a look i the VBA help at 'Inputbox'. there're the parameters xpos
and ypos to do just this

--
Regards
Frank Kabel
Frankfurt, Germany

"James Montgomery" schrieb im Newsbeitrag
...
Hi,

Can position X & Y screeen positions be added to the InputBox code

below the
way it's written.

userExciseTaxNo = InputBox("Enter sales tax number. Example

Format:" &
Chr(13) & _
"Enter .06125 for 6.125% " & Chr(13) & Chr(13) & _
"Press enter Or Click 'OK'", "Enter Tax Amonut",
startExciseTaxNo)

Thanks




James Montgomery

InputBox Screen Position
 
Hi Frank,
I have added the parameter as explained in VBA help but it seems the "
startExciseTaxNo)
" at the end becomes a problem
James

"Frank Kabel" wrote in message
...
Hi
have a look i the VBA help at 'Inputbox'. there're the parameters xpos
and ypos to do just this

--
Regards
Frank Kabel
Frankfurt, Germany

"James Montgomery" schrieb im Newsbeitrag
...
Hi,

Can position X & Y screeen positions be added to the InputBox code

below the
way it's written.

userExciseTaxNo = InputBox("Enter sales tax number. Example

Format:" &
Chr(13) & _
"Enter .06125 for 6.125% " & Chr(13) & Chr(13) & _
"Press enter Or Click 'OK'", "Enter Tax Amonut",
startExciseTaxNo)

Thanks






Tom Ogilvy

InputBox Screen Position
 
Sub Tester1()
Dim msg As String
msg = "Enter sales tax number. Example Format:" _
& Chr(13) & "Enter .06125 for 6.125% " _
& Chr(13) & Chr(13) & "Press enter Or Click 'OK'"

serExciseTaxNo = InputBox(Prompt:=msg, Title:= _
"Enter Tax Amonut", Default:=startExciseTaxNo, _
xPos:=1000, yPos:=1000)
End Sub

--
Regards,
Tom Ogilvy


"James Montgomery" wrote in message
...
Hi Frank,
I have added the parameter as explained in VBA help but it seems the "
startExciseTaxNo)
" at the end becomes a problem
James

"Frank Kabel" wrote in message
...
Hi
have a look i the VBA help at 'Inputbox'. there're the parameters xpos
and ypos to do just this

--
Regards
Frank Kabel
Frankfurt, Germany

"James Montgomery" schrieb im Newsbeitrag
...
Hi,

Can position X & Y screeen positions be added to the InputBox code

below the
way it's written.

userExciseTaxNo = InputBox("Enter sales tax number. Example

Format:" &
Chr(13) & _
"Enter .06125 for 6.125% " & Chr(13) & Chr(13) & _
"Press enter Or Click 'OK'", "Enter Tax Amonut",
startExciseTaxNo)

Thanks








James Montgomery

InputBox Screen Position
 
Thanks Tom
I like the way you also did the msg part of it
James


"Tom Ogilvy" wrote in message
...
Sub Tester1()
Dim msg As String
msg = "Enter sales tax number. Example Format:" _
& Chr(13) & "Enter .06125 for 6.125% " _
& Chr(13) & Chr(13) & "Press enter Or Click 'OK'"

serExciseTaxNo = InputBox(Prompt:=msg, Title:= _
"Enter Tax Amonut", Default:=startExciseTaxNo, _
xPos:=1000, yPos:=1000)
End Sub

--
Regards,
Tom Ogilvy


"James Montgomery" wrote in message
...
Hi Frank,
I have added the parameter as explained in VBA help but it seems the "
startExciseTaxNo)
" at the end becomes a problem
James

"Frank Kabel" wrote in message
...
Hi
have a look i the VBA help at 'Inputbox'. there're the parameters xpos
and ypos to do just this

--
Regards
Frank Kabel
Frankfurt, Germany

"James Montgomery" schrieb im Newsbeitrag
...
Hi,

Can position X & Y screeen positions be added to the InputBox code
below the
way it's written.

userExciseTaxNo = InputBox("Enter sales tax number. Example
Format:" &
Chr(13) & _
"Enter .06125 for 6.125% " & Chr(13) & Chr(13) & _
"Press enter Or Click 'OK'", "Enter Tax Amonut",
startExciseTaxNo)

Thanks











All times are GMT +1. The time now is 03:00 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com