MsgBox ile ilgil yardım

[mozdem]

Aslında başlığa tam olarak ne yazmam gerektiğini bilmiyorum. Ek dosyadayı inceleyince anlaşılacaktır.
Yardımlarınızı bekliyorum.
Teşekkür ederim.

 

[Necdet]

Merhaba,

Kodları dener misiniz?

Private Sub Workbook_Open()
On Error Resume Next
Dim Mesaj   As String
Dim c       As Range
Dim Adr     As String
With Worksheets("Ajanda").Range("B:B")
    Set c = .Find(Date, LookIn:=xlFormulas)
    If Not c Is Nothing Then
        Adr = c.Address
        Do
            Mesaj = Mesaj & Chr(10) & Cells(c.Row, "C")
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adr
    End If
End With
MsgBox Mesaj, vbInformation, Format(Date, "dd.mm.yyyy") & " Tarihinde Hatırlanması Gerekenler"
End Sub

 

[mozdem]

Çok Teşekkür ..

Hocam Çok teşekkür ederim. Tam istediğim gibi.
Ellerinize sağlık.