Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I am using a userform to create an order for stock. Variables are used
during initialization, ie stklvl = whatever the max stock level is for that item. The user then enters the quantity on hand. When the user presses the enter key, the following macro executes: Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then TextBox2 = Str(stklvl) - Str(TextBox1) End If End Sub Textbox2 is the difference between max stock level (stklvl) and quantity on hand. How do I transfer the value of stklvl from the initialization macro to this macro so I can compute the difference? Thanks, Les |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
You need to have stklvl declared as a public variable.
If you currently have the line "Dim stklvl" in the initialisation macro, delete it. Then, before that macro type: Public stklvl as Variant "WLMPilot" wrote: I am using a userform to create an order for stock. Variables are used during initialization, ie stklvl = whatever the max stock level is for that item. The user then enters the quantity on hand. When the user presses the enter key, the following macro executes: Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then TextBox2 = Str(stklvl) - Str(TextBox1) End If End Sub Textbox2 is the difference between max stock level (stklvl) and quantity on hand. How do I transfer the value of stklvl from the initialization macro to this macro so I can compute the difference? Thanks, Les |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Thanks, will give it a shot
"Sam Wilson" wrote: You need to have stklvl declared as a public variable. If you currently have the line "Dim stklvl" in the initialisation macro, delete it. Then, before that macro type: Public stklvl as Variant "WLMPilot" wrote: I am using a userform to create an order for stock. Variables are used during initialization, ie stklvl = whatever the max stock level is for that item. The user then enters the quantity on hand. When the user presses the enter key, the following macro executes: Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then TextBox2 = Str(stklvl) - Str(TextBox1) End If End Sub Textbox2 is the difference between max stock level (stklvl) and quantity on hand. How do I transfer the value of stklvl from the initialization macro to this macro so I can compute the difference? Thanks, Les |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi,
Declare the variable as public, set syklvl in the initialise code and it will pass to your keydown code Public stklvl As Long Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then TextBox2 = stklvl - Val(TextBox1) End If End Sub Private Sub UserForm_Initialize() stklvl = 99 End Sub Mike "WLMPilot" wrote: I am using a userform to create an order for stock. Variables are used during initialization, ie stklvl = whatever the max stock level is for that item. The user then enters the quantity on hand. When the user presses the enter key, the following macro executes: Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then TextBox2 = Str(stklvl) - Str(TextBox1) End If End Sub Textbox2 is the difference between max stock level (stklvl) and quantity on hand. How do I transfer the value of stklvl from the initialization macro to this macro so I can compute the difference? Thanks, Les |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Thanks, will give it a shot
"Mike H" wrote: Hi, Declare the variable as public, set syklvl in the initialise code and it will pass to your keydown code Public stklvl As Long Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then TextBox2 = stklvl - Val(TextBox1) End If End Sub Private Sub UserForm_Initialize() stklvl = 99 End Sub Mike "WLMPilot" wrote: I am using a userform to create an order for stock. Variables are used during initialization, ie stklvl = whatever the max stock level is for that item. The user then enters the quantity on hand. When the user presses the enter key, the following macro executes: Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then TextBox2 = Str(stklvl) - Str(TextBox1) End If End Sub Textbox2 is the difference between max stock level (stklvl) and quantity on hand. How do I transfer the value of stklvl from the initialization macro to this macro so I can compute the difference? Thanks, Les |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Transfer variable to user Form | Excel Discussion (Misc queries) | |||
Transfer Variable from Form to Module | Excel Programming | |||
transfer a variable balance from one worksheet to the next | New Users to Excel | |||
how do i transfer existing excel macros to a new computer? | Excel Discussion (Misc queries) | |||
How do I transfer macros in excel between two computers? | Excel Discussion (Misc queries) |