farklı sayı girildiğinde uyarsın

[karahan61]

Merhabalar...

ilköğretm okulları için bur puantaj üzerinde çalışmaktayım. Bu siteden çok yardım aldım. ekteki Deneme dosyasında çalışan makro DENEME 2 dosyasının "ANA SAYFA" sında çalışmasını istiyorum. ben başaramadım. Yardımlarını esirgemeyen Korhan Ayhan beye sorma fırsatı bulamadım ve teşekkür edemedim.

yardımlarınız için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Kodun çalışmaması gayet normal. İlk eklediğiniz örnek dosyada verdiğiniz sütunlar son eklediğiniz dosyada uyuşmamaktadır. Dola olarakta kod tepki vermemektedir.

Aşağıdaki kodu deneyin. Kırmızı renkli bölümler değiştirilmiştir.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Görevler As Variant, Saatler As Variant, X As Byte
    
    If Intersect(Target, [M10:O90]) Is Nothing Then Exit Sub
    Görevler = Array("MÜDÜR", "MÜDÜR BAŞ YRD.", "MÜDÜR YARDIMCISI", "REHBER ÖĞRETMEN", "FORMATÖR ÖĞRETMEN", "BRANŞ ÖĞRETMENİ")
    If Target.Column = [COLOR=red]13[/COLOR] Or Target.Column = [COLOR=red]14[/COLOR] Then
    Saatler = Array(0, 0, 0, 0, 0, 2)
    Else
    Saatler = Array(0, 0, 0, 0, 0, 6)
    End If
    
    For X = 0 To UBound(Görevler)
        If Evaluate("=UPPER(""" & Cells(Target.Row, "[COLOR=red]E[/COLOR]") & """)") = Görevler(X) Then
        If Target = Saatler(X) Then
        Else
        MsgBox Görevler(X) & " için " & Saatler(X) & " yazmanız gerekiyor !", vbCritical, "Dikkat !"
        Exit For
        End If
        End If
    Next
End Sub

 

[karahan61]

çook teşekkürler

kırmızı 13-14 rakamının ve E harfinin mantığı kısace ne ?

 

[Korhan Ayhan]

Selamlar,

13 = M sütunu
14 = N sütunu

Bu iki sütun için Branş Öğretmeni kriterine 2 değerini girebilirsiniz.

"E" harfide E sütununu ifade etmektedir. Görevleriniz bu sütunda olduğu için değer girdiğiniz hücrenin E sütununda bulunan görevi sorgulayarak sonuca gidiyoruz.