Reminder/ Code VBA

Hello Experts,

Please have look at my attched file. I am looking for reminder pop up when i open excel for the work not done. Pop up should come up when the work status is "NO".

Pop up -Work No...... is not yet done.

Please code for me.


Thank you in advance.
Smith WilliamAsked:
Who is Participating?
 
Martin LissOlder than dirtCommented:
Add this code to Thisworkbook.

Private Sub Workbook_Open()
Dim lngLastRow As Long
Dim lngRow As Long
Dim ws As Sheet1
Dim strNo As String

Set ws = Sheets("Sheet1")
With ws
    lngLastRow = .Range("A1048576").End(xlUp).Row
    For lngRow = 6 To lngLastRow
        If Cells(lngRow, "B") = "No" Then
            If strNo = "" Then
               strNo = Cells(lngRow, "A")
            Else
                strNo = strNo & ", " & Cells(lngRow, "A")
            End If
        End If
    Next
End With
MsgBox "Work Numbers " & strNo & " are not yet done."
End Sub

Open in new window

0
 
Martin LissOlder than dirtCommented:
You didn't actually attach your workbook.
0
 
Smith WilliamAuthor Commented:
0
Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

 
Martin LissOlder than dirtCommented:
Do you want the message to list all the "work" values where column "B" is "No"?
0
 
Martin LissOlder than dirtCommented:
The attached workbook contains a macro that uses better grammar.
29065104.xlsm
0
 
Smith WilliamAuthor Commented:
Thank you sir. Looks very good. Have a great weekend
0
 
Martin LissOlder than dirtCommented:
Please don't forget to close the question.
0
 
Smith WilliamAuthor Commented:
Thank you Sir. It was great CODE.
0
 
Martin LissOlder than dirtCommented:
You're welcome and I'm glad I was able to help.

If you expand the “Full Biography” section of my profile you'll find links to some articles I've written that may interest you.

Marty - Microsoft MVP 2009 to 2017
              Experts Exchange MVE 2015
              Experts Exchange Top Expert Visual Basic Classic 2012 to 2017
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.