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

Morrissey

Board Regular
Joined
Mar 8, 2002
Messages
85
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
 

Excel Facts

Why does 9 mean SUM in SUBTOTAL?
It is because Sum is the 9th alphabetically in Average, Count, CountA, Max, Min, Product, StDev.S, StDev.P, Sum, VAR.S, VAR.P.
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
 
Upvote 0
Hi Sorry It Deosn't Help I Just Get A Debug Message And UserForm Activate () Highlighted Please More Help
 
Upvote 0
What code did you put in the following procedure:
Private Sub UserForm_Terminate()

End Sub
 
Upvote 0
Explain to me as simply as you can, what you want to happen when you click to exit the userform.
 
Upvote 0
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
 
Upvote 0

Forum statistics

Threads
1,213,531
Messages
6,114,172
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top