The Last Question About My Data Form No More Help Needed Aft
The Last Question About My Data Form No More Help Needed Aft
Thanks Thanks:  0
Likes Likes:  0
Page 1 of 2 12 LastLast
Results 1 to 10 of 19

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

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

    Default

     
    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

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

    Default

    come on this is really easy I need to know

  3. #3
    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

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

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

    Default

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

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

    Default

    please

  6. #6
    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

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

    End Sub

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

    Default

    The Last Line

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

    Default

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

  9. #9
    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

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

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

    Default

      
    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

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