Form will not refresh without an unneeded msgbox
Terry,
Seems you're going a long way round to do what you want.
Private Sub CommandButtonEditQuote_Click()
FormInput.Show
End Sub
In FormInput:
Private Sub UserForm_Activate()
FormInput.ReloadQuotetoInputForm
End Sub
HTH
Henry
"TerryK" wrote in message
...
The suggestion from Shah Shailesh did not work (seems like it should) so
here is the code from the spreadsheet module that reloads the userform
(Inputform)
Private Sub CommandButtonEditQuote_Click()
Load FormInput
FormInput.UserForm_Activate
FormInput.ReloadQuotetoInputForm
'the sub above reloads the info to the form and runs the calculations
FormInput.Show (0)
'if I do not include the msgbox below - the form view is
incorrect-calculations are not run
Response = MsgBox("Quote has been successfully reloaded for editing",
vbOK)
End Sub
Thanks to both of you for your suggestions.
TerryK
|