J
JimFor
Hi,
I'm writing a program which uses user input data. I have written the user form
part and was experimenting with the rest of the program. However, it looks
like the program stops after I close the user form. Here is a little part of
the program.
------------------------------------------------------------------------
Private Sub CancelButton_Click()
Unload UserForm1
End Sub
--------------------------------------------------------------------------
-------------
Private Sub OKButton_Click()
Sheet1.Cells(1, 10) = FirstDate
Sheet1.Cells(1, 11) = SecondDate
Sheet1.Cells(1, 12) = NoToFill
'Replace 0 values in Trade Date Field with values in Post Date field
For Kount = 2 To NoToFill
Input1 = Sheet2.Cells(Kount, 1)
Input2 = Sheet2.Cells(Kount, 2)
If Input2 = 0 Then
Sheet2.Cells(Kount, 2) = Input1
Else
Sheet2.Cells(Kount, 1) = Input2
End If
Next Kount
Unload UserForm1
End Sub
-----------------------------------------------------------
Sub MySub()
Sheet3.Cells(5, 5) = 5
End Sub
-----------------------------------
Since nothing shows up on sheet3 I assume the program never gets to Sub
MySub(). So far, no matter what I write after I close the user form it does
not process. Can anyone tell me how to get past the user form part? I thought
the program would do the next sub after the user form was unloaded.
Thanks
I'm writing a program which uses user input data. I have written the user form
part and was experimenting with the rest of the program. However, it looks
like the program stops after I close the user form. Here is a little part of
the program.
------------------------------------------------------------------------
Private Sub CancelButton_Click()
Unload UserForm1
End Sub
--------------------------------------------------------------------------
-------------
Private Sub OKButton_Click()
Sheet1.Cells(1, 10) = FirstDate
Sheet1.Cells(1, 11) = SecondDate
Sheet1.Cells(1, 12) = NoToFill
'Replace 0 values in Trade Date Field with values in Post Date field
For Kount = 2 To NoToFill
Input1 = Sheet2.Cells(Kount, 1)
Input2 = Sheet2.Cells(Kount, 2)
If Input2 = 0 Then
Sheet2.Cells(Kount, 2) = Input1
Else
Sheet2.Cells(Kount, 1) = Input2
End If
Next Kount
Unload UserForm1
End Sub
-----------------------------------------------------------
Sub MySub()
Sheet3.Cells(5, 5) = 5
End Sub
-----------------------------------
Since nothing shows up on sheet3 I assume the program never gets to Sub
MySub(). So far, no matter what I write after I close the user form it does
not process. Can anyone tell me how to get past the user form part? I thought
the program would do the next sub after the user form was unloaded.
Thanks