privat sub ile eğer formülü

[halilerdem]

H7 ile J7 arasındaki farkı privat sub ile K7 'ye yazdırdım bu fark -20,-10,0,10,20 ise L7'ye privat sub ile "normal" yazacak değerler bunlardan farklıysa "anormal" yazacak
H7 ile J8 arasındaki farkı privat sub ile K8 'ye yazdırdım bu fark -20,-10,0,10,20 ise L8'ye privat sub ile "normal" yazacak değerler bunlardan farklıysa "anormal" yazacak

bu konu hakkında yardımcı olabilecek var mı

 

[muygun]

Merhaba;
Sayfanın kod bölümündeki kodları silip aşağıdakileri yerleştirin ve deneyin.
İyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("j7:k8")) Is Nothing Then
sat = Target.Row
If Abs(Cells(sat, "k")) <= 20 Then Cells(sat, "L") = "NORMAL"
If Abs(Cells(sat, "k")) > 20 Then Cells(sat, "L") = "ANORMAL"
End If
End Sub