Input Box Location
 

I have created a input box that works like it should, but always goes to
screen 1 on my 2 screen setup. If i launch excel into screen 2 the input box
always pops up on screen 1. How can I make the input box follow the
application? here is the code I used:


Sub Enter_Week_Number()


Dim Response As Variant

Show_Box = True


While Show_Box = True


Response = InputBox("Please Enter Current Week Number.", _
"Number Entry", , 7000, 7000)



If Response = "" Then

Show_Box = True
Else
If IsNumeric(Response) = True Then
Worksheets("INSTRUCTIONS").Range("H5").Value = Response
Show_Box = False
Else
MsgBox "Please Enter Numbers Only"
End If
End If
Wend

End Sub

Thank you in advance...

Input Box Location
 

Is the workbook that contains the code opened in the same instance of the
application on screen 2? If not, it will probably go to the default screen.


"AwesomeSean" wrote in message
...
I have created a input box that works like it should, but always goes to
screen 1 on my 2 screen setup. If i launch excel into screen 2 the input
box
always pops up on screen 1. How can I make the input box follow the
application? here is the code I used:


Sub Enter_Week_Number()


Dim Response As Variant

Show_Box = True


While Show_Box = True


Response = InputBox("Please Enter Current Week Number.", _
"Number Entry", , 7000, 7000)



If Response = "" Then

Show_Box = True
Else
If IsNumeric(Response) = True Then
Worksheets("INSTRUCTIONS").Range("H5").Value = Response
Show_Box = False
Else
MsgBox "Please Enter Numbers Only"
End If
End If
Wend

End Sub

Thank you in advance...

Input Box Location
 

Yes.
I have the excel app. opened on screen 2. the alt+f11 usually opens vba on
screen 1 which is where I write the code. If I move excel to screen 1 then
close-re open, the box is where i want it. If i move to screen 2, close-re
open on screen 2, the pop up box stays on screen 1.

I am new to programming and just wanted to see if there was code to make the
input box always stay where the app is opened, even if I had 4 moniters.

Thank you for the quick response.

"JLGWhiz" wrote:

Is the workbook that contains the code opened in the same instance of the
application on screen 2? If not, it will probably go to the default screen.


"AwesomeSean" wrote in message
...
I have created a input box that works like it should, but always goes to
screen 1 on my 2 screen setup. If i launch excel into screen 2 the input
box
always pops up on screen 1. How can I make the input box follow the
application? here is the code I used:


Sub Enter_Week_Number()


Dim Response As Variant

Show_Box = True


While Show_Box = True


Response = InputBox("Please Enter Current Week Number.", _
"Number Entry", , 7000, 7000)



If Response = "" Then

Show_Box = True
Else
If IsNumeric(Response) = True Then
Worksheets("INSTRUCTIONS").Range("H5").Value = Response
Show_Box = False
Else
MsgBox "Please Enter Numbers Only"
End If
End If
Wend

End Sub

Thank you in advance...

Input Box Location
 

I am not technically acquainted with the two screen setup or how each screen
is normally selected withing the system. It just seemed to follow that if
the code was in the workbook that is opened in a given instance of Excel that
the dialog boxes and controls that are called from the code in that workbook
would appear in the same screen. Apparently not/

"AwesomeSean" wrote:

Yes.
I have the excel app. opened on screen 2. the alt+f11 usually opens vba on
screen 1 which is where I write the code. If I move excel to screen 1 then
close-re open, the box is where i want it. If i move to screen 2, close-re
open on screen 2, the pop up box stays on screen 1.

I am new to programming and just wanted to see if there was code to make the
input box always stay where the app is opened, even if I had 4 moniters.

Thank you for the quick response.

"JLGWhiz" wrote:

Is the workbook that contains the code opened in the same instance of the
application on screen 2? If not, it will probably go to the default screen.


"AwesomeSean" wrote in message
...
I have created a input box that works like it should, but always goes to
screen 1 on my 2 screen setup. If i launch excel into screen 2 the input
box
always pops up on screen 1. How can I make the input box follow the
application? here is the code I used:


Sub Enter_Week_Number()


Dim Response As Variant

Show_Box = True


While Show_Box = True


Response = InputBox("Please Enter Current Week Number.", _
"Number Entry", , 7000, 7000)



If Response = "" Then

Show_Box = True
Else
If IsNumeric(Response) = True Then
Worksheets("INSTRUCTIONS").Range("H5").Value = Response
Show_Box = False
Else
MsgBox "Please Enter Numbers Only"
End If
End If
Wend

End Sub

Thank you in advance...

Input Box Location
 

Try moving the code windows (VBEditor) to screen 2, close Excel and re-open
in screen 2. It may be the InputBox follows the location of the code window
that called the InputBox.

Mike F
"AwesomeSean" wrote in message
...
Yes.
I have the excel app. opened on screen 2. the alt+f11 usually opens vba on
screen 1 which is where I write the code. If I move excel to screen 1 then
close-re open, the box is where i want it. If i move to screen 2, close-re
open on screen 2, the pop up box stays on screen 1.

I am new to programming and just wanted to see if there was code to make
the
input box always stay where the app is opened, even if I had 4 moniters.

Thank you for the quick response.

"JLGWhiz" wrote:

Is the workbook that contains the code opened in the same instance of the
application on screen 2? If not, it will probably go to the default
screen.


"AwesomeSean" wrote in message
...
I have created a input box that works like it should, but always goes to
screen 1 on my 2 screen setup. If i launch excel into screen 2 the
input
box
always pops up on screen 1. How can I make the input box follow the
application? here is the code I used:


Sub Enter_Week_Number()


Dim Response As Variant

Show_Box = True


While Show_Box = True


Response = InputBox("Please Enter Current Week Number.", _
"Number Entry", , 7000, 7000)



If Response = "" Then

Show_Box = True
Else
If IsNumeric(Response) = True Then
Worksheets("INSTRUCTIONS").Range("H5").Value = Response
Show_Box = False
Else
MsgBox "Please Enter Numbers Only"
End If
End If
Wend

End Sub

Thank you in advance...

Input Box Location
 

Tried that. Still the same.

Is there some kind of code to tell it to stay within the active worksheet?

Input Box Location
 

The InputBox is not part of the Sheet or the ActiveWorkbook. It is part of
the Application. However, it normally appears within the application
instance from which the code is run.


"AwesomeSean" wrote in message
...
Tried that. Still the same.

Is there some kind of code to tell it to stay within the active worksheet?

Input Box Location
 

I have message boxes that work right and follow the app., it is just the
input box giving me grief. Is my code wrong or could i use different code to
get the same results?




"JLGWhiz" wrote:

The InputBox is not part of the Sheet or the ActiveWorkbook. It is part of
the Application. However, it normally appears within the application
instance from which the code is run.


"AwesomeSean" wrote in message
...
Tried that. Still the same.

Is there some kind of code to tell it to stay within the active worksheet?

Input Box Location
 

I don't see anything wrong with the code in so far as calling the InputBox.
I am not aware of any special code to designate a certain screen for the
dialog box to appear on. But then, there are a lot of things that I am not
aware of. Maybe it just likes that screen. <g


"AwesomeSean" wrote in message
...
I have message boxes that work right and follow the app., it is just the
input box giving me grief. Is my code wrong or could i use different code
to
get the same results?




"JLGWhiz" wrote:

The InputBox is not part of the Sheet or the ActiveWorkbook. It is part
of
the Application. However, it normally appears within the application
instance from which the code is run.


"AwesomeSean" wrote in message
...
Tried that. Still the same.

Is there some kind of code to tell it to stay within the active
worksheet?