Uyarı Mesajı

[ofisci]

Merhaba Sayın Üstadlarım,

Araştırdım bulamadım, özür dileyerek yazıyorum.
Ocak ayından başlayan ve Aralık ayına kadar isimleri olan sayfalarda, bazı maddelerin dönemsel fiyatlarını girdiğim, bir excel kitabında; H sütununda bu fiyatların artış oranları mevcuttur. Satırlara veri girdikçe fiyatlarında %15 üzerinde değişim olan maddelerde Mesaj olarak uyarı almak istiyorum.

Sub Message()
If.Range("H10:H500").Value>15 Then
MsgBox"Dikkat!Değişim oranı yüksektir..!"
End If
End Sub
şeklinde makroyu yazmaya çalıştım, çalıştıramadım, yardımlarınızı bekliyorum, ilginize teşekkürler ederim, saygılar sunarım..
Çalışma kitabı ektedir..

 

[asi_kral]

Merhaba
Kitabınızın kod bölümünde bulunan Thisworkbook'a kopyalayın ve deneyin.

Option Explicit
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Cells(ActiveCell.Row, "H") = Empty Then
If Cells(ActiveCell.Row - 1, "H") > 15 Then
MsgBox "Dikkat Değişim Oranı Yüksek", vbCritical
End If
ElseIf Cells(ActiveCell.Row, "H") > 15 Then
MsgBox "Dikkat Değişim Oranı Yüksek", vbCritical
End If
End Sub

 

[ofisci]

Çok Teşekkürler Ederim Elinize Emeğinize sağlık, Asi Kral....

 

[asi_kral]

Çok Teşekkürler Ederim Elinize Emeğinize sağlık, Asi Kral....

Kolay Gelsin.