ESKİ TARİH GİRİNCE KOŞULLU BİÇİMLENDİRME

[Avolkan0]

Merhaba
Tarihleri girdiğim sütunda, bugünün tarihinden daha eski bir tarih girildiğinde koşullu biçimlendirmenin çalışmasını (mesala hücrenin kırmızı renk olması) istiyorum. Nasıl yapabilirim?

 

[AdemCan]

Merhaba
Örnek olarak resimdeki gibi bir tablo olsun ve A sütunu da Tarih Alanı olsun.

A2 den itibaren tablonuzu seçiniz.
Koşullu Biçimlendirme için kullanabileceğiniz örnek formül

=VE($A2<>"";$A2<BUGÜN())

formül içindeki A2 hücresini tarih girdiğiniz hücre adresi ile değiştirmelisiniz.

 

[Necdet]

Gün geçtikte tablo tamamen kırmızıya dönüşür

 

[Avolkan0]

Merhaba
Örnek olarak resimdeki gibi bir tablo olsun ve A sütunu da Tarih Alanı olsun.
Ekli dosyayı görüntüle 228468
A2 den itibaren tablonuzu seçiniz.
Koşullu Biçimlendirme için kullanabileceğiniz örnek formül

=VE($A2<>"";$A2<BUGÜN())

Ekli dosyayı görüntüle 228469
formül içindeki A2 hücresini tarih girdiğiniz hücre adresi ile değiştirmelisiniz.

Ekli dosyayı görüntüle 228470

Teşekkürler bu işimi gördü. Ama formül yapısını anlamak için soruyorum; VE($A2<>"" bunun formül anlamı nedir acaba?
Bu arada =A2<BUGÜN() şeklinde de uyguladım bu da aynı sonucu verdi

 

[Avolkan0]

Gün geçtikte tablo tamamen kırmızıya dönüşür

Eklediğim tarihler hep ileri tarihler olduğu için yanlışlıkla eski tarih eklediğimde bi nevi uyarı vermesi için böyle bişey yapmak istedim. Mesala 10.02.2022 tarihini yazarken yanlışlıkla 10.02.2021 yazabiliyorum, bu durumda koşullu biçimlendirme hemen bunu farketmemi sağlar diye düşünüyorum.

 

[Seyit Tiken]

Kodla bu işleminizi rahatlıkla yapabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:a" & Rows.Count)) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target < Date Then
Target.Interior.Color = 255
Else
Target.Interior.Color = xlNone
End If
Application.EnableEvents = True
End Sub

 

[Avolkan0]

Kodla bu işleminizi rahatlıkla yapabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:a" & Rows.Count)) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target < Date Then
Target.Interior.Color = 255
Else
Target.Interior.Color = xlNone
End If
Application.EnableEvents = True
End Sub

Kod çalıştırmak exceli çok yorar diye korkuyorum ya da bi problem çıkarttığında çözemem diye korkuyorum

 

[ÖmerFaruk]

Kod çalıştırmak exceli çok yorar diye korkuyorum ya da bi problem çıkarttığında çözemem diye korkuyorum

1. yormaz
2. çöze çöze balık tutmayı öğrenebilirsiniz.

 

[Korhan Ayhan]

Merhaba,

Ben yıllar yıllar önce ilk bilgisayar kursuna gittiğimde bizleri bilgisayarın başına oturttular. Tabi hepimiz acayip çekingen bir şekilde öğretmenizi dinlerken "Arkadaşlar bilgisayar aslında aptal bir cihazdır. Siz söylemeden bir işlem yapmaz" demişti. Bizim bilgisayarları kullanmamızı istemişti. Biz ise tuşlara o kadar nazik basıyorduk ki öğretmenimiz kızarak "Arkadaşlar bu cihaz öyle kolay bozulmaz lütfen klavyeleri kırın" dedi. Bizlerse şaşkınlıkla öğretmenimizi dinleme devam ediyorduk. İlk önce ne demek istediğini anlamamıştık. Sonra ses tonunu yükselterek aynı söylemini tekrarladı. Bu sefer kurstaki tüm öğrenciler klavyeleri hızlı bir şekilde tuşlamaya başladılar. Yaklaşık bir dakika sonra "Gördünüz mü kırılmıyormuş" dedi. Sonra öğretmenizin ne demek istediğini gayet iyi anlamış olduk.

Sizde exceli ve özelliklerini kullanmaktan çekinmeyin-korkmayın. Bir müddet sonra duruma hakim olduğunuzda yaşadığınız korkuların ne kadar yersiz olduğunu göreceksiniz.

Kod çalıştırmak exceli çok yorar diye korkuyorum ya da bi problem çıkarttığında çözemem diye korkuyorum

 

[Seyit Tiken]

Avolkan0 : Kod çalıştırmak exceli çok yorar diye korkuyorum ya da bi problem çıkarttığında çözemem diye korkuyorum

Kod, konfordur, zamandan tasarruftur.