Message box with no buttons ??

imported_unknown

Active Member
Joined
Jan 13, 2002
Messages
424
I'm trying to have my VBA code to show a msgbox with no buttons, but only with some information to the user.
The msgbox will stay on the screen until my VBA code sets Application.ScreenUpdating = True and Application.EnableEvents = True
I would like to have the vbInformation included in the msgbox, but NO BUTTONS.
Is this possible??

I have tried to have a userform popping up, giving me the same "please wait until data is imported and worksheet is properly formatted" info, but the VBA code won't preceed this userform. I have to manually clisk the [x] in the top right corner at the userform to get the code continue, and after about 15 seconds it dissapear and my worksheet is done.

Anyone ??
_________________
VikingS6

"I want to download Internet.
How large hard drive do I need??"
This message was edited by VikingS6 on 2002-10-06 13:00
 

Excel Facts

Format cells as time
Select range and press Ctrl+Shift+2 to format cells as time. (Shift 2 is the @ sign).
Also, if you're running Excel 2000 or XP, you could make that Userform non modal, which would allow your macro to run without any problems.
 
Upvote 0
OK - took a look at those things, and played with it a bit.

Non modal only gives me a white userform with no contents.

And the splash screen is not gonna work for me, because I want the userform to be visible for just as how long it takes to prosess the import and formatting in the background. Regardless of the size of the imported file and how long time the import takes.

I got it to work in my own way.

BUT - all of a sudden, my userform to allow input at the start, shows itself but then this code seems to override it:
TxtFileName = Application.GetOpenFilename("Text Files (*.txt), *.txt")

The UserForm1 code is this:

Private Sub StartBtn_Click()
UserForm1.Hide
End Sub

Private Sub AvbrytBtn_Click()
Unload Me
End Sub

UserForm1 have to textboxes, which allows the user to input some info for later use.

The code in my main sub is (at the start):

Load UserForm1
UserForm1.StartUpPosition = 1
UserForm1.Show
Dim TxtFileName As String
TxtFileName = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If TxtFileName = "False" Then Exit Sub


Can you help with this, or do you need more code??

_________________
VikingS6

"I want to download Internet.
How large hard drive do I need??"

EDIT: I've fixed it myself. Thanks anyway.
This message was edited by VikingS6 on 2002-10-07 06:49
 
Upvote 0

Forum statistics

Threads
1,213,490
Messages
6,113,957
Members
448,535
Latest member
alrossman

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top