Hatırlatma Mesajı Kodları

[İsmail Küçükşengün]

Merhabalar;

Private Sub Workbook_Open()
Application.Visible = False
On Error Resume Next
Sheets("Sayfa1").Select
bulunan = ""
bul = Range("B1:B100").Find(Date).Row

With Range("B1:B100")
Set c = .Find(Date)
If Not c Is Nothing Then
firstAddress = c.Address
Do

bulunan = bulunan & Cells(c.Row, 1) & " --->>> " & c.Text & Chr(13)

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress

End If
End With

MsgBox bulunan, vbInformation, " DİKKAT !.. Bugüne Ait HATIRLATMALAR.. "


UserForm1.Show
Application.Visible = False
End Sub

Koduyla, Excel gizli çalışma kitabında,o güne ait hatırlatmalar varsa, mesaj panosunda sıralanıyor.
O güne ait hatırlatmalar yok ise mesaj panosu boş gelmektedir.

O güne ait hatırlatma yok ise, “ Bu güne ait Hatırlatma Yoktur.”

Şeklinde mesaj çıkması için, kodlarda gerekli ilavelerin yapılması.

Şimdiden Teşekkürlerimi sunarım.

 

[İsmail Küçükşengün]

Örnek ektedir.

 

[essmaa]

meraba

Merabalar ÇaliŞmaniz Cok GÜzel Ama Benİm AnlamadiĞim Bu Kodlari Excel Mİ Gİrmem Gerekİyor Yardimci Olurmusun Veya Bİ Örnek GÖnderebİlİrmİsİn Şİmdİden TŞk Ederİm

İyİ ÇaliŞmalar