vize tarihi gelenler

[burhancavus61]

S sütununda araçların muayene tarihleri var b sütunundada plakaları. Muayene tarihi gelenleri 5 gün önceden uyarı yapabilirmiyiz hangi araçların muayene süresinin geldiğini öğrenmek istiyorum

 

[partner12]

yapabilirsiniz

burhan kardeş bununla ilgili excel dışında bizim bir proğramımız var. araçların vize sigorta takibinden tutunda borçları olan müşterileri bile hatırlatan ve otomotik olarak günü gelmeden yada gününde sms atan bir proğram . istersen bana ulaşırsan bu konuda sana yardımcı olabilirim.

metin kıran
partner112@hotmail.com mail atabilirsin selamlar........

 

[dost]

Merhaba,

Sub auto_open()
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
say = s1.Range("B65536").End(3).Row
For i = 1 To say
    If s1.Cells(i, "S") >= Date And (Date + 5) >= s1.Cells(i, "S") Then
        Mymsg = Mymsg & s1.Cells(i, "B") & " - " & s1.Cells(i, "S") & Chr(10)
    End If
Next i
MsgBox (Mymsg)

End Sub