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

M

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
 
Sort by date Sort by votes
On 2002-03-20 13:47, Morrissey wrote:
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
Click to expand...

Ok, in the code for your button put in the following code:
NameOfYourUserform.hide
 
Upvote 0

Excel Facts

Wildcard in VLOOKUP
Use =VLOOKUP("Apple*" to find apple, Apple, or applesauce
It does not matter where you put the code as long as you make sure that it is in the code for your userform and in a sub procedure for the button.
 
Upvote 0
Hey Al Another Problem Has Come Up When I Put That Code In I HAd To Go Into The Debug Menu And This Error Message Came Up

Compile Error:
Method Or Data Memeber Not Found
 
Upvote 0
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 txtInvoiceNum_Change()
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


Here is all the code wherer do I put it when we know this we will be happy!
 
Upvote 0
I don't care about all that code.
Tell me how you typed the following code:
NameOfYourUserformHere.hide

Right click on The name of your Userform in the Project Explorer and select View Code. On the drop down list at the top (General) select the Name of your button that will hide your userform, make sure the next drop down list at the top to the right says "click" Then find where it entered the procedure into the code portion of the page and look for:
Private Sub NameofYourCommandButton_Click()

End Sub
and paste the following code in the blank line before "End Sub":
NameofYourUserform.hide

Obviously, you have to substitute NameofYourUserform with the name of your userform and NameofYourCommandButton with the name of your command button.
 
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Question
Add in VBA Code to check zip code against pre-determined list
Replies
0
Views
155
mikefisher
M
P
  • Solved
Textbox BackColor Problem
Replies
5
Views
246
rlv01
R
M
  • Solved
VBA comparing cell values dosen't work consistantly
Replies
6
Views
109
michaelehoudek
M
P
  • Question
Checking if any text has been entered
Replies
2
Views
204
Pacman52
P
M
  • Question
add a Find/Update button to my userform1 that will allow me to find a report # in my worksheets, repopulate the userform.
Replies
7
Views
163
dmt32
D

Forum statistics

Threads
1,214,913
Messages
6,122,207
Members
449,074
Latest member
cancansova

Share this page

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