Tarih yazıldıktan sonra 30 gün sonra hatırlatma mesajı...

[manly]

Ekte gönderdiğim dosyada " I " sütununda siparişin açılış tarihi girildikten 30 gün sonunda " K " sütununa kayıt girilmez ise mesaj ile uyarsın...

 

[manly]

Sayın hocalarım yardımlarınızı bekliyorum...

 

[Korhan Ayhan]

Merhaba,

"I" sütunundaki tüm veri aynı andamı kontrol edilecek, yoksa sadece tıkladığınız hücre içinmi uyarı almak istiyor sunuz?

 

[manly]

Evet hocam aynı anda kontrol edilecek... uyarı olarak o satırlar renklendirilse ya da bir çalışma sayfasına aktarılsa...

 

[manly]

Korhan hocam yardımlarınızı bekliyorum...

 

[Korhan Ayhan]

Merhaba,

Renklendirme işlemini koşullu biçimlendirme ile rahatlıkla yapabilirsiniz.

Mouse ile A2:Z1000 aralığını seçin. 1000 değerini isteğe göre arttırabilirsiniz.
Biçim-Koşullu biçimlendirme menüsünü açın.
İlk kutucuktan "formül" seçeneğini seçin.
İkinci kutucuğa aşağıdaki formülü uygulayın.

=VE(BUGÜN()-$I2>=30;$K2="")

Daha sonra "biçim" butonuna tıklayın ve dilediğiniz desen rengini seçip işlemi tamamlayın.

 

[manly]

Çok teşekkürler hocam, günü geçen satırları bir makro ile başka bir sayfaya kopyalatabilirmiyiz..siz kodu verseniz ben gerisini hallederim. Kod yazma da zorlanıyorum...

 

[Korhan Ayhan]

Merhaba,

Dosyanıza boş bir sayfa ekleyin. Adı "ÖZET" olsun. Daha sonra aşağıdaki kodu bir butona tanımlayıp çalıştırın.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, TARİH As Date, Nesne As Shape
    
    Application.ScreenUpdating = False
    Set S1 = Sheets("ÖZET")
    Set S2 = Sheets("2011 SİPARİŞLER")
    
    S1.Range("A2:Z" & Rows.Count).ClearContents
    TARİH = Date - 30
    S2.Range("A1:Z1").AutoFilter Field:=9, Criteria1:="<=" & CLng(TARİH)
    S2.Range("A1:Z1").AutoFilter Field:=11, Criteria1:="="
    S2.Range("A1").CurrentRegion.Copy S1.Range("A1")
    S1.Select
    For Each Nesne In S1.Shapes
        Nesne.Delete
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[manly]

Hocam kodunuzu yazdım, aktarma işi tamam ama 2011 SİPARİŞLER sayfası da değişti ...o sayfanın değişmemesi gerekiyor... Bu ara koşullu biçimlendirmeye yazdığım formulü silemiyorum. Devamlı aktif oluyor..

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

 

[manly]

Çok sağolun hocam... Allah razı olsun...

 

[manly]

Korhan hocam bu uygulama gayet güzel..fakat bu uygulamayı sadece "Z" sütununda bulunan "*" ları şart koşarak yapabilirmiyiz..