The Last Question About My Data Form No More Help Needed Aft - Page 2
The Last Question About My Data Form No More Help Needed Aft
Thanks Thanks:  0
Likes Likes:  0
Page 2 of 2 FirstFirst 12
Results 11 to 19 of 19

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

  1. #11
    MrExcel MVP Al Chara's Avatar
    Join Date
    Feb 2002
    Location
    Newark, Delaware
    Posts
    1,701
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

     
    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
    Ok, in the code for your button put in the following code:
    NameOfYourUserform.hide
    Best regards,
    Allan Chara
    http://www.mrspreadsheets.com

  2. #12
    Board Regular
    Join Date
    Mar 2002
    Posts
    85
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Ok last question lol where do I put this in my code

  3. #13
    Board Regular
    Join Date
    Mar 2002
    Posts
    85
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Do I Put It At The Top Or Bottom

  4. #14
    MrExcel MVP Al Chara's Avatar
    Join Date
    Feb 2002
    Location
    Newark, Delaware
    Posts
    1,701
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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.
    Best regards,
    Allan Chara
    http://www.mrspreadsheets.com

  5. #15
    Board Regular
    Join Date
    Mar 2002
    Posts
    85
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  6. #16
    MrExcel MVP Al Chara's Avatar
    Join Date
    Feb 2002
    Location
    Newark, Delaware
    Posts
    1,701
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Type out the exact code that you put in. Come on, lets get this thing over with.

  7. #17
    Board Regular
    Join Date
    Mar 2002
    Posts
    85
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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!

  8. #18
    MrExcel MVP Al Chara's Avatar
    Join Date
    Feb 2002
    Location
    Newark, Delaware
    Posts
    1,701
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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.

    Best regards,
    Allan Chara
    http://www.mrspreadsheets.com

  9. #19
    Board Regular
    Join Date
    Mar 2002
    Posts
    85
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

      
    THANKS I GOT IT TO WORK THANKS FOR YOUR HELP YOUR BRILLIANT

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

 

 
DMCA.com