Çözüldü Hücredeki değere göre renklendirme ve "off" yazma hk.

[himmgarip]

Merhaba,

Ayın tarihleri olan bir satırda hafta tatili ve resmi günler olan tarihleri buldurmak istiyorum.
Tarih hücresi ve B3 dahil B3 ten sonraki dolu hücreleri bulup hafta tatili ve resmi günler olanları kırmızı yapmak ve ek olarak tarihin altındaki boyanan hücreye OFF yazdırmak istiyorum. Desteğinizi rica ederim. İyi günler.

 

[Patron]

Dosya ektedir.
Tatiller sayfasında Ramazan ve Kurban Bayramı tarihlerini girmeyi unutmayın.

 

[himmgarip]

Dosya ektedir.
Tatiller sayfasında Ramazan ve Kurban Bayramı tarihlerini girmeyi unutmayın.

Balta hocam,

If say > 0 Or gun > 5 And syf.Cells(2, i) <> Empty Then

Yukarıdaki 5 hafta içi günlerini mi temsil ediyor?

 

[Patron]

Evet haftanın gününü belirtiyor.

 

[himmgarip]

Evet haftanın gününü belirtiyor.

5 olduğunda cumartesileri de boyuyor. 6 yaptım düzeldi. Ellerinize sağlık.

 

[Patron]

Sadece pazarlar haftasonu sayılacaksa
gun=7 şeklinde de yapabilirsiniz.

 

[himmgarip]

Balta hocam,

satırlarda başka boyalı alan varsa onları beyaz yapıyor. Bunu düzeltme imkanımız varmıdır?

 

[Patron]

Kodun üst raflarında interior. Colorindex=xlnone yazan satırın tamamını silin.