- Katılım
- 9 Ekim 2017
- Mesajlar
- 14
- Excel Vers. ve Dili
- Türkçe
- Altın Üyelik Bitiş Tarihi
- 30-03-2024
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,
Örnekte Pazar ve Pazartesi renklenmiş.
Haftasonları için Koşullu biçimlendirne > yeni kural > formül - dolguyu belirleyin.
[/ALINTI]Kod:=EĞER(HAFTANINGÜNÜ(B$4;2)>5;1;0)
Çok teşekkür ederim.
İ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?
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 ederimMerhaba
Tabloda hafta sonuna denk gelen hücrelere (T) yazdırmak için örnek kod.
Kod: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