+ Reply to Thread
Results 1 to 4 of 4

How to stop form, if it has been already sent?

Hybrid View

  1. #1
    Registered User
    Join Date
    03-30-2008
    Posts
    32

    How to stop form, if it has been already sent?

    Hi,
    I have following requirement.

    Cell A Cell B

    Do you want to change table (Y/N)

    Do You want to change copybook (Y/N)


    If for the first question answer is Y, I should throw a form, which I am able to by using Change event of worksheet and checking the value of Cell B.

    When the second answer is also Y, I should send another form, but not the first one, in my case both the form are being sent and reason is obvious.

    If User enters N for first and Y for second then only second form should be sent and vice versa.

    And the form should be sent immediately after user enters the value.


    I need a hint/code/ or anything which might help in stopping the form to be sent second time.


    Regards,

    Tushar

  2. #2
    Forum Expert royUK's Avatar
    Join Date
    11-18-2003
    Location
    Derbyshire,UK
    MS-Off Ver
    Xp; 2007; 2010
    Posts
    26,200
    Can you post the code that you have so far?
    Hope that helps.

    RoyUK
    --------
    For Excel Tips & Solutions, free examples and tutorials why not check out my web site

    Free DataBaseForm example

  3. #3
    Registered User
    Join Date
    03-30-2008
    Posts
    32
    Hi Roy,

    Here is the code
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, Range("L:L")) Is Nothing Then
        If FirstTimeTableForm Then
           
         If UCase(Cells(11, 12)) = "Y" Then
            TABLES.Show
            FirstTimeTableForm = False
         End If
        End If
        If FirstTimeCopybookForm Then
           If UCase(Cells(18, 12)) = "Y" Then
            Copybook.Show
            FirstTimeCopybookForm = False
            End If
        End If
    End If
    End Sub
    The conditional variable are defined as Public and has been set true in module1.

    Regards,
    Tushar

  4. #4
    Forum Expert royUK's Avatar
    Join Date
    11-18-2003
    Location
    Derbyshire,UK
    MS-Off Ver
    Xp; 2007; 2010
    Posts
    26,200
    Maybe this might work.
    Private Sub Worksheet_Change(ByVal Target As Range)
    
        If Not Intersect(Target, Range("L:L")) Is Nothing Then
            If FirstTimeTableForm Then
    
                If UCase(Cells(11, 12)) = "Y" Then
                    TABLES.Show
                    FirstTimeTableForm = False
                    Exit Sub
                End If
            End If
            If FirstTimeCopybookForm Then
                If UCase(Cells(18, 12)) = "Y" Then
                    Copybook.Show
                    FirstTimeCopybookForm = False
                    Exit Sub
                End If
            End If
        End If
    End Sub

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Capturing info using VB form onto excel
    By Lilly in forum Excel Programming / VBA / Macros
    Replies: 3
    Last Post: 02-21-2013, 11:48 PM
  2. [SOLVED] User form retrieve data
    By DSJ in forum Excel Programming / VBA / Macros
    Replies: 6
    Last Post: 10-21-2012, 01:52 PM
  3. Partially Populating a form with a command button
    By glenness in forum Excel Programming / VBA / Macros
    Replies: 6
    Last Post: 10-11-2007, 06:00 AM
  4. VBA Form
    By pauluk in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 06-08-2007, 05:27 AM
  5. text box input and checkbox on user form
    By raw in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 02-05-2007, 05:27 PM

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1