Sınav Notuna Göre Başarı Değerlemesini Belirlemek (Select - Case)

[baydeniro]

Merhaba Arkadaşlar,
Bir öğretmen dostumuz için sınam değerlendirme makrosu hazırladım. Hem ilgilenenler için paylaşıma sunuyorum. Hem de makroyu geliştirmek adına yardım rica ediyorum.
Kendi makromda SELECT-CASE aşamalarını kodun içinde belirttim. Biraz daha geliştirmek ve aşamaları sayfadan belirlemek istedim 2.makro bir makro daha oluşturdum. Ama bir syntax hatası var sanırım çalışmadı.

Code Sub Select_Case_MAKRO1() Dim SinavNotu As Double SinavNotu = ActiveCell.Offset(0, 1).Value Dim Basari As String If ActiveCell <> "" Then Select Case SinavNotu Case Is < 10 Basari = "Basarisiz" Case 10 To 20 Basari = "Dusuk Not" Case 20 To 50 Basari = "Ek Sinav" Case 50 To 70 Basari = "Vasat" Case 70 To 90 Basari = "Orta" Case Is > 90 Basari = "Basarıli" End Select ActiveCell.Offset(0, 2).Value = Basari ActiveCell.Offset(1, 0).Select Else Exit Sub End If End Sub

 

[muygun]

Merhaba;
Ekleri deneyin. (uygun olanı kullanın)
İyi çalışmalar.

 

[baydeniro]

Merhaba;
Ekleri deneyin. (uygun olanı kullanın)
İyi çalışmalar.

Üstad çok çok teşekkür ediyorum. 1 numaralı dosya mükemmel çalışıyor. 2 numaralı dosyaya herhangi bir giriş yapıldığında Excel kapanıyor.
Emeğinize sağlık, Sağlıcakla kalın.

 

[muygun]

Aslında bende 2. dosyayı önerecektim.
Ofis 2003 te sorunsuz çalışıyor. (versiyon farkından olabilir.)
Ama 1 işinizi gördüyse diğerini yok sayın.

 

[baydeniro]

Aslında bende 2. dosyayı önerecektim.
Ofis 2003 te sorunsuz çalışıyor. (versiyon farkından olabilir.)
Ama 1 işinizi gördüyse diğerini yok sayın.

tamamdır üstad, tekrar çok teşekkürler

 

[baydeniro]

Üstad merak ettiğim soruyorum. "Case" koşulunu hücreden refere etmek mümkün müdür ?
Case Is < Worksheets("TANIM").Range("A2")
sayfa ve hücre tanımının nasıl yapılması gerektiği konusunda fikriniz var mı ?