5'den büyük olanları say

[ulashcan]

Modül haline getirdim, hatta biraz da süsledim, bölüm isimlerini de aldırdım, bölümden bölüme geçerken araya boşık verdirdim. Tam istediğim gibi oldu.

Ancak bazı sorular bazen kapsam dışı (değerlendirme dışı - uygulama dışı) olabiliyor. Bu sorunun neden kapsam dışı bırakıldığı da açıklama kısmına yazılıyor. Dolayısıyla uygunsuzluk olmadığı halde uygunsuzlukların arasında onlar da listeleniyor.

Bir sorunun kapsam dışı olduğu E sütununda x işareti konarak belirtiliyor. Eğer E sütununda x varsa, alttaki genel toplamda bu sorunun puanı değerlendirme dışı kalıyor.

Modüle ekleyebileceğim E sütununda x işareti varsa I sütunundaki veriyi sil komut satırlarını verebilirmisiniz. Önce x'li olan soruların açıklamasını sildirmek sonra da yukarıda sizin verdiğiniz ve harika çalışan modüle ekleyeceğim.

Teşekkürler

 

[Ali]

Modüle ekleyebileceğim E sütununda x işareti varsa I sütunundaki veriyi sil komut satırlarını verebilirmisiniz.

Sub sil()
satir = Worksheets("Base").Cells(65536, 5).End(xlUp).Row
For i = 15 To satir
If Cells(i, 5) = "x" Then Cells(i, 9) = ""
Next
End Sub

 

[ulashcan]

Teşekkürler...