Tarihlerde koşullu biçimlendirme

[S.Yiğit]

Merhaba,

Elimde 12 sütundan oluşan ve her sütunda ayın ilk gününden başlayan tarihler var. Koşullu biçimlendirmeyle 2009 yılındaki tüm pazartesi günlerini renklendirmem gerekiyor. Başka bir örnekden aşağıdaki formülü buldum ama uyarlayamadım. Aşağıdaki formül A sütununda bulun tarihlerin pazartesi günlerini tarih olarak veriyor. Örneği incelerseniz ne demek istediğimi anlayabilirsiniz. Teşekkürler.

=IF(WEEKDAY(B2;2)=1;B2;B2-WEEKDAY(B2;2)+1)

 

[Ali]

=HAFTANINGÜNÜ(B2)=2

gibi kullanabilirsiniz.

HAFTANINGÜNÜ=WEEKDAY

 

[S.Yiğit]

Sn Ali bey,

Verdiğiniz formülü koşullu biçimlendirmeye =WEEKDAY(b1)=2 şeklinde uyguladım fakat pazartesi günlerinin yanındaki sayıları boyadı ve boş sütunlarda farklı farklı yerleri boyadı. Bana lazım olan Pazartesi günlerini ve solundaki sayıyı boyaması. Yardım için teşekkürler.

 

[Ali]

Eklediğiniz tabloda B1 hücresi yok.

B2:B32 aralığını seçiniz ve koşullu biçimlendirmeye

=HAFTANINGÜNÜ(B2)=2

yazınız.

A2:A32 aralığını seçip yine

=HAFTANINGÜNÜ(B2)=2

yazınız.

Desenlerden istediğiniz rengi veriniz.

Diğer sütunlarıda aynı mantıkla yapabilirsiniz.

 

[S.Yiğit]

Sn Ali bey, teşekkür ederim. Eksik yazmışım B1 ve B2'de de denedim. 2. cevabızdaki sorunumu çözdü. Sanırım tek formülle yapmak zor olacak. Teşekkür ederim.

 

[Erdem Akdemir]

.......................

 

[Erdem Akdemir]

serkan bey ne kadar işinize yarar bilmiyorum ama

istediğinizin makrolu versiyonunu hazırladım

combobox nesneside eklenirse bütün günler için yapılabilir

dosyada ektedir

Sub boyama()
Dim boya, sutun As Long
On Error Resume Next
For boya = 2 To [b65536].End(xlUp).Row
For sutun = 1 To [IV1].End(xlToLeft).Column + 1
If Weekday(Cells(boya, sutun)) = 2 And Len(Cells(boya, sutun)) > 3 Then
Cells(boya, sutun).Interior.ColorIndex = 4
Cells(boya, sutun).Offset(0, -1).Interior.ColorIndex = 4
Else
Cells(boya, sutun) = Cells(boya, sutun)
End If
Next sutun, boya
End Sub

 

[S.Yiğit]

Sn kuvari,
Emeğiniz için teşekürler. Bana koşullu biçimlendirme ile lazımdı ama buda işime yarar. Belki başkaları için kaynak olabilir..

 

[Ömer]

Merhaba,

A2:AI32 aralığını seçerek Koşullu Biçimlendirmede Formül bölümüne

=VE(A2<>"";YADA(HAFTANINGÜNÜ(B2)=2;VE(UZUNLUK(A2)>=5;HAFTANINGÜNÜ(A2)=2)))

yazarak kullanabilirsiniz..

.

 

[S.Yiğit]

Merhaba,

A2:AI32 aralığını seçerek Koşullu Biçimlendirmede Formül bölümüne

=VE(A2<>"";YADA(HAFTANINGÜNÜ(B2)=2;VE(UZUNLUK(A2)>=5;HAFTANINGÜNÜ(A2)=2)))

yazarak kullanabilirsiniz..

.

Sn espiyonajl merhaba,

Teşekkür ederim, tam istediğim buydu.k::