D
dan dungan
Hi,
Using Excel 2000 and Windows XP professional, I'm using the following
code to create a variable to use in another sub.
In a quoting application I'm designing, I'm collecting all the
quantities for a part number quote into an variable named "a". I have
a userform with a textbox and a command button. See the code I'm
using below.
I have two questions:
How can I save the variable for use in another sub?
How can I make sure the user doesn't click the command button until a
quantity is entered in the text box?
Thanks,
Dan
------------------------------------------------------------------
Private Sub cmdQuantity_Click()
Dim lr As Long, sh As Worksheet
Dim aQuant As Variant
Dim cont
Static a() As String
Dim lngArrayCounter As Integer
lngArrayCounter = -1
On Error Resume Next
lngArrayCounter = UBound(a)
On Error GoTo 0
If lngArrayCounter = -1 Then
ReDim Preserve a(0)
Else
ReDim Preserve a(lngArrayCounter + 1)
End If
a(UBound(a)) = txtQuantity_1.Text
cont = MsgBox("DO YOU NEED TO MAKE ANOTHER ENTRY?", vbYesNo,
"CONTINUE?")
If cont = vbYes Then
Me.txtQuantity_1.Text = ""
Me.txtQuantity_1.SetFocus
End If
End Sub
Using Excel 2000 and Windows XP professional, I'm using the following
code to create a variable to use in another sub.
In a quoting application I'm designing, I'm collecting all the
quantities for a part number quote into an variable named "a". I have
a userform with a textbox and a command button. See the code I'm
using below.
I have two questions:
How can I save the variable for use in another sub?
How can I make sure the user doesn't click the command button until a
quantity is entered in the text box?
Thanks,
Dan
------------------------------------------------------------------
Private Sub cmdQuantity_Click()
Dim lr As Long, sh As Worksheet
Dim aQuant As Variant
Dim cont
Static a() As String
Dim lngArrayCounter As Integer
lngArrayCounter = -1
On Error Resume Next
lngArrayCounter = UBound(a)
On Error GoTo 0
If lngArrayCounter = -1 Then
ReDim Preserve a(0)
Else
ReDim Preserve a(lngArrayCounter + 1)
End If
a(UBound(a)) = txtQuantity_1.Text
cont = MsgBox("DO YOU NEED TO MAKE ANOTHER ENTRY?", vbYesNo,
"CONTINUE?")
If cont = vbYes Then
Me.txtQuantity_1.Text = ""
Me.txtQuantity_1.SetFocus
End If
End Sub