Toplama

[sirkülasyon]

P385 aralığında yer alan herhangi bir hücreye veri girildiği zaman AKTAR tuşu ile BC3:BC85 Aralığında ki kendi satırında bulunan hücreye aktarıyorum
Aktarma Yaptığı Zaman:

a)BC3:BC85 hücrelerinde ki rakam BB3:BB85 aralığında ki yazan rakama ulaştığı zaman "YÜZDE OTUZ LİMİTİNE ULAŞTINIZ" uyarısını yapamadım

Yardımcı olabilir misiniz? Teşekkür eder saygılarımı sunarım

Sub topla_alan59()
Dim hcr As Range
For Each hcr In Sheets("Bordro").Range("BC3:BC85")
    hcr.Value = hcr.Value + hcr.Offset(0, -39).Value
Next hcr
MsgBox "Toplama Yapıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

Evren GİZLEN ustamın kodu ile aktarım yapıyorum. Ancak uyarı veremiyorum

 

[ÖmerBey]

Ne yapmak istediğiniz tam olarak anlaşılmamakla beraber aşağıdaki kod ile uyarı verdirebilirsiniz.

If hcr.Value >= hcr.Offset(0, -1).Value Then MsgBox "YÜZDE OTUZ LİMİTİNE ULAŞTINIZ"

 

[sirkülasyon]

Yardımınız için teşekkür ederim. Sağolasın