Yıl ay ve gün yazılı verilere göre koşullu biçimlendirme

[camor35]

Merhaba,

Aşağıda belirtmiş olduğum verilere göre 8 YIL 5 AY 1 GÜN ile 10 YIL 5 AY 1 GÜN zaman dilimi arasındaki verileri kırmızı renkli görmek istiyorum. Koşullu biçimlendirme yapmayı denedim, fakat yapamadım. Şimdiden yardımcı olabilecek arkadaşlara tşk ederim.

AAA

10 YIL 11 AY 5 GÜN

10 YIL 11 AY 5 GÜN

15 YIL 7 AY 16 GÜN

10 YIL 11 AY 5 GÜN

15 YIL 7 AY 16 GÜN

10 YIL 11 AY 5 GÜN

15 YIL 7 AY 16 GÜN

0 YIL 5 AY 5 GÜN

6 YIL 9 AY 5 GÜN

0 YIL 5 AY 5 GÜN

8 YIL 8 AY 5 GÜN

6 YIL 9 AY 5 GÜN

0 YIL 5 AY 5 GÜN

8 YIL 8 AY 5 GÜN

6 YIL 9 AY 5 GÜN

0 YIL 5 AY 5 GÜN

8 YIL 8 AY 5 GÜN

10 YIL 11 AY 5 GÜN

8 YIL 8 AY 5 GÜN

 

[Necdet]

Merhaba
Hesaplanmış yaşa göre değil de doğum tarihini dikkate alsanız bence işiniz daha garanti olur. Belirttiğiniz veri metin değerinde olduğu için yanlış sonuçlar doğurabilir. Nitekim de öyle oluyor.

 

[camor35]

Malesef elimdeki datalar bu şekilde. Bu sebeple "8 YIL 5 AY 1 GÜN ile 10 YIL 5 AY 1 GÜN" arasındaki zaman diliminde olan verileri bir şekilde kırmızı veya başka bir renkte olabilir görmem gerekli.

 

[52779]

İlla ki, yazıyla yazılmış sürelerden hareketle koşullu biçimlendirme uygulayacaksanız
şu yöntem uygulanabilir.

Önce dosyayı ekleyeyim.
Gerçi açıklamaları dosyada yazdım ama, yararlanmak isteyecek olan diğer üyeler için de buraya eklemeye çalışacağım.

aaa.xlsx dosyasını indir - download

aaa.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Ekleme :
Açıklamalar
1 - Verileriniz B2 den itibaren B kolonunda olsun.
2 - 8 YIL 5 AY 1 GÜN gibi, sürelerin yazıyla yazımındaki koşullar
** Yıl, Ay ve G (Gün de olabilir, Gun de olabilir, Gn de olabilir Önemli olan G ile başlaması) mutlaka olmalı
** Yıl, Ay ve G öncesinde mutlaka Sayılar olmalı ve Bu sayılar ile Yıl, Ay ve G arasında da BOŞLUK (ya da Boşluklar) olmalı
3 - Yazıyla yazılmış süreler için bir karşılık değer hesaplamak üzere Formül

=TOPLA.ÇARPIM(--(EĞERHATA(PARÇAAL(0&KIRP(B2);MBUL({"yıl";"ay";"g"};0&KIRP(B2))-3;2);{0;0;0}));{365,25;30,4375;1})

4 - B2 hücresini seçin.. (Verilerinizin Başlangıç hücresi)
** Formüller >>> Ad Yöneticisi >>> Yeni yolu k ad tanımlaması
** Formül kısmına yukarıda verilen formülü yazın.
5 - C2 hücresini seçin.. (Verilerinizin Başlangıç hücresinin hemen sağındaki hücre)
** Formüller >>> Ad Yöneticisi >>> Yeni yolu a ad tanımlaması
** Formül kısmına yukarıda verilen formülü yazın.
6 - Başlama ve Bitiş sürelerini (8 YIL 5 AY 1 GÜN ve 10 YIL 5 AY 1 GÜN gibi)
** Yazıyla, örneğin F2 : F3 aralığına yazın
** F2 : F3 aralığının hemen sağındaki G2 : G3 hücresine de =a formülünü yazın.
7 - Biçimlendirilecek alanı seçin/belirleyin... (Örneğin B2 : B2000)
** Koşullu Biçimlendirme >>> Formül kullan…. Formül için ise aşağıdaki formülü yazın.

=VE(k>=$G$2;k<=$G$3)

** Biçimlendir ile istenilen biçimlendirmeleri yapın.

 

[camor35]

Değerli yardımlarınız için çok tşk ederim. Fakat ilgili veriler tek bir sütundan değil de yan yana bir çok sütundan oluşmaktadır.Örnek tabloyu ekledim.

 

[52779]

Benim dosyayı görebilme durumum yok maalesef.

 

[camor35]

Örnek vermem gerekirse,

A	B	C	D	E	F
10 YIL 11 AY 5 GÜN	15 YIL 6 AY 1 GÜN	9 YIL 8 AY 5 GÜN	6 YIL 9 AY 5 GÜN	10 YIL 4 AY 5 GÜN	11 YIL 4 AY 5 GÜN
10 YIL 11 AY 5 GÜN	14 YIL 3 AY 5 GÜN	9 YIL 8 AY 5 GÜN	6 YIL 9 AY 5 GÜN	10 YIL 8 AY 5 GÜN	11 YIL 11 AY 5 GÜN
15 YIL 7 AY 16 GÜN	15 YIL 7 AY 16 GÜN	9 YIL 8 AY 5 GÜN	1 YIL 8 AY 5 GÜN	15 YIL 3 AY 5 GÜN	15 YIL 3 AY 5 GÜN
10 YIL 11 AY 5 GÜN	14 YIL 3 AY 5 GÜN	9 YIL 8 AY 5 GÜN	7 YIL 8 AY 5 GÜN	10 YIL 4 AY 5 GÜN	11 YIL 4 AY 5 GÜN
15 YIL 7 AY 16 GÜN	15 YIL 7 AY 16 GÜN	9 YIL 8 AY 5 GÜN	8 YIL 8 AY 5 GÜN	15 YIL 5 AY 5 GÜN	15 YIL 7 AY 16 GÜN
10 YIL 11 AY 5 GÜN	14 YIL 3 AY 5 GÜN	9 YIL 8 AY 5 GÜN	6 YIL 9 AY 5 GÜN	12 YIL 3 AY 5 GÜN	15 YIL 6 AY 1 GÜN
15 YIL 7 AY 16 GÜN	15 YIL 7 AY 16 GÜN	9 YIL 8 AY 5 GÜN	7 YIL 8 AY 5 GÜN	12 YIL 3 AY 5 GÜN	14 YIL 3 AY 5 GÜN
0 YIL 5 AY 5 GÜN	9 YIL 8 AY 5 GÜN	6 YIL 9 AY 5 GÜN	8 YIL 8 AY 5 GÜN	15 YIL 7 AY 16 GÜN	15 YIL 7 AY 16 GÜN
6 YIL 9 AY 5 GÜN	11 YIL 4 AY 5 GÜN	1 YIL 8 AY 5 GÜN	8 YIL 8 AY 5 GÜN	10 YIL 8 AY 5 GÜN	12 YIL 3 AY 5 GÜN
0 YIL 5 AY 5 GÜN	8 YIL 8 AY 5 GÜN	7 YIL 8 AY 5 GÜN	6 YIL 9 AY 5 GÜN	12 YIL 3 AY 5 GÜN	15 YIL 3 AY 5 GÜN
8 YIL 8 AY 5 GÜN	14 YIL 0 AY 5 GÜN	7 YIL 8 AY 5 GÜN	1 YIL 8 AY 5 GÜN	12 YIL 3 AY 5 GÜN	15 YIL 7 AY 16 GÜN
6 YIL 9 AY 5 GÜN	11 YIL 4 AY 5 GÜN	7 YIL 8 AY 5 GÜN	8 YIL 8 AY 5 GÜN	15 YIL 7 AY 16 GÜN	15 YIL 7 AY 16 GÜN
0 YIL 5 AY 5 GÜN	8 YIL 8 AY 5 GÜN	8 YIL 8 AY 5 GÜN	7 YIL 8 AY 5 GÜN	10 YIL 8 AY 5 GÜN	11 YIL 11 AY 5 GÜN
8 YIL 8 AY 5 GÜN	11 YIL 4 AY 5 GÜN	6 YIL 9 AY 5 GÜN	6 YIL 9 AY 5 GÜN	12 YIL 3 AY 5 GÜN	14 YIL 3 AY 5 GÜN
6 YIL 9 AY 5 GÜN	11 YIL 4 AY 5 GÜN	8 YIL 8 AY 5 GÜN	6 YIL 9 AY 5 GÜN	12 YIL 3 AY 5 GÜN	15 YIL 3 AY 5 GÜN
0 YIL 5 AY 5 GÜN	9 YIL 8 AY 5 GÜN	8 YIL 8 AY 5 GÜN	7 YIL 8 AY 5 GÜN	15 YIL 3 AY 5 GÜN	15 YIL 3 AY 5 GÜN

 

[Necdet]

Koşullu Biçimlendirme ile değil de makroyla çözüm isterseniz

Public Sub Renklendir()

Dim rng As Range
Dim r   As Range
Dim deg As String
Dim arr As Variant
Dim i   As Integer

Dim t1  As Date
Dim t2  As Date
Dim t   As Date

Set rng = Range("B3").CurrentRegion
t1 = DateSerial(8, 5, 1)
t2 = DateSerial(10, 5, 1)
For Each r In rng
    If r Like "*YIL*" Then
        deg = Replace(Replace(Replace(r, " YIL ", " "), " AY ", " "), " GÜN", "")
        arr = Split(deg, " ")
        t = DateSerial(arr(0), arr(1), arr(2))
        If t >= t1 And t <= t2 Then r.Interior.Color = vbGreen
    End If
    
Next r

End Sub

 

[Korhan Ayhan]

Eki inceleyiniz.

 

[52779]

Başladığımız görevi tamamlayalım.

aab.xlsx dosyasını indir - download

aab.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

4 no lu mesajımda yazdığım ile aynı yöntem
k ad tanımlaması A1 hücresi seçilerek aşağıdaki formül
a ad tanımlaması B1 hücresi seçilerek aşağıdaki formül

=TOPLA.ÇARPIM(--(EĞERHATA(PARÇAAL(0&KIRP(Sayfa1!A1);MBUL({"yıl";"ay";"g"};0&KIRP(Sayfa1!A1))-3;2);{0;0;0}));{365,25;30,4375;1})

Başlama ve Bitiş için karşılık değerleri =a formülü ile hesaplanarak L1 ve L2 hücrelerinde

Koşullu Biçimlendirme için
Aralık : A1 : F2000
Formül :

=VE(k>=$L$1;k<=$L$2)