VBA Alert

[john62290]

I am wanting to create an alert message if one cell is left blank in tab 1 then clicking on tab 2 would make a box pop up if it is left blank.
For example, if cell h8 is supposed to have data in it in tab 1, then the user clicks on tab 2 without entering a percentage into h8, an alert pops up and says to remember to enter the percentage in H8.
Thank you for your help./

 

[My Aswer Is This]

I am wanting to create an alert message if one cell is left blank in tab 1 then clicking on tab 2 would make a box pop up if it is left blank.
For example, if cell h8 is supposed to have data in it in tab 1, then the user clicks on tab 2 without entering a percentage into h8, an alert pops up and says to remember to enter the percentage in H8.
Thank you for your help./

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window:
The script runs when you activate the sheet.

Private Sub Worksheet_Activate()
If Sheets(1).Range("H8").Value = "" Then MsgBox "Sheets(1).Range(""H8"") is empty"

End Sub

 

[john62290]

Thanks. This works for when I click on the tab but can I have it pop up when I click to another tab. When I go to tab 2 or any other tab, that is when I want it to populate.

 

[EXCEL MAX]

You can modify code to look like this and insert it in the "ThisWorkbook" module.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
     If Not ActiveSheet.Name = Sheets(1).Name And _
        Sheets(1).Range("H8").Value = "" Then _
        MsgBox "Sheets(1).Range(""H8"") is empty"
       
End Sub

 

[My Aswer Is This]

Thanks. This works for when I click on the tab but can I have it pop up when I click to another tab. When I go to tab 2 or any other tab, that is when I want it to populate.

My script should have been put in the other sheet that you want it to run in not in the sheet with Range("H8"

 

[My Aswer Is This]

You can modify code to look like this and insert it in the "ThisWorkbook" module.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  
     If Not ActiveSheet.Name = Sheets(1).Name And _
        Sheets(1).Range("H8").Value = "" Then _
        MsgBox "Sheets(1).Range(""H8"") is empty"
      
End Sub

That's true if you want it to run when any sheet is activated.
But I never saw where he said if any sheet. We will see

 

[My Aswer Is This]

Here is the original post:
if one cell is left blank in tab 1 then clicking on tab 2 would make a box pop up if it is left blank.
It did not say if any sheet is activated

 

[EXCEL MAX]

Ha, ha, you are right.
According to the original post we can conclude John looking strictly for tab2,
but my post was extended version after John's reply ("When I go to tab 2 or any other tab") .

 

[Fluff]

Another option is to use the deactivate event like

Private Sub Worksheet_Deactivate()
   
   If Range("H8") = "" Then
      MsgBox "Please fill cell H8"
      Me.Activate
      Range("H8").Activate
   End If
End Sub