The Last Question About My Data Form No More Help Needed Aft

[Morrissey]

Hi last question Ok My User Form Is Done However There Is One Last Problem I Want The Button I Have On It To Say Enter Invoice Details When I Click To Exit The Form Here Is The Code I know It's "Unload Me" But I Don't Know Where To Put It Can You Tell Me Please Here Is The Code Once Again To Help!

Private Sub cmdEnterInvoiceData_Click()

On Error GoTo WrongInput
Sheet1.Range("b11").Value = CDbl(txtInvoiceNum.Text)
Exit Sub

WrongInput:
MsgBox "Please enter a number"
txtInvoiceNum.Text = ""
txtInvoiceNum.SetFocus

End Sub



Private Sub txtContainerType_Change()
Sheet1.Range("B19").Value = txtContainerType
Combobox1.AddItem "20"
Combobox1.AddItem "40"

End Sub

Private Sub Combobox1_Change()
Sheet1.Range("B19").Value = Combobox1
End Sub

Private Sub txtDocumentation_Change()
If Not IsNumeric(txtDocumentation.Text) Then
txtDocumentation.Text = ""
MsgBox "Please enter a number"
txtDocumentation.SetFocus
Exit Sub
End If
ActiveSheet.Range("G21").Value = FormatCurrency(txtDocumentation.Text)
End Sub

Private Sub txtEnterREF_Change()
Sheet1.Range("E11").Value = txtEnterREF
End Sub

Private Sub txtGrossWeight_Change()
On Error GoTo WrongInput
Sheet1.Range("E19").Value = CDbl(txtGrossWeight.Text)
Exit Sub

WrongInput:
MsgBox "Please enter a number"
txtGrossWeight.Text = ""
txtGrossWeight.SetFocus
End Sub

Private Sub txtMarineInsurance_Change()
If Not IsNumeric(txtMarineInsurance.Text) Then
txtMarineInsurance.Text = ""
MsgBox "Please enter a number"
txtMarineInsurance.SetFocus
Exit Sub
End If
ActiveSheet.Range("G23").Value = FormatCurrency(txtMarineInsurance.Text)
End Sub

Private Sub txtMoreDetails1_Change()
Sheet1.Range("A24").Value = txtMoreDetails1
End Sub

Private Sub txtMoreDetails2_Change()
Sheet1.Range("A25").Value = txtMoreDetails2
End Sub

Private Sub txtMoreDetails3_Change()
Sheet1.Range("A26").Value = txtMoreDetails3
End Sub

Private Sub txtMoreDetails4_Change()
Sheet1.Range("A27").Value = txtMoreDetails4
End Sub

Private Sub txtMoreMoney1_Change()
If Not IsNumeric(txtMoreMoney1.Text) Then
txtMoreMoney1.Text = ""
MsgBox "Please enter a number"
txtMoreMoney1.SetFocus
Exit Sub
End If
ActiveSheet.Range("G24").Value = FormatCurrency(txtMoreMoney1.Text)
End Sub

Private Sub txtMoreMoney2_Change()
If Not IsNumeric(txtMoreMoney2.Text) Then
txtMoreMoney2.Text = ""
MsgBox "Please enter a number"
txtMoreMoney2.SetFocus
Exit Sub
End If
ActiveSheet.Range("G25").Value = FormatCurrency(txtMoreMoney2.Text)
End Sub

Private Sub txtMoreMoney3_Change()
If Not IsNumeric(txtMoreMoney3.Text) Then
txtMoreMoney3.Text = ""
MsgBox "Please enter a number"
txtMoreMoney3.SetFocus
Exit Sub
End If
ActiveSheet.Range("G26").Value = FormatCurrency(txtMoreMoney3.Text)
End Sub

Private Sub txtMoreMoney4_Change()
If Not IsNumeric(txtMoreMoney4.Text) Then
txtMoreMoney4.Text = ""
MsgBox "Please enter a number"
txtMoreMoney4.SetFocus
Exit Sub
End If
ActiveSheet.Range("G27").Value = FormatCurrency(txtMoreMoney4.Text)
End Sub

Private Sub txtPostage_Change()
If Not IsNumeric(txtPostage.Text) Then
txtPostage.Text = ""
MsgBox "Please enter a number"
txtPostage.SetFocus
Exit Sub
End If
ActiveSheet.Range("G22").Value = FormatCurrency(txtPostage.Text)
End Sub

Private Sub txtTo_Change()
Sheet1.Range("B15").Value = txtTo
End Sub

Private Sub txtVessel_Change()
Sheet1.Range("B16").Value = txtVessel
End Sub



Private Sub txtWarRiskSurcharge_Change()
If Not IsNumeric(txtWarRiskSurcharge.Text) Then
txtWarRiskSurcharge.Text = ""
MsgBox "Please enter a number"
txtWarRiskSurcharge.SetFocus
Exit Sub
End If
ActiveSheet.Range("G20").Value = FormatCurrency(txtWarRiskSurcharge.Text)
End Sub

Private Sub UserForm_Activate()

Combobox1.AddItem "20"
Combobox1.AddItem "40"


End Sub

[Morrissey]

come on this is really easy I need to know

[Al Chara]

Whatever you want to happen before you close a userform, you put it in the code for the userform in the following sub procedure:
Private Sub UserForm_Terminate()

End Sub

[Morrissey]

Hi Sorry It Deosn't Help I Just Get A Debug Message And UserForm Activate () Highlighted Please More Help

[Morrissey]

please

[Al Chara]

What code did you put in the following procedure:
Private Sub UserForm_Terminate()

End Sub

[Morrissey]

The Last Line

[Morrissey]

wouldn't it be easier for you to input it into my code therefore I can paste it in to VB editor

[Al Chara]

Explain to me as simply as you can, what you want to happen when you click to exit the userform.

[Morrissey]

Ok When I Click On The Exit Invoice Data Form Button Below I Want It To Exit Or Hide The Form When I Click The Button Now It Doesn't Do Anything I Would Like It To To Exit The Data Form Could You Please Insert That Into My Code