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
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