Farklı sayı girildiğinde uyarsın

[karahan61]

Merhabalar..

üzerinde çalıştığım ekli sayfada D-10 hücresine yazılan branş karşısına gelen (L) 10 hücresindeki rakamlardan farklı ise uyarsın

(örnek Branş öğretmeni L -13 hücresine 2 yerine farklı rakam yazıldığında uyarsın

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

 

[leumruk]

Selamlar,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [f10:j17]) Is Nothing Or Target = "" Then Exit Sub
If Target <> Cells(Target.Row, "l") Then MsgBox "Girdiğiniz değer kritere uymuyor."
End Sub

 

[karahan61]

ek

Sayın LEUMRUK

ilgilendiğiniz için tşk. ancak tam olarak anlatamadım galiba haftanın günlerine değil L10 ........90 sutununa rakam girdiğimde mesaj vermesi lazım

örnek sınıf öğretmenliği (0 ) yanlışlıkla başka rakam yazarsam uyarsın
branş öğretmeni için (2) başka rakamda uyarsın

kalıcı branş veya rakamları başka sutundan da alabilir

 

[leumruk]

Kriter sütunu hangisi olacak? Yani L sütununa girdiğiniz veriyi hangi sütundaki veri ile karşılaştıracağız?

 

[karahan61]

Cevap

YENİDEN EKLEDİM

örnek müdür hücresi branş öğretmeni olduğunda karşısındaki rakamı alsın
zahmet verdim özür...

 

[leumruk]

:???::???::???:
Yine anlayamadım. İlk istediğinizden farklı bir istekte mi bulunuyorsunuz? Ne yapılacağını hücre hücre anlatabilir misiniz? Örneğin, L1 şu olduğunda c1 şöyle olsun vs...

 

[karahan61]

yeni dosya

Sayın Leumruk

bu sefer anlatabildim sanırım.. dosya ekli

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Görevler As Variant, Saatler As Variant, X As Byte
    
    If Intersect(Target, [L10:N90]) 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 = 12 Or Target.Column = 13 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, "D") & """)") = 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]

Teşekkürler
kod L10:N90 arasındaki hücreler için uyarlanır mı.?

L10 M 10 N10

2 2 6 olsun ( Örnek Branş öğretmeni için) olursa işlem tamamm

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.