I have 2 Macros that pop up on Worksheet_Calculate event.
Macro 1: This Macro pops Message from Rows of data: (Corresponds to Button 1 of attached sheet):
Sub NoData() Dim lngLoop As Long Dim strMsg As String For lngLoop = 1 To 200 If UCase(Cells(lngLoop, "L").Value) = "Y" Then strMsg = strMsg & Cells(lngLoop, "K").Value & vbNewLine End If Next lngLoop If Not strMsg = vbNullString Then MsgBox strMsg, vbOKOnly, "Note:" End If End Sub
and Macro 2: This Macro is for poping a Message Box that self destructs after 2 seconds if not acknowledged by User (Corresponds to Button 2 of attached sheet):
I need to have the message box created through Macro-1 NoData disaapear after 2 seconds if not acknowledged by User.
Macro-2 is to help get started with some ideas in case a better and more elegant solution is not available.
Sample file attached with both Macros