Uyarı Mesaj

[baba]

Merhaba;
Sayfa1'de (SATIN ALMA TESLİM) Banka Teminat Mektubu Listesi bulunmaktadır. Burada UYARI Mesajına ihtiyacım var. Yani (K) Sütunundaki Tarih, Gününden 7 gün önce uyarı verilmesini sağlamak istiyorum.Örneği; Bugün Ayın 30.03.2016 ise 7 gün Sonra ya denk gelen 06.04.2016 Tarihindeki satırlarında bulunan Firmaları Şu Şekilde Uyarı Mesajı olmalı(AAAA FİRMASININ BANKA TEMİNAT MEKTUBUNUN GÜN DOLMAK ÜZERE) Yardımınız Bekliyorum.


http://s6.dosya.tc/server6/o8mcau/_LKR_DENEME001_.xls.html

 

[asi_kral]

Merhaba;
Sayfa1'de (SATIN ALMA TESLİM) Banka Teminat Mektubu Listesi bulunmaktadır. Burada UYARI Mesajına ihtiyacım var. Yani (K) Sütunundaki Tarih, Gününden 7 gün önce uyarı verilmesini sağlamak istiyorum.Örneği; Bugün Ayın 30.03.2016 ise 7 gün Sonra ya denk gelen 06.04.2016 Tarihindeki satırlarında bulunan Firmaları Şu Şekilde Uyarı Mesajı olmalı(AAAA FİRMASININ BANKA TEMİNAT MEKTUBUNUN GÜN DOLMAK ÜZERE) Yardımınız Bekliyorum.


http://s6.dosya.tc/server6/o8mcau/_LKR_DENEME001_.xls.html

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub auto_open()
Dim STR As Long, S1 As Worksheet
Set S1 = Sheets("SATIN ALMA TESLİM")
For STR = 10 To S1.Cells(Rows.Count, "A").End(xlUp).Row
If S1.Cells(STR, "K") = Date + 7 Then
MsgBox S1.Cells(STR, "E") & " Firmasının " & S1.Cells(STR, "G") _
& " Bankasının " & S1.Cells(STR, "H") & " Tarihli " & _
Format(S1.Cells(STR, "J"), "#,##.00") & " Meblağlı Teminat Mektubunun Günü Dolmak Üzere"
End If
Next
End Sub

 

[baba]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub auto_open()
Dim STR As Long, S1 As Worksheet
Set S1 = Sheets("SATIN ALMA TESLİM")
For STR = 10 To S1.Cells(Rows.Count, "A").End(xlUp).Row
If S1.Cells(STR, "K") = Date + 7 Then
MsgBox S1.Cells(STR, "E") & " Firmasının " & S1.Cells(STR, "G") _
& " Bankasının " & S1.Cells(STR, "H") & " Tarihli " & _
Format(S1.Cells(STR, "J"), "#,##.00") & " Meblağlı Teminat Mektubunun Günü Dolmak Üzere"
End If
Next
End Sub

Çok teşekkürler ederim. Ellerinize sağlık
Özür dileyerek Benden kaynaklanan Eksik Bildirimim var. Günü Gelenleri Belirlendi ama Gün Bitenlerinide Uyarı vermesini sağlayabilirmiyiz.
Saygılarımla.

 

[asi_kral]

Çok teşekkürler ederim. Ellerinize sağlık
Özür dileyerek Benden kaynaklanan Eksik Bildirimim var. Günü Gelenleri Belirlendi ama Gün Bitenlerinide Uyarı vermesini sağlayabilirmiyiz.
Saygılarımla.

Kodu bununla değiştirip dener misiniz ?

Option Explicit
Sub auto_open()
Dim STR As Long, S1 As Worksheet, KLN As Variant, GLN As Variant
Set S1 = Sheets("SATIN ALMA TESLİM")
For STR = 10 To S1.Cells(52, "B").End(xlUp).Row
If S1.Cells(STR, "K") = Date + 7 Then
If KLN = "" Then
KLN = S1.Cells(STR, "E") & " Firmasının " & S1.Cells(STR, "G") _
& " Bankasının " & S1.Cells(STR, "H") & " Tarihli " & _
Format(S1.Cells(STR, "J"), "#,##.00 TL")
Else
KLN = KLN & vbLf _
& S1.Cells(STR, "E") & " Firmasının " & S1.Cells(STR, "G") _
& " Bankasının " & S1.Cells(STR, "H") & " Tarihli " & _
Format(S1.Cells(STR, "J"), "#,##.00 TL")
End If
ElseIf S1.Cells(STR, "K") = Date Then
If GLN = "" Then
GLN = S1.Cells(STR, "E") & " Firmasının " & S1.Cells(STR, "G") _
& " Bankasının " & S1.Cells(STR, "H") & " Tarihli " & _
Format(S1.Cells(STR, "J"), "#,##.00 TL")
Else
GLN = GLN & vbLf _
& S1.Cells(STR, "E") & " Firmasının " & S1.Cells(STR, "G") _
& " Bankasının " & S1.Cells(STR, "H") & " Tarihli " & _
Format(S1.Cells(STR, "J"), "#,##.00 TL")
End If: End If
Next
MsgBox KLN & vbLf _
& " Yukarıda Dökümü Yapılan Teminat Mektuplarının Süresi Dolmak Üzere"
MsgBox GLN & vbLf _
& " Yukarıda Dökümü Yapılan Teminat mektuplarının Süresi Doldu"
End Sub

 

[baba]

Emeğinize, Ellerinize, Yüreğinize Sağlık Teşekkürler.
Son Olarakda Bitenleri (SÜRESİ DOLAN) Sayfası ekleyip Kontrol ettiğimiz zaman Günü Bitenleri Oraya Aktarım Yapılması ve (SATIN ALMA TESLİM) Sayfasından Silmesini Sağlayan bilir miyiz?

 

[asi_kral]

Taksit taksit olunca bu kodlar iş yapmıyor.

 

[baba]

Özür Dilerim
Özür Dilerim

 

[baba]

Yazılmış Bu Kod 2007 ile 2010 Arasında sıkıntı oluşturur mu? Evdeki 2010 İşyerindeki 2007 Ama Evdekinde Firmalar Gelmemektedir. Sadece Süresi Dolan ve Süresi Bitten Var Diyor.