sayı aralıkları

[black-r]

Merhaba arkadaşlar.

Şöyle birşey yapmam gerekiyor ama eğer kullanarak tam çözemedim yapamadım yani.

M1 Hücresinde 1 ve 10 arası değer girilecek
Eğer girilen değer 9-10 arasıysa sayıya müdahale etmeyecek
7-8 arasıysa sayıdan -1 yapacak
7den küçüksede sayıdan -5 yapacak

Nasıl yapabilirim ?

 

[PLİNT]

Merhaba
Aşağıdaki şekilde olabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$M$1" Then Exit Sub
If IsNumeric(Target.Value) = False Then Exit Sub
Application.EnableEvents = False
Select Case Target.Value
Case 7, 8
Target.Value = Target.Value - 1
Case Is < 7
Target.Value = Target.Value - 5
End Select
Application.EnableEvents = True
End Sub

 

[black-r]

Kod bilgim ve yapmışlığım hiç yok malesef. Yinede ilginiz için teşekkürler

Şöyle birşey yaptım çalıştı şükür belki ihtiyacı olan olur. İlkel bir formül oldu gerçi

=EĞER(VE(M1>=9;M1<=10);N1-0;EĞER(VE(M1>=7;M1<=8);N1-1;EĞER(VE(M1>=1;M1<=7);N1-5;"")))