Haftasonlarını (CTesi-Pazar) Biçimlendirmek

[1Al2Ver]

Merhaba,

"ÇİZELGE" sayfasında, "AK1" ve "AK15" hücrelerinden ayları, veri doğrulama ile seçip, Cumartesi ve Pazar günlerini, "AK4:AL13" ve "AK17:AL25" aralığına alıyorum.

Ayrıca "ÇİZELGE" sayfası "C5:AG5" arasına da ilk ayın 15' ile 2 nci ayın 14'ünü formülle alıyorum,

İSTEĞİM ;

1) "C5:AG5" aralığında, "AK4:AL13" ve "AK17:AL25" tablolarıyla örtüşen günlerin yazı tipi rengini kırmızı olmasını, bu işlemin "AK1" ve "AK15" her değiştikçe de gerçekleşmesini,

2) "B6:B100" aralığındaki dolu hücreler göre Cumartesi-Pazar günlerinin "x" ile otomatik dolmasını,

3) İşlemin "AK15" hücresi seçildiğinde gerçekleşmesini, arzuluyorum,

Örnek tabloda , "C5:AG5" aralığı, Ağustos ve Eylül aylarına aittir.

Teşekkür ederim.

 

[YUSUF44]

Kırmızı renk için C5:AG46 (ya da istediğiniz kadar aşağı) seçin
Koşullu biçimlendirmeden yeni kural ekleyin
Kural olarak formül kullanmayı seçin
Formül olarak aşağıdaki formülü kullanın:

=VE($B5<>"";HAFTANINGÜNÜ(C$5;2)>5)

Biçim ayarını yapıp işlemi tamamlayın.

X'le doldurma işlemiyle ilgili X'le dolmayan hücrelere sonradan manuel ya da başka bir şekilde giriş yapılacak mı? Eğer yapılmayacaksa formülle halledilebilir, yapılacaksa makro gerekir.

 

[1Al2Ver]

Sayın YUSUF44 merhaba,

İlginiz için teşekkür ederek başlamak istiyorum,

"x" ile dolmayan hücreler, "B6:B100" aralığındaki verilere göre, el ile doldurulacak,

Teşekkür ederim.

 

[YUSUF44]

Öncelikle yukardaki formülde değişiklik yaptım, dikkat ediniz.

Öyleyse birazdan makro kodları paylaşırım.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyin. Önceki mesajımdaki koşullu biçimlendirmeyi de kullanmalısınız:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [AK1]) Is Nothing Then Exit Sub
son = Cells(Rows.Count, "B").End(3).Row
Range("C6:AG" & son).ClearContents
Application.ScreenUpdating = False
    If Target <> "" Then
        For kisi = 6 To son
            For gun = 3 To 33
                If Cells(kisi, "B") <> "" And Cells(5, gun) <> "" Then
                    If WorksheetFunction.Weekday(Cells(5, gun), 2) > 5 Then
                        Cells(kisi, gun) = "X"
                    End If
                End If
            Next
        Next
    End If
Application.ScreenUpdating = True
End Sub

 

[1Al2Ver]

Sayın YUSUF44 merhaba,

İlginiz ve çözümler için teşekkür ederim,

Haftasonları için makro ile "x" koyulan sütunların tarihlerini (C5:AG5 arasındaki) koşullu biçimlendirme ile kırmızı yapabilir miyiz ?

Teşekkür ederim.

 

[YUSUF44]

VErdiğim koşullu biçimlendirme 5. satırdaki tarihlerin haftasonu olup olmadığına bakarak işlem yapmaktadır. Dolayısıyla aylar değiştiğinde de dorğu sonuç vermektedir.

 

[1Al2Ver]

Sayın YUSUF44 tekrar merhaba,

Makro işlemleri kusursuz gerçekleştiriyor, sağ olun,

Olabilir ise ;

Haftasonları için makro ile "x" koyulan sütunların tarihlerini (C5:AG5 arasındaki) koşullu biçimlendirme ile kırmızı yapabilir miyiz ?

Teşekkür ederim.

 

[YUSUF44]

Sayfadaki koşullu biçimlendirmeyi iptal edip, C5:AG5 için aşağıdaki formülle koşullu biçimlendirme uygulayın:

=HAFTANINGÜNÜ(C$5;2)>5

X ve renklendirme için aşağıdaki kodu deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [AK1]) Is Nothing Then Exit Sub
son = Cells(Rows.Count, "B").End(3).Row
Range("C6:AG" & son).ClearContents
Range("C6:AG" & son).Font.Color = vbBlack
Application.ScreenUpdating = False
    If Target <> "" Then
        For kisi = 6 To son
            For gun = 3 To 33
                If Cells(kisi, "B") <> "" And Cells(5, gun) <> "" Then
                    If WorksheetFunction.Weekday(Cells(5, gun), 2) > 5 Then
                        Cells(kisi, gun) = "X"
                        Cells(kisi, gun).Font.Color = vbRed
                    End If
                End If
            Next
        Next
    End If
Application.ScreenUpdating = True
End Sub

 

[1Al2Ver]

Sayın YUSUF44 merhaba,

Çok teşekkür ederim, kod ve biçimlendirme sorunsuz çalışıyor, muhteşem olmuş, elinize sağlık.

Saygılarımla.