satır ortalamasına göre worksheet change olayı

[mbldn]

Sayın Hocalarım ve arkadaşlar merhaba;
ekte örnek olarak erdiğim dosyada yapmak istediğim olay derslere ait notlar girilirken (not1,not2,not3...) eğer hedef hücreye not girilmek istendiğinde kendisinden önce gelen notların ortalaması 44,5 ise hedef hücreye yazılamasın, yok eğer değilse yazılabilsin.
worksheet change olayına nasıl bir kod yazarsak bunu sağlarız?
saygılarımla...

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim alan As Range
 
    If Intersect(Target, [C2:F5000]) Is Nothing Then Exit Sub
    
    Set alan = Range(Cells(Target.Row, 2), Cells(Target.Row, Target.Column - 1))
            
    If Application.Average(alan) = 44.5 Then
        Target.ClearContents
    End If
    
End Sub

.

 

[mbldn]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim alan As Range
 
    If Intersect(Target, [C2:F5000]) Is Nothing Then Exit Sub
    
    Set alan = Range(Cells(Target.Row, 2), Cells(Target.Row, Target.Column - 1))
            
    If Application.Average(alan) = 44.5 Then
        Target.ClearContents
    End If
    
End Sub

.

hocam teşekkürler
saygılar
ellerine sağlık