Vba code for automatic pop up message

[bunienie]

Hi everyone!

I am new here. I would like to ask if someone could provde me vba codes for an automatic pop up message. I have data from range E2:PO150, and I put a conditional formatting to highlight entire row to red once a certain condition is met. With that, I would also like to add a pop up message function once any of the rows of my table are highlighted . The message is to remind user to delete those highlighted rows.

Thanks.

 

[Joe4]

Welcome to the Board!

Instead of having an automated message pop-up telling them to delete the row, would it better to have automation just delete that row?

Regardless of which way you want to go, we need more information.
What exactly is your Conditional Formatting rule?
How is the data in your range being updated (manually entered in, results of formulas changing, hyperlinks, etc)?

 

[Flaiban]

Try this code in Workbook...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Long
Dim lastRow As Integer

lastRow = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row

 For i = lastRow To 2 Step -1 'Step --1 tells VBA to loop in reverse
'MsgBox (Cells(i, 5) & " " & Cells(i, 5).Interior.ColorIndex)
    If ActiveSheet.Cells(i, 5).Interior.ColorIndex = "3" Then
       MsgBox ("Row " & i & " is Highlited and will be deleted")
       Rows(i).EntireRow.Delete     
       i = i + 1
    End If

Next i
End Sub

or...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Long
Dim lastRow As Integer

lastRow = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row

 For i = lastRow To 2 Step -1 'Step --1 tells VBA to loop in reverse
'MsgBox (Cells(i, 5) & " " & Cells(i, 5).Interior.ColorIndex)
    If ActiveSheet.Cells(i, 5).Interior.ColorIndex = "3" Then
       'MsgBox ("Row " & i & " is Highlited and will be deleted") ' To delete everything
       Rows(i).EntireRow.Delete       
       i = i + 1
    End If

Next i
End Sub