ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Pop Up Screen (https://www.excelbanter.com/excel-discussion-misc-queries/85725-pop-up-screen.html)

Marcus

Pop Up Screen
 
Is there a way to create a screen that pops up and displays a message when
you open a spreadsheet?

Paul B

Pop Up Screen
 
Marcus, if macros are enabled,

Private Sub Workbook_Open()
MsgBox "Your message here", , "Title here"
End Sub

To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is to the left of the "File" menu this will open
the VBA editor, in Project Explorer double click on thisworkbook, under your
workbook name, if you don't see it press CTRL + r to open the Project
Explorer, then, paste the code in the window that opens on the right hand
side, press Alt and Q to close this window and go back to your workbook, now
this will run every time you open the workbook. If you are using excel 2000
or newer you may have to change the macro security settings to get the macro
to run. To change the security settings go to tools, macro, security,
security level and set it to medium

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Marcus" wrote in message
...
Is there a way to create a screen that pops up and displays a message when
you open a spreadsheet?




Marcus

Pop Up Screen
 
That worked, Now is there a way to make it refer to a cell for the message?

"Paul B" wrote:

Marcus, if macros are enabled,

Private Sub Workbook_Open()
MsgBox "Your message here", , "Title here"
End Sub

To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is to the left of the "File" menu this will open
the VBA editor, in Project Explorer double click on thisworkbook, under your
workbook name, if you don't see it press CTRL + r to open the Project
Explorer, then, paste the code in the window that opens on the right hand
side, press Alt and Q to close this window and go back to your workbook, now
this will run every time you open the workbook. If you are using excel 2000
or newer you may have to change the macro security settings to get the macro
to run. To change the security settings go to tools, macro, security,
security level and set it to medium

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Marcus" wrote in message
...
Is there a way to create a screen that pops up and displays a message when
you open a spreadsheet?





Dave Peterson

Pop Up Screen
 
Private Sub Workbook_Open()
MsgBox "Your message here" & worksheets("sheet99").range("a1").value, _
, "Title here"
End Sub

Marcus wrote:

That worked, Now is there a way to make it refer to a cell for the message?

"Paul B" wrote:

Marcus, if macros are enabled,

Private Sub Workbook_Open()
MsgBox "Your message here", , "Title here"
End Sub

To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is to the left of the "File" menu this will open
the VBA editor, in Project Explorer double click on thisworkbook, under your
workbook name, if you don't see it press CTRL + r to open the Project
Explorer, then, paste the code in the window that opens on the right hand
side, press Alt and Q to close this window and go back to your workbook, now
this will run every time you open the workbook. If you are using excel 2000
or newer you may have to change the macro security settings to get the macro
to run. To change the security settings go to tools, macro, security,
security level and set it to medium

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Marcus" wrote in message
...
Is there a way to create a screen that pops up and displays a message when
you open a spreadsheet?





--

Dave Peterson

Marcus

Pop Up Screen
 
Ok, not to be a pain but can you set it up to select more than one cell for
the message?

"Dave Peterson" wrote:

Private Sub Workbook_Open()
MsgBox "Your message here" & worksheets("sheet99").range("a1").value, _
, "Title here"
End Sub

Marcus wrote:

That worked, Now is there a way to make it refer to a cell for the message?

"Paul B" wrote:

Marcus, if macros are enabled,

Private Sub Workbook_Open()
MsgBox "Your message here", , "Title here"
End Sub

To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is to the left of the "File" menu this will open
the VBA editor, in Project Explorer double click on thisworkbook, under your
workbook name, if you don't see it press CTRL + r to open the Project
Explorer, then, paste the code in the window that opens on the right hand
side, press Alt and Q to close this window and go back to your workbook, now
this will run every time you open the workbook. If you are using excel 2000
or newer you may have to change the macro security settings to get the macro
to run. To change the security settings go to tools, macro, security,
security level and set it to medium

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Marcus" wrote in message
...
Is there a way to create a screen that pops up and displays a message when
you open a spreadsheet?




--

Dave Peterson


Dave Peterson

Pop Up Screen
 
You can even get the stuff from different sheets:

Private Sub Workbook_Open()
MsgBox "Your message here" & worksheets("sheet99").range("a1").value & _
"more text here " & worksheets("sheet101").range("b99").value, _
, "Title here"
End Sub

Marcus wrote:

Ok, not to be a pain but can you set it up to select more than one cell for
the message?

"Dave Peterson" wrote:

Private Sub Workbook_Open()
MsgBox "Your message here" & worksheets("sheet99").range("a1").value, _
, "Title here"
End Sub

Marcus wrote:

That worked, Now is there a way to make it refer to a cell for the message?

"Paul B" wrote:

Marcus, if macros are enabled,

Private Sub Workbook_Open()
MsgBox "Your message here", , "Title here"
End Sub

To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is to the left of the "File" menu this will open
the VBA editor, in Project Explorer double click on thisworkbook, under your
workbook name, if you don't see it press CTRL + r to open the Project
Explorer, then, paste the code in the window that opens on the right hand
side, press Alt and Q to close this window and go back to your workbook, now
this will run every time you open the workbook. If you are using excel 2000
or newer you may have to change the macro security settings to get the macro
to run. To change the security settings go to tools, macro, security,
security level and set it to medium

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Marcus" wrote in message
...
Is there a way to create a screen that pops up and displays a message when
you open a spreadsheet?




--

Dave Peterson


--

Dave Peterson


All times are GMT +1. The time now is 10:26 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com