| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Popup box moving to new tab
Hi,
New to Macros, but have been picking up a bit here and there. I'd like to create a msgbox for an interactive workbook where after a user has opened the workbook, and then subsequently actives a specific sheet (only the first time they do so in the workbook), they receive a dialog box reminding them to 'Please remember to enter a,b,c for item 1,2,3 before moving on'. Example, they start on Sheet1, move to Sheet3, but then when the move to Sheet2 they get the reminder. They do not need to received the message again if the revisit Sheet2 before they save/exit the workbook. I'd like to display the same reminder on exiting the workbook. Is this possible? Thanks in advance! Michele |
|
#2
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
Popup box moving to new tab
Michele;386896 Wrote: Hi, New to Macros, but have been picking up a bit here and there. I'd like to create a msgbox for an interactive workbook where after a user has opened the workbook, and then subsequently actives a specific sheet (only the first time they do so in the workbook), they receive a dialog box reminding them to 'Please remember to enter a,b,c for item 1,2,3 before moving on'. Example, they start on Sheet1, move to Sheet3, but then when the move to Sheet2 they get the reminder. They do not need to received the message again if the revisit Sheet2 before they save/exit the workbook. I'd like to display the same reminder on exiting the workbook. Is this possible? Thanks in advance! Michele Sure put this code in the Thisworkbook code module: Code: -------------------- Public SD As Integer Private Sub SheetViewed() SD = 0 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" SheetViewed End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If ActiveSheet.Name = "Sheet2" And SD < 1 Then SD = 1 MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" End If End Sub -------------------- -- Simon Lloyd Regards, Simon Lloyd 'The Code Cage' (http://www.thecodecage.com) ------------------------------------------------------------------------ Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=108187 |
|
#3
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
Popup box moving to new tab
Hi Simon,
Your working with a kindergarten coder here, so bear with me.... I copied and pasted your code exactly as you have it below: Public SD As Integer Private Sub SheetViewed() SD = 0 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" SheetViewed End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If ActiveSheet.Name = "Sheet2" And SD < 1 Then SD = 1 MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" End If End Sub When I try to use, I keep getting a dialog box -- Compile error: Expected: end of statement -- and the word Private is highlighted. Do I need to make certain modifications in places to the code? I did have my ActiveSheet name = Sheet2 Sorry for being so dense...just trying to learn! Thanks~ Michele "Simon Lloyd" wrote: Michele;386896 Wrote: Hi, New to Macros, but have been picking up a bit here and there. I'd like to create a msgbox for an interactive workbook where after a user has opened the workbook, and then subsequently actives a specific sheet (only the first time they do so in the workbook), they receive a dialog box reminding them to 'Please remember to enter a,b,c for item 1,2,3 before moving on'. Example, they start on Sheet1, move to Sheet3, but then when the move to Sheet2 they get the reminder. They do not need to received the message again if the revisit Sheet2 before they save/exit the workbook. I'd like to display the same reminder on exiting the workbook. Is this possible? Thanks in advance! Michele Sure put this code in the Thisworkbook code module: Code: -------------------- Public SD As Integer Private Sub SheetViewed() SD = 0 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" SheetViewed End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If ActiveSheet.Name = "Sheet2" And SD < 1 Then SD = 1 MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" End If End Sub -------------------- -- Simon Lloyd Regards, Simon Lloyd 'The Code Cage' (http://www.thecodecage.com) ------------------------------------------------------------------------ Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=108187 |
|
#4
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
Popup box moving to new tab
Michelle, each line of code needs to be on its own line as shown in my first post, so, Public SD As Integer is on its own line, Private Sub SheetViewed() is on its own line...etc, it should work perfect as is. Michele;388014 Wrote: Hi Simon, Your working with a kindergarten coder here, so bear with me.... I copied and pasted your code exactly as you have it below: Public SD As Integer Private Sub SheetViewed() SD = 0 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" SheetViewed End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If ActiveSheet.Name = "Sheet2" And SD < 1 Then SD = 1 MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" End If End Sub When I try to use, I keep getting a dialog box -- Compile error: Expected: end of statement -- and the word Private is highlighted. Do I need to make certain modifications in places to the code? I did have my ActiveSheet name = Sheet2 Sorry for being so dense...just trying to learn! Thanks~ Michele "Simon Lloyd" wrote: Michele;386896 Wrote: Hi, New to Macros, but have been picking up a bit here and there. I'd like to create a msgbox for an interactive workbook where after a user has opened the workbook, and then subsequently actives a specific sheet (only the first time they do so in the workbook), they receive a dialog box reminding them to 'Please remember to enter a,b,c for item 1,2,3 before moving on'. Example, they start on Sheet1, move to Sheet3, but then when the move to Sheet2 they get the reminder. They do not need to received the message again if the revisit Sheet2 before they save/exit the workbook. I'd like to display the same reminder on exiting the workbook. Is this possible? Thanks in advance! Michele Sure put this code in the Thisworkbook code module: Code: -------------------- Public SD As Integer Private Sub SheetViewed() SD = 0 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" SheetViewed End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If ActiveSheet.Name = "Sheet2" And SD < 1 Then SD = 1 MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" End If End Sub -------------------- -- Simon Lloyd Regards, Simon Lloyd 'The Code Cage' ('The Code Cage - Microsoft Office Help - Microsoft Office Discussion' (http://www.thecodecage.com)) ------------------------------------------------------------------------ Simon Lloyd's Profile: 'The Code Cage Forums - View Profile: Simon Lloyd' (http://www.thecodecage.com/forumz/member.php?userid=1) View this thread: 'Popup box moving to new tab - The Code Cage Forums' (http://www.thecodecage.com/forumz/sh...d.php?t=108187) -- Simon Lloyd Regards, Simon Lloyd 'The Code Cage' (http://www.thecodecage.com) ------------------------------------------------------------------------ Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=108187 |
|
#5
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
Popup box moving to new tab
My hero!
When I was trying to correct the compile errors, I somehow ended up with an extra End Sub at the beginning. Thank you so much Simon!! Michele "Simon Lloyd" wrote: Michelle, each line of code needs to be on its own line as shown in my first post, so, Public SD As Integer is on its own line, Private Sub SheetViewed() is on its own line...etc, it should work perfect as is. Michele;388014 Wrote: Hi Simon, Your working with a kindergarten coder here, so bear with me.... I copied and pasted your code exactly as you have it below: Public SD As Integer Private Sub SheetViewed() SD = 0 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" SheetViewed End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If ActiveSheet.Name = "Sheet2" And SD < 1 Then SD = 1 MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" End If End Sub When I try to use, I keep getting a dialog box -- Compile error: Expected: end of statement -- and the word Private is highlighted. Do I need to make certain modifications in places to the code? I did have my ActiveSheet name = Sheet2 Sorry for being so dense...just trying to learn! Thanks~ Michele "Simon Lloyd" wrote: Michele;386896 Wrote: Hi, New to Macros, but have been picking up a bit here and there. I'd like to create a msgbox for an interactive workbook where after a user has opened the workbook, and then subsequently actives a specific sheet (only the first time they do so in the workbook), they receive a dialog box reminding them to 'Please remember to enter a,b,c for item 1,2,3 before moving on'. Example, they start on Sheet1, move to Sheet3, but then when the move to Sheet2 they get the reminder. They do not need to received the message again if the revisit Sheet2 before they save/exit the workbook. I'd like to display the same reminder on exiting the workbook. Is this possible? Thanks in advance! Michele Sure put this code in the Thisworkbook code module: Code: -------------------- Public SD As Integer Private Sub SheetViewed() SD = 0 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" SheetViewed End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If ActiveSheet.Name = "Sheet2" And SD < 1 Then SD = 1 MsgBox "Enter A,B,C in Items 1,2,3", vbOKOnly, "Entry Reminder" End If End Sub -------------------- -- Simon Lloyd Regards, Simon Lloyd 'The Code Cage' ('The Code Cage - Microsoft Office Help - Microsoft Office Discussion' (http://www.thecodecage.com)) ------------------------------------------------------------------------ Simon Lloyd's Profile: 'The Code Cage Forums - View Profile: Simon Lloyd' (http://www.thecodecage.com/forumz/member.php?userid=1) View this thread: 'Popup box moving to new tab - The Code Cage Forums' (http://www.thecodecage.com/forumz/sh...d.php?t=108187) -- Simon Lloyd Regards, Simon Lloyd 'The Code Cage' (http://www.thecodecage.com) ------------------------------------------------------------------------ Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=108187 |
|
#6
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
Popup box moving to new tab
Glad it all worked out for youMichele;388364 Wrote: My hero! When I was trying to correct the compile errors, I somehow ended up with an extra End Sub at the beginning. Thank you so much Simon!! Michele "Simon Lloyd" wrote: 'The Code Cage' ('The Code Cage - Microsoft Office Help - Microsoft Office Discussion' ('The Code Cage - Microsoft Office Help - Microsoft Office Discussion' (http://www.thecodecage.com))) ------------------------------------------------------------------------ Simon Lloyd's Profile: 'The Code Cage Forums - View Profile: Simon Lloyd' (http://www.thecodecage.com/forumz/member.php?userid=1) View this thread: 'Popup box moving to new tab - The Code Cage Forums' (http://www.thecodecage.com/forumz/sh...d.php?t=108187) -- Simon Lloyd Regards, Simon Lloyd 'The Code Cage' (http://www.thecodecage.com) ------------------------------------------------------------------------ Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=108187 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Excel POPUP | Excel Worksheet Functions | |||
| A popup to filter out what you don't need. | Excel Discussion (Misc queries) | |||
| Arrow Keys Moving Window Frame instead of Moving Between Cells | Excel Discussion (Misc queries) | |||
| Create a Popup box | Excel Discussion (Misc queries) | |||
| "Why did we get here????" popup | Excel Discussion (Misc queries) | |||
Linear Mode
