Soru koşullu biçimlendirme

[ahmetdrtl]

Merhabalar kolay gelsin, koşullu biçimlendirmede hafta sonuna denk gelen sütunların ekteki gibi boyalı olması için nasıl bir yol izlemem lazım.

 

[Mahir64]

Merhaba,
Örnekte Pazar ve Pazartesi renklenmiş.

Haftasonları için Koşullu biçimlendirne > yeni kural > formül - dolguyu belirleyin.

=EĞER(HAFTANINGÜNÜ(B$4;2)>5;1;0)

 

[ahmetdrtl]

Merhaba,
Örnekte Pazar ve Pazartesi renklenmiş.

Haftasonları için Koşullu biçimlendirne > yeni kural > formül - dolguyu belirleyin.

=EĞER(HAFTANINGÜNÜ(B$4;2)>5;1;0)

[/ALINTI]


Çok teşekkür ederim.

 

[Mahir64]

İyi çalışmalar.

 

[ahmetdrtl]

İyi çalışmalar.
[/ALINTI]

Peki son olarak aynı şekilde hafta sonlarına (T) harfi yazılmasını istersek nasıl bir yol izlememiz lazım?

 

[AdemCan]

Merhaba
Tabloda hafta sonuna denk gelen hücrelere (T) yazdırmak için örnek kod.

Spoyler: Örnek Görüntü

Sub test()
Dim s1 As Worksheet, son As Long, c As Byte, r As Long
Set s1 = Sayfa1
son = s1.Cells(Rows.Count, 1).End(3).Row - 7

For c = 2 To 32
    For r = 6 To son
        If WorksheetFunction.Weekday(s1.Cells(4, c), 2) > 5 Then
            s1.Cells(r, c) = "(T)"
        End If
    Next r
Next c

End Sub

 

[ahmetdrtl]

Merhaba
Tabloda hafta sonuna denk gelen hücrelere (T) yazdırmak için örnek kod.

Spoyler: Örnek Görüntü

Ekli dosyayı görüntüle 244016

Sub test()
Dim s1 As Worksheet, son As Long, c As Byte, r As Long
Set s1 = Sayfa1
son = s1.Cells(Rows.Count, 1).End(3).Row - 7

For c = 2 To 32
    For r = 6 To son
        If WorksheetFunction.Weekday(s1.Cells(4, c), 2) > 5 Then
            s1.Cells(r, c) = "(T)"
        End If
    Next r
Next c

End Sub

Teşekkür ederim

 

[AdemCan]

Rica ederim.