İf deyiminde iki kriter

[alipinar]

Merhaba arkadaşlar. Hazırladığım tabloda yukarıdan aşağı haftanın günleri yazılmış(bir yıllık). Yan tarafında personel devamsızlığı yazılacak. Hafta sonları olan günlere X atmak için aşağıdaki kodu yazdım. Kod çalıştı ancak yalnızca Cumartesi ve pazar kriteri için. Aşağıdaki kodda kırmızı renkle belirttiğim yeri çıkarıp aynı kodu altta tekrar yazark bu sefer pazar için çalıştırdım.
Merak ettiğim if deyimi içindeki cumartesi or pazar kriterleri neden çalışmadı ve ayırmak zorunda kaldım.

Sheets("izinkayıt").Range("b2").Select
For t = 0 To 364
If ActiveCell.Offset(t, 0).Text = "Cumartesi" or "Pazar" Then
For m = 1 To 35
If ActiveCell.Offset(-1, m) = 0 Then Exit For
ActiveCell.Offset(t, m) = " X "
Next m
End If
Next t

 

[alipinar]

Pardon arkadaşlar bir sorum daha olacak. Yukarıda kod iel aşağıdaki kod aynı işlemi yapmak için yazmıştım. Önce aşağıdaki yazmıştım. Ancak çalıştıramadım. Aşağıdaki kod neden çalışmadı. Hatası nerede? Yardımlarınız için teşekkür ederim.

For t = 2 To 366
If Sayfa8.Cells(t, 2) = "Pazar" Then
For m = 3 To 40
Sayfa8.Cells(t, m) = "X"
Next m
End If
Next t

 

[zafer]

Merhaba

1.
If ActiveCell.Offset(t, 0).Text = "Cumartesi" or ActiveCell.Offset(t, 0).Text="Pazar" Then

2.
sheets("Sayfa8").Cells(t, m) = "X"

 

[alipinar]

Teşekkür ederim. Sağolun. :hey: :mutlu: