Çözüldü Şarta Bağlı Değer Verme Hakkında.

[yesimgurol]

Merhabalar,

Çalışma sayfamda bulunan listede aşağıda yer alan durumlarda değer vermek istiyorum. Şöyle ki;

1 - C, D, E sütunları BOŞ ise ; E sütununa = "YOK"
2 - C ve D sütunları DOLU ise ; E sütununa = "ÇİFT" (E sütunu DOLU olsa da)
3 - C sütunu DOLU ve E sütunu BOŞ ise ; E sütununa = "TEK"
4 - C ve E sütunu DOLU ise ; Hiç bir işlem YAPILMIYOR.

Ekte bulunan örnek dosyam içerisinde bu işlemleri manuel olarak yaptım ve açıklamaya çalıştım. :-(
Bu işlemleri buton yardımı ile yaptırmak istiyorum. Hasta listesinde yaklaşık 400 - 500 arasında değerlendirme yapacağım hastalar oluyor. Kod ile yapılırsa hata riskimde en aza inecek umarım.

 

[dEdE]

Merhaba,
Aşağıdaki kodları örnek dosyanızda bir modüle yapıştırarak dener misiniz?

Sub Test()
ss = Sheets("BOS LİSTE").Cells(Rows.Count, "A").End(3).Row
For i = 2 To ss
    If WorksheetFunction.CountIf(Range("C" & i & ":E" & i), "") = 3 Then Cells(i, 5) = "YOK"
    If WorksheetFunction.CountIf(Range("C" & i & ":D" & i), "*") = 2 Then Cells(i, 5) = "ÇİFT"
    If Range("C" & i) <> "" And Range("E" & i) = "" Then Cells(i, 5) = "TEK"
    If Range("C" & i) <> "" And Range("E" & i) <> "" Then GoTo Atla
Atla:
Next i
End Sub

 

[yesimgurol]

Sayın dEdE,
Öncelikle ilginiz için çok teşekkür ederim. Tam istediğim şekilde olmuş harikasınız. Emeğinize sağlık. Orjinal veriler ile çalışmaya başladığımda sorun çıkmaz umarım. (Başka olasılık durumları) Şu an istediğim eylemleri karşılıyor.