yetki bitiş tarihine 20 gün kala nasıl uyarılabilirim?

[belmando]

arkadaşlar bende sitenize bugün üye oldum gerçekten güzel bir site ellerinize sağlık. Benim sorunum şu, çalışma sayfamı açtığımda yetki tarihlerimin bitimine 20 gün kala uyarı vermesini istiyorum bu mümkünmüdür. Mümkünse arkadaşlar formülünü paylaşırmısınız. Dosyamı ekde gönderiyorum

 

[İhsan Tank]

arkadaşlar bende sitenize bugün üye oldum gerçekten güzel bir site ellerinize sağlık. Benim sorunum şu, çalışma sayfamı açtığımda yetki tarihlerimin bitimine 20 gün kala uyarı vermesini istiyorum bu mümkünmüdür. Mümkünse arkadaşlar formülünü paylaşırmısınız. Dosyamı ekde gönderiyorum

merhaba
öncelikle hoş geldiniz.
koşullu biçimlendirme ile yaptım.
biçim koşullu biçimlendirme formül bölümüne

=$B2<=BUGÜN()+20

bunu yazın biçim'i ayarlayın.
eki inceleyin

 

[İhsan Tank]

üstteki dosyda eksiklik mevcuttu onu düzelttim.

 

[Vedat Özer]

Selamlar,


Bende sitede gezerken bir dosya buldum umarım işinize yarar,

Kodları Yazan, Ömer Hocam...

Private Sub UserForm_Initialize()
    Dim X As Long, Satır As Long
    
    Me.Caption = "HATIRLATMALAR"
    
    For X = 2 To Range("A65536").End(3).Row
        If Cells(X, 1) <= Date And Cells(X, 1) >= Date - 5 Then
            ListBox1.ColumnCount = 2
            With ListBox1
                .AddItem
                .List(Satır, 0) = Format(Cells(X, 1), "dd.mm.yyyy")
                .List(Satır, 1) = Cells(X, 2)
                 Satır = Satır + 1
            End With
        End If
    Next
    Call PlayIt("C:\Windows\Media\Tada.wav ", 1)
End Sub

Renkli olan yeri kendine göre uyarlayın ...

 

[belmando]

İhsan bey ve Vedat bey ilginize çok teşekkür ederim ellerinize sağlık tam istediğim gibi.

 

[İhsan Tank]

İhsan bey ve Vedat bey ilginize çok teşekkür ederim ellerinize sağlık tam istediğim gibi.

rica ederim
vedat özer bey'ede ilgisinden dolayı
Syn : Ömer hocam'ada kod için teşekkür ederim.
kolay gelsin :mutlu: