renkli uyarı+kayan yazı+takip

[blck_electron]

arkadaşlar ekte gönderdiğim dosya, üzerinde çalışmaya devam etmeyi planladığım bir takip programı.1.sütun sıra no,2. sütun tesis adı ve üçüncü sütun talimat tarihi değerlerinin girilmesi gerekli yerler.İstediğim ise şu :
Talimat tarihini girdikten sonra eğer 1(Bir) Aylık bir süre geçmişse, "mevcut durum" sütununda renkli uyarı ya da kayan yazı şeklinde "tarih geçmiş" gibi bir uyarı almak istiyorum.ancak talimat tarihinden bir aylık sürenin geçmiş olması ve uyarının belirtilen sütunda gözükmesine rağmen, "kabul tarihi" sütununa herhangi bir tarih değeri girildiğinde "mevcut durum" sütunundaki bütün uyarılar silinmiş olacak ya da "kabul yapıldı" uyarısı olarak uyarı notu değiştirilecek.
Formül üzerinde forumda arama yaptım.Renkli uyarılı doğum günü programları anlatmaya çalıştığıma yakın formüller yalnız belirtilen formülleri tam istediğim gibi düzenleyemedim.Yardımlarınız için şimdiden teşekkür ederim...

 

[Ömer]

Merhaba,

Eki inceleyiniz.

.

 

[blck_electron]

Ömer Bey, öncelikle teşekkür ederim.Talimat tarihinden bir aylık bir sürenin geçmesiyle uyarı veriyor.İstedim gibi yalnız bir aylık süre geçmiş olsa bile kabul tarihi sütununa gireceğim tarih değeri ile mevcut durum sütunundaki uyarı kabul yapıldı olarak değişmeli.Bu şekilde yeniden bir düzenleme yapılabilir mi acaba?

 

[Ömer]

K8 hücresindeki formülü aşağıdaki gibi değiştirerek alt satırlara kopyalayın.

=EĞER(I8<>"";"Kabul Yapıldı";EĞER(YADA(G8="";TARİH(YIL(G8);AY(G8)+1;GÜN(G8))>BUGÜN());"";"Tarih Geçmiş"))

.

 

[blck_electron]

Ömer Bey çok teşekkür ederim.Tam kendisi...

 

[Ömer]

Linki inceleyin.

Koşullu biçimlendirme (condıtıonal formattıng)

.

 

[burak043]

1 Yıl Geçince Haber Veren Formül

VERİLEN TARİHİN ÜSTÜNDEN 1 Yıl Geçince Haber Veren Formül LAZIM ACİLL !!!
EKTEKİ TALODAKİ GİBİ 1 YIL DOLMADIYSA FAAL DOLDUYSA SÜRESİ DOLDU ŞEKLİNDE UYARI VEREN VE RENK DEĞİŞTİREN BİR FORMÜL LAZIM.
İLGİLENENLERE ŞİMDİDEN TEŞEKKÜRLER....

 

[İhsan Tank]

VERİLEN TARİHİN ÜSTÜNDEN 1 Yıl Geçince Haber Veren Formül LAZIM ACİLL !!!
EKTEKİ TALODAKİ GİBİ 1 YIL DOLMADIYSA FAAL DOLDUYSA SÜRESİ DOLDU ŞEKLİNDE UYARI VEREN VE RENK DEĞİŞTİREN BİR FORMÜL LAZIM.
İLGİLENENLERE ŞİMDİDEN TEŞEKKÜRLER....

merhaba
yazılarınızı mümkün olduğunca küçük harfle yazınız.
eki inceleyiniz

 

[Mahir64]

Merhaba

İhsan bey fonksiyon konusunda harikasınız. faydalı olcak bir örnek daha.

=EĞER(D4="";"";EĞER(TARİH(YIL(D4);AY(D4);GÜN(D4))-TARİH(YIL(BUGÜN());AY(BUGÜN());GÜN(BUGÜN()))<=0;"Süresi Doldu";"Faal"))

 

[İhsan Tank]

İhsan bey fonksiyon konusunda harikasınız. faydalı olcak bir örnek daha.

=EĞER(D4="";"";EĞER(TARİH(YIL(D4);AY(D4);GÜN(D4))-TARİH(YIL(BUGÜN());AY(BUGÜN());GÜN(BUGÜN()))<=0;"Süresi Doldu";"Faal"))

harika olan ben değilim
sitede harika formülcüler var
başlıca olanlar Yurttaş - Ömer - Ali - Necdet Yeşertener - Korhan Ayhan Uzman bunlar sadece en başlıcaları.
bunları takip edin çok daha fazla bilgiye ulaşırsınız

 

[Mahir64]

Aslında açılan her konu verilen cevapları takip etmeye çalııyorum (Son zamanlarda zaruriyetten evdeyim) sizin cevaplarınızdan çok örnekler çıkardım. İsmini saydığınız uzman arkadaşları da takip ediyorum. Sayenizde kendimi geliştirdim bazen sorulara kendimce cevap bile vermeye çalışıyorum.

 

[leventturan]

renkli uyarı+takip

VERİLEN TARİHİN ÜSTÜNDEN 23 AY geçince Haber Veren Formül LAZIM ACİLL !!!
23 ay dolmadıysa DOLMADIYSA ''MUAYENE GEÇERLİ'' DOLDUYSA ''MUAYENE OLMALI '' ŞEKLİNDE RENKLİ UYARI VEREN BİR FORMÜL LAZIM..

ilgilenenlere şimdiden teşekkürler

 

[antonio]

VERİLEN TARİHİN ÜSTÜNDEN 23 AY geçince Haber Veren Formül LAZIM ACİLL !!!
23 ay dolmadıysa DOLMADIYSA ''MUAYENE GEÇERLİ'' DOLDUYSA ''MUAYENE OLMALI '' ŞEKLİNDE RENKLİ UYARI VEREN BİR FORMÜL LAZIM..
....

Merhaba
Aşağıdaki kodu kendinize göre düzenleyebilirsiniz.
Esas aldığınız tarihin A1 hücresinde olduğu farz edilmiştir.
Bilgileriniz bulunduğu çalışma sayfası Sayfa1 olarak düşünülmüştür.

Sub yirmi_uc_ay_sonrasi()
Dim trh As Date
trh = CDate(Sayfa1.Range("A1").Value)
If Sayfa1.Range("A1").Value = "" Then Exit Sub
alarm = DateAdd("m", 23, trh)
If Date > alarm Then
    MsgBox "MUAYENE OLMALI!", vbInformation, "antonio"
Else
    MsgBox "MUAYENE GEÇERLİ.", vbInformation, "antonio"
End If
End Sub

 

[leventturan]

Merhaba
Aşağıdaki kodu kendinize göre düzenleyebilirsiniz.
Esas aldığınız tarihin A1 hücresinde olduğu farz edilmiştir.
Bilgileriniz bulunduğu çalışma sayfası Sayfa1 olarak düşünülmüştür.

Sub yirmi_uc_ay_sonrasi()
Dim trh As Date
trh = CDate(Sayfa1.Range("A1").Value)
If Sayfa1.Range("A1").Value = "" Then Exit Sub
alarm = DateAdd("m", 23, trh)
If Date > alarm Then
    MsgBox "MUAYENE OLMALI!", vbInformation, "antonio"
Else
    MsgBox "MUAYENE GEÇERLİ.", vbInformation, "antonio"
End If
End Sub

çok teşekkürler, yalnız kodu nereye ekleyip çalıştıracağım konusunda da bilgim yok yardımcı olabilir misiniz ?

 

[antonio]

çok teşekkürler, yalnız kodu nereye ekleyip çalıştıracağım konusunda da bilgim yok yardımcı olabilir misiniz ?

Tarih bilgisini işlediğiniz sayfanın sekmesine sağ tıklayın, seçeneklerden "Kod Görüntüle" yi seçin. Açılan VBA Kod Penceresine kodları yapıştırın.
Daha sonra sayfa ismi ile tarihin tarihin bulunduğu hücre bilgisinin, önceki mesajımdaki uyarı doğrultusunda uygunluğunu kontrol edin.
sayfanızda bir buton oluşturup (şekil çizimi de olabilir) sağ tıklayıp, "Makro Ata" seçeneğinden kod parçasının ismini seçiniz (yirmi_uc_ay_sonrasi). Böylece düğmeye veya çizime tıklayınca kod çalışacaktır.