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

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

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

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

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

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