Message pop ups when todays date maTches in a column

[Shayeebur]

Hi chandoo,
I have a worksheet in sheet1 in column A contains name and column E contains dates i am looking for macro if a person open this file the message pop up when column E date matches with todays date. The popup msg will be the persons name of the corresponding column e of todays date.

 

[Luke M]

Right-click on Sheet tab, view code. This will open the VBE. In the ThisWorkbook module, paste this code:

Private Sub Workbook_Open()
Dim fCell As Range
'Change sheet name to suit
With Worksheets("Sheet1")
    On Error Resume Next
    Set fCell = .Range("E:E").Find(Date)
    On Error GoTo 0
   
    If Not fCell Is Nothing Then
        MsgBox .Cells(fCell.Row, "A").Value
    End If
End With
End Sub

 

[Shayeebur]

hi Luke,

Sorry to say its not working. I have uploaded the file just have a look at this.

 

[Luke M]

Workbook did not get uploaded.

 

[Shayeebur]

Hi Luke,
Please have a look at this file

 

[Debraj]

Hi @Shayeebur

check this one, and confirm, if its working for you..

Private Sub Workbook_Open()
    With Sheets("Sheet1").Range("A1").CurrentRegion
        .AutoFilter 5, xlFilterToday, xlFilterDynamic
        If Range("A1:A" & .Rows.Count).SpecialCells(12).Cells.Count > 1 Then
            For Each cell In .Range("A2:A" & .Rows.Count).SpecialCells(12)
                msg = msg & "-" & cell.Value
            Next cell
        End If
        .AutoFilter
    End With
    If Len(msg) > 2 Then _
        MsgBox "Hello " & Mid(msg, 2)
End Sub

 

[Shayeebur]

hi debraj
Thanks a lot its working.

Thanks once again