Consulting

Results 1 to 5 of 5

Thread: Display DownTimer in the UserForm & at the same time User should work with UserForm ?

  1. #1
    VBAX Regular
    Joined
    Jun 2008
    Posts
    10
    Location

    Lightbulb Display DownTimer in the UserForm & at the same time User should work with UserForm ?

    Hi,
    I wrote a Excel Macro for a Quiz Program, the requirement is -> "After we Run the Macro Exactly after one hour the Macro Should Close Automatically"

    i.e., as soon as i open the Excel Macro it should display a Downtime Timer starting form 60 Minutes at the same time user should able to answer the Questions and After completing 1hour(60 Minutes) the Macro Should display a Message and Close the Macro Program Automatically,

    how can we do this... ? Can some one please help me on this..


    ---> Please refer to the attached Macro

  2. #2
    Distinguished Lord of VBAX VBAX Grand Master Bob Phillips's Avatar
    Joined
    Apr 2005
    Posts
    25,453
    Location
    .
    ____________________________________________
    Nihil simul inventum est et perfectum

    Abusus non tollit usum

    Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
    James Thurber

  3. #3
    VBAX Regular
    Joined
    Jun 2008
    Posts
    10
    Location

    Angry when tried to Run the Program getting "Compile error: Con't find project of Library"

    Hi xld,
    Thank you for reponding to my Problem, but when i tried to Run the Macro Program i am getting "Compile error: Con't find project of Library"

    Please help me how to resolve this problem ...

    Please refer to the attached Screenshot->>>

  4. #4
    Distinguished Lord of VBAX VBAX Grand Master Bob Phillips's Avatar
    Joined
    Apr 2005
    Posts
    25,453
    Location
    Go to the VBIDE, Tools>References, and see if any items are marked as MISSING.
    ____________________________________________
    Nihil simul inventum est et perfectum

    Abusus non tollit usum

    Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
    James Thurber

  5. #5
    VBAX Tutor david000's Avatar
    Joined
    Mar 2007
    Location
    Chicago
    Posts
    276
    Location
    [vba]

    Public Sub CountDown()

    UF_StartExam.TextBox1.Text = Application.WorksheetFunction.Text(CountDownTime, "hh:mm:ss") '<<< this
    CountDownTime = CountDownTime - TimeInc
    If CountDownTime > 0 Then

    Application.OnTime Now + TimeInc, "CountDown"
    Else

    Unload UF_StartExam
    End If
    End Sub

    [/vba]

Posting Permissions

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