- Katılım
- 13 Temmuz 2016
- Mesajlar
- 613
- Excel Vers. ve Dili
- Excel 2010 & 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 06-03-2020
Merhabalar
A:A sütunda olan son kullanma tarihleri 30 gün ve altında olanlari msgbox ile uyarı vesin.
Böyle bir kod buldum fakat gününde uyarı veriyor.
A:A sütunda olan son kullanma tarihleri 30 gün ve altında olanlari msgbox ile uyarı vesin.
Böyle bir kod buldum fakat gününde uyarı veriyor.
Kod:
Sub denetle()
tarih = Format(Now, "dd.mm.yyyy")
For i = 1 To Sheets("Sayfa1").Range("a65536").End(3).Row
If tarih = Format(Cells(i, 1), "dd.mm.yyyy") Then
say = say + 1
mesaj = "Dikkat : " & vbCr
msj = msj & Cells(i, 2) & vbCr
End If
Next i
If say >= 1 Then
MsgBox "Dikkat az günü olan " & say & " kişi var" & vbCr & mesaj & vbCr & msj
End If
End Sub
Son düzenleme: