Araç Muayene ve Sigorta Takip Etme

Bu dosya, araçların sigorta, muayene, kasko ve egzoz bitiş tarihlerini tek sayfada izlemenizi sağlar. Kalan gün sayısı her açılışta hesaplanır, süreye göre renklendirilir ve sigortalıya hazırlanan mail metni oluşturulur.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar etkinleşmezse hesaplama ve renklendirme çalışmaz.

Dosyanın içeriği​

Dosyada tek sayfa vardır: SMK (A1:R23). Üst bölümde bugünün tarihi ve uyarı gün sayıları yer alır. Tablo 4. satırdan başlar, 20 araç satırı barındırır.

• A2 hücresi bugünün tarihini gösterir. G2, I2, K2 ve M2 hücreleri sigorta, muayene, kasko ve egzoz için uyarı gün sayılarıdır (örnekte 2).
• Başlık satırında belge seri no, sigortalı, mail gibi sütunlar ve her belge türü için bitiş tarihi ile kalan gün (KG) sütunları bulunur.
• Örnek kayıt: 2016 model, 34 ED 2016 plakalı araç, sigortalı HASAN HÜSEYİN. Q sütununda bu kayıt için "Sayın HASAN HÜSEYİN, ... plakalı" diye başlayan mail metni oluşur.
• Sayfada bir onay kutusu ve bir veri doğrulama kuralı vardır.

Kullanılan formüller​

• =TODAY() (A2): Bugünün tarihini verir.
• Kalan gün sütunlarındaki değerler formülle değil makro ile yazılır; tarih farkı, dosya açılırken hesaplanır.

Makrolar​

• Auto_Open: Dosya açılınca otomatik çalışır ve tam ekran moduna geçer. Eski O, Q ve S:T sütunlarındaki sonuçları temizler. Her dolu satırda sigorta, muayene, kasko ve egzoz tarihleri için bugüne kalan günü hesaplar. Uyarı gününden uzaksa yeşil, yaklaşmışsa turuncu, 1 gün kalmışsa sarı, süresi geçmişse kırmızı renk verir. Her durum için "bitmesine X gün kaldı", "yarın bitiyor", "bitti ve X gün geçti" gibi mesajlar üretir. Makro kendini 1 saniye sonrasına yeniden zamanlar, bu nedenle bilgisayar açık kaldıkça sürekli çalışır.
• tamekranyap ve Mmail_Gonderimi: Modülde tanımlıdır. Mail gönderimi yordamının kodu özette kısaltılmış olduğundan ayrıntısı doğrulanamadı; kullanmadan önce kodu inceleyin.
• Worksheet_Change: B sütunundaki bir hücre boşaltılırsa o satırdaki 17 hücrenin içeriğini ve rengini temizler.
• CheckBox1_Click: Onay kutusu işaretliyse "Otomatik mail gönder" (yeşil), değilse "İsteğe bağlı mail gönder." (kırmızı) yazar.
• UserForm1: Metin kutusundaki metni panoya kopyalayan bir düğme içerir.

Görülen kodda dosya silme veya dışarıya bağlantı işlemi yoktur. Mail gönderimi kısmını ise kendiniz kontrol etmelisiniz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. G2, I2, K2 ve M2 hücrelerine uyarı vermesini istediğiniz gün sayılarını yazın.
3. 4. satırdan itibaren araç ve sigortalı bilgilerini, bitiş tarihlerini girin.
4. Kalan gün ve renkler açılışta otomatik güncellenir.
5. Mail gönderim tercihini onay kutusundan seçin.

Yararlanılması temennisiyle.