Dosyada aşağıda belirttiğim kod ile MuayeneBitiş tarihi o gün olan araçları Resimdeki gibi listeliyorum. MsgBox da 1024 karakter gösterilebiliyor. Bu sınırda benim için yeterli.
Çözmem gereken sorunlar:
1 - Listede o günün tarihinden itibaren +6 günlük sonuçları Plaka ya göre Her plaka numarası listede aynı tarihte sadece bir kere yer alacak şekilde msgbox da yazdırmak.
2- Dönen sonuçların msgboxda düzenli görünebilmesi için tarih plaka ve araç tipi alanlarının aralarına belli tab aralıkları verebilmek.
Yardımlarınız için teşekkür ederim.
Kod:
Sub MuayeneTarihiHatirlat()
tarih = Format(Now, "dd.mm")
For i = 1 To Sheets("Policeler").Range("A1048576").End(3).row
If tarih = Format(Cells(i, 23), "dd.mm") Then
mesaj = "Dikkat Bu Hafta Muayene Yapılması Gereken Araçlar : " & vbCr
msj = msj & "Son Gün : " & Cells(i, 23) & " Plaka : " & Cells(i, 5) & " Araç Tipi : " & Cells(i, 6) & vbCr
End If
Next i
MsgBox mesaj & vbCr & msj
End Sub
![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
