Popup box moving to new tab

[Michele]

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

 

[Simon Lloyd]

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)

 

[Michele]

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]

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.

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




Office Discussion' (http://www.thecodecage.com))
Lloyd' (http://www.thecodecage.com/forumz/member.php?userid=1)
Forums' (http://www.thecodecage.com/forumz/showthread.php?t=108187)

--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)

 

[Michele]

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]

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


Microsoft Office Discussion' (http://www.thecodecage.com)))
Lloyd' (http://www.thecodecage.com/forumz/member.php?userid=1)
Forums' (http://www.thecodecage.com/forumz/showthread.php?t=108187)

--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)