excel'de bir tablodaki bir tarih için uyarı yapabilir miyiz.

Katılım
20 Ekim 2005
Mesajlar
56
Arkadaşlar Merhaba,

Excel'de bir tablo yapmıştım....
bazı sözleşmeler ve yanlarında bitim tarihleri var....

ben, o sözleşmedeki bitim tarihi gelince beni bir şekilde uyarmasını istiyorum....

bu mümkün mü...ama bunu excel'deki tablo üzerinde yapmak istiyorum....yoksa diğer anımsatıcı proğramları biliyorum...

yani nebileyim...o tablo üzerindeki bir tarihi tıklayıp ona bir makro yazmak gibi vs..olabilir....zamanı gelince ya da benim verdiğim bir tarihte beni uyaracak.

teşekkürler
 
Katılım
22 Mart 2005
Mesajlar
847
Excel Vers. ve Dili
Excel-2003 TR.
Altın Üyelik Bitiş Tarihi
29-06-2023
Merhaba;

Aşağıdaki formül işinize yarayabilir.

=EĞER(BUGÜN()=A1;"BUGÜN YAPILACAK İŞİN VAR";"")
 
Katılım
20 Ekim 2005
Mesajlar
56
teşekkürler

Merhaba;

Aşağıdaki formül işinize yarayabilir.

=EĞER(BUGÜN()=A1;"BUGÜN YAPILACAK İŞİN VAR";"")
hocam teşekkür ederim...
ylnız bunu nereye yazmam gerekiyor...hücrenin içine yazarsam tarih gözükmez.
sayfadaki başka bir hücreye mi yazayım....
ben tarihlerin üzerine yazmak istiyorum....
çünkü bir sürü değişken tarih giriyorum tabloya...
 
Katılım
22 Mart 2005
Mesajlar
847
Excel Vers. ve Dili
Excel-2003 TR.
Altın Üyelik Bitiş Tarihi
29-06-2023
Merhaba;

Çalışmanızın içeriğini bilememiyorum tabii. Size verdiğim örnekte sorgulattarımak istediğim tarihi a1 hücresine yazdım. Eğer sizinde çalışmanız böyle bişeyse tarihi herhangi bir hücreye veya sayfaya yazıp formülüde istediğiniz yere uygulayabilirsiniz.

Bu konu ile ilgili birçok alternatifler yapılabilir. Örneğin çalışma kitabı açıldığında mesaj ile uyarıda verdirilebilir. Günü gelen tarihler renklendirilebilir vs....

Esasen konu ile ilgili olarak arama motoronu kullansanız birçok örneğine ulaşabilirsiniz.
 

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,216
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
yanıt

A sütunundaki tarihler B sütunundaki tarihlerden küçük veya eşitse gölge rengi sarı olur.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:b500]) Is Nothing Then Exit Sub
[a1:a500].Interior.ColorIndex = 0
For sut = 1 To [a65536].End(3).Row
If Range("a" & sut) <= Range("b" & sut) And Range("a" & sut) <> "" Then
Range("a" & sut).Interior.ColorIndex = 6
End If
Next
End Sub
 
Üst