VB - "Stop" showing message in this instance

[arnoldmo]

Hi my problem is - as anyone enters via a Macro button, a warning message appears as it should, & then takes you to the correct sheet. However part way through working the spreadsheet, a macro collects data from another sheet. the same warning message appears as the macro has left the exiting sheet & re-entered. How can I stop the warning message appear via the macro part way through the sheet??

 

[SuperFerret]

Unfortunately without being able to see your code it's difficult to see what it's doing let alone stop the messagebox.

Please post your code here in code tags and someone may be able to help

 

[arnoldmo]

As you enter from front screen I use

Private Sub Worksheet_Activate()
EntryWarning.Show
End Sub

Then it unloads when a button is clicked - using the below code.

Private Sub CommandButton1_Click()
Unload Me
End Sub

Once you are in the spread sheet, (sheet 31) some data is recorded on another page (sheet 30). When this recorded data on sheet 30 is pulled back to sheet 31, the warning message shows again. How can I only make it show at the 1st entry & not when it is pulling data from sheet 30. The coding I use is below to pull the data from sheet 30 is below.

Private Sub CommandButton5_Click()
Sheet30.Activate
Sheet30.Range("A1:F10").Select
Selection.Copy
Sheet31.Activate
Sheet31.Range("E20").Select
MsgBox "You must now paste this information into a new heading"
Application.ScreenUpdating = True
End Sub


xx

 

[SuperFerret]

Looking at the code it looks as though it is being triggered by the activates in your code:

Private Sub CommandButton5_Click()
[COLOR=red][B]Sheet30.Activate[/B][/COLOR]
Sheet30.Range("A1:F10").Select
Selection.Copy
[COLOR=red][B]Sheet31.Activate [/B][/COLOR]
Sheet31.Range("E20").Select
MsgBox "You must now paste this information into a new heading"
Application.ScreenUpdating = True
End Sub

I would think this may help:
http://www.mrexcel.com/forum/showthread.php?t=530223&highlight=Sheets%28%29.select
as you don't necessarily need to Activate or use .Select