Is there a way to display a message on a frame without the msgbox in VBA?

[excel_sat]

Hi All,

Iam wondering.. is there a way to display just the message without the msgbox (preferably on a frame ) so that the user will just view the message and don't need to close the message like it happens with msgbox?

Ps: formatting of the text displayed would be good too...

 

[Fishboy]

Hi excel_sat,

If you use the following code to create your message box it will automatically close after the pre-defined amount of time.

Sub MessageBoxTimer()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after X seconds
    AckTime = 10
    Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select
End Sub

You can change the bold AckTime = 10 to however many seconds you want the box open for.
You can change the bold "This is your Message Box" to whatever you want the message to read.
I hope this helps.

 

[Fishboy]

Hi excel_sat,

If you use the following code to create your message box it will automatically close after the pre-defined amount of time.

Sub MessageBoxTimer()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after X seconds
    AckTime = 10
    Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select
End Sub

You can change the bold AckTime = 10 to however many seconds you want the box open for.
You can change the bold "This is your Message Box" to whatever you want the message to read.
I hope this helps.

D'oh!

CORRECTION:


The bold "This is your message box" is in fact the title at the top of the msgbox.
The bold "Click OK (this window closes automatically after 10 seconds)." can be changed to whatever you want your message to read.

Sorry for the confusion.

 

[excel_sat]

Thanks for taking out time to reply but i want the message "no records found" to be just shown at the bottom of a userform where there is a frame and couple of other controls not in a msgbox.
Is that possible?

 

[Fishboy]

Thanks for taking out time to reply but i want the message "no records found" to be just shown at the bottom of a userform where there is a frame and couple of other controls not in a msgbox.
Is that possible?

Hi again excel_sat,

To be honest my knowledge of such things is somewhat limited. If my initial suggestion is not what you need you may need to wait for someone else to pick up the query for you I am afraid.

Sorry I couldn't be of more help.

 

[steve the fish]

This type of thing may help. You need to make sure all names of the objects are correct or it will error:

Sub openForm()

Dim sh As Worksheet

Set sh = Sheets("Sheet1")

With UserForm1.Label1
    .Caption = "Write message here"
    .Font = sh.Range("A1").Font.Name
    .Font.Size = sh.Range("A1").Font.Size
End With

UserForm1.Show

End Sub

 

[excel_sat]

No Problem Fishboy...
appreciate your help