Belirlenen Tarihe Göre Hatırlatma Amaçlı Uyarı Mesajı Versin (Msgbox)

[Sarigol_937]

Merhaba arkadaşlar ben excel çalışma kitabımı açtıktan sonra belirlediğim tarihe göre uyarı hatırlatma mesajı vermesini yapmam mümkünmü?

Veriler :

1)Ayın 5'i ise " Performans Bildirimi Tablosu Mail Atılacak" şeklinde Msgbox uyarı versin.
2)Ayın 8'i ise " Dönem Yedeği Alınacak Bugün" şeklinde Msgbox uyarı versin.
3)Ayın 8,9,10'u ise "Banka Maiileri Bankaya Gönderilecek" şeklinde Msgbox uyarı versin.
4)Ayın 10,11,12'u ise "Banka Listeleri Hastaneye Gönderilecek" şeklinde Msgbox uyarı versin.
5)Ayın 13,14,15' ise "SGK Bildirimleri Yapılacak Bugün" şeklinde Msgbox uyarı versin.
6) Ayın son günü ise " Aylık Gelir Gider Planı Yapılacak" şeklinde Msgbox uyarı versin.

Yardımcı olan arkadaşlara şimdiden teşekkürler.

 

[paranormal]

asagidaki kodu deneyin

Dim Now As Date, cyBirthday As Date
Set ws = Sheets("ÖzelGünler")
Set deg = CreateObject("WScript.Shell")
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow

myName = ws.Range("A" & i)
Now = ws.Range("B" & i)
cyBirthday = DateSerial(Year(Now), Month(Now), Day(Now))
If cyBirthday - Date < 0 Then cyBirthday = DateSerial(Year(Now) + 1, Month(Now), Day(Now))
Select Case cyBirthday - Date
Case 1 To 1
If myName <> "" Then
deg.popUp "YARIN, " & myName, 4
End If
Case 0
If myName <> "" Then
MsgBox tar & " " & " " & haf & ". hafta" & vbCrLf & myName
Urenlijst.Show
End If
End Select
Next

 

[Sarigol_937]

asagidaki kodu deneyin

Dim Now As Date, cyBirthday As Date
Set ws = Sheets("ÖzelGünler")
Set deg = CreateObject("WScript.Shell")
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow

myName = ws.Range("A" & i)
Now = ws.Range("B" & i)
cyBirthday = DateSerial(Year(Now), Month(Now), Day(Now))
If cyBirthday - Date < 0 Then cyBirthday = DateSerial(Year(Now) + 1, Month(Now), Day(Now))
Select Case cyBirthday - Date
Case 1 To 1
If myName <> "" Then
deg.popUp "YARIN, " & myName, 4
End If
Case 0
If myName <> "" Then
MsgBox tar & " " & " " & haf & ". hafta" & vbCrLf & myName
Urenlijst.Show
End If
End Select
Next

teşekkürler kardeşte ben bu kodu 3 güne anca istediğim gibi yaparım

 

[mekist]

Merhaba,
benimde böyle bir çalışmaya ihtiyacım var yardımcı olabilecek üstad var mıdır?