Soru hücreye girilen değerler toplamı büyük ise

[sirkülasyon]

Ek dosyamın F sütununa girilen bir rakam mevcut. Aynı satırda da dağıtım yapılan rakamlar mevcut.
5. Satır için Örnek = (F sütununa girilen rakam 32' dir)
a) I sütununa rakam girildiğinde İlkönce "En fazla 32 girebilirsiniz" uyarısını verecek.
Kullanıcı I sütununa 15 rakamını girdi.
b) M sütununa rakam girildiğinde (F sütunundaki rakamdan I sütununa girilen rakamı çıkaracak) İlkönce "En fazla 17 girebilirsiniz" uyarısını verecek.
Kullanıcı M sütununa 15 rakamını girdi.
c) Q sütununa rakam girildiğinde (F sütunundaki rakamdan I ve M sütununa girilen rakamları çıkaracak) İlkönce "En fazla 2 girebilirsiniz" uyarısını verecek. Kullanıcı Q sütununa 2 rakamından yüksek bir rakam giremeyecek. Bu işlem 5. satırdan 357. satır arası olacak.
Rica etsem yardımcı olabilir misiniz? Selam ve Dua ile

 

[Levent Menteşoğlu]

Aşağıdaki kodu ilgili sayfanın kod sayfasına kopyalayarak deneyin. Ayrıca dosyayıda ekte gönderiyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub

If Intersect(Target, Range("I5:I357,M5:M357,Q5:Q357")) Is Nothing Then Exit Sub
sat = Target.Row
sut = Target.Column

Select Case sut
Case 9
deg = Cells(sat, "F")
Case 13
deg = Cells(sat, "F") - Cells(sat, "I")
Case 17
deg = Cells(sat, "F") - Cells(sat, "I") - Cells(sat, "M")
End Select

If deg = "" Or deg = 0 Then Exit Sub

    With Target.Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlLessEqual, Formula1:=deg
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "UYARI!"
        .ErrorTitle = "DİKKAT!"
        .InputMessage = "En fazla " & deg & " değerini girebilirsiniz."
        .ErrorMessage = "Hatalı değer girdiniz."
        .ShowInput = True
        .ShowError = True
    End With

End Sub

 

[sirkülasyon]

Levent Abi
Ellerine Sağlık. Çok teşekkür ederim.