1st post in a week! need a "please wait" UserFom or MsgBox
1st post in a week!  need a "please wait" UserFom or MsgBox
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 6 of 6

Thread: 1st post in a week! need a "please wait" UserFom or MsgBox

  1. #1
    Board Regular
    Join Date
    Feb 2002
    Location
    OKC
    Posts
    98
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

     
    this is the coolest...with the cloud and all....

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

    Default

    I have a sheet that is pulling data from a MYSQL dbase and it takes up to 15 seconds for excel to "refresh" the query! I have a commandbutton that the user clicks to refresh the data among other things. After the user clicks this button I also need a message to appear until the refresh is completed - saying "please wait"

    All help is appreciated..

  3. #3
    MrExcel MVP Damon Ostrander's Avatar
    Join Date
    Feb 2002
    Location
    Denver, Colorado USA
    Posts
    4,240
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Hi Keith,

    This doesn't use either a userform or message box, but it works.

    Sub PleaseWait()
    With ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, 200, 150, 150, 100)
    .Name = "Wait a bit"
    .TextFrame.Characters.Text = "Please Wait..."
    .TextFrame.HorizontalAlignment = xlHAlignCenter
    .TextFrame.VerticalAlignment = xlVAlignCenter
    End With
    Application.OnTime Now + 10 / 86400, "WaitOver"
    End Sub

    Sub WaitOver()
    ActiveSheet.Shapes("Wait a bit").Delete
    End Sub

    This just schedules the wait message to appear for 10 seconds, then deletes it. Since you want it to disappear when the data gets refreshed, I suggest you eliminate the line of code that schedules the deletion (using the OnTime method), and simply put the code that deletes the message into the worksheet's Change or Calculate event, whichever is triggered by the data refresh.
    Keep Excelling.

    Damon

    VBAexpert Excel Consulting
    LinkedIn Profile http://www.linkedin.com/pub/damon-ostrander/7/79/a93
    AllExperts Profile http://www.allexperts.com/ep/1059-30...-Ostrander.htm

  4. #4
    MrExcel MVP Mark O'Brien's Avatar
    Join Date
    Feb 2002
    Location
    Columbus, OH, USA
    Posts
    3,530
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Excellent idea Damon. I couldn't think of a way to do that.

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

    Default

    Good idea. I had not thought of that approach exactly.

    However, I should have said in my first post that my refresh commandbutton is located on a rather large menu style userform. This presents a problem because the userform is in front of the draw layer where the shape appears. Even if I can control the shape location, the shape is still in the background. Thus users are still able to try and click other buttons because the userform is on top.

    Basically what happens now is the user clicks "refresh" and the refresh button hangs (depressed) until the refresh is complete. After the refresh the userform must be active so the user can click other commandbuttons on the userform..

    I hope I explained that correctly..

    rigth now I am messin with 1.Hide Userform - 2.Show the shape and then 3.Show Userform but I am not sure how that will work out or how it will look..

    any suggestions?

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

    Default

      
    repost

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