İf deyiminde iki kriter

Katılım
17 Ocak 2006
Mesajlar
115
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
02-07-2020
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
 
Katılım
17 Ocak 2006
Mesajlar
115
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
02-07-2020
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

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

2.
sheets("Sayfa8").Cells(t, m) = "X"
 
Katılım
17 Ocak 2006
Mesajlar
115
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
02-07-2020
Teşekkür ederim. Sağolun. :hey: :mutlu:
 
Üst