Transfer variable between macros
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
|