Bilgi mesajı ekrana gelmesi hk.

[1903emre34@gmail.com]

Merhaba,

D17 D25 hücre aralığında herhangi bir tutar girildiği zaman, ekrana gelir vergi dilim oranı %27 olarak kabul edilmiştir, farklı ise =1-(0,27+0,00759) = 0,72241 formülde yer alan 0,27 yerine başka oran girin ekrana mesaj gelmesi için nasıl kod oluşturabiliriz.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod blokunu ilgili sayfanın kod bölümüne uygulayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D17:D25]) Is Nothing Then Exit Sub
If Target > 0 Then _
    MsgBox "Gelir Vergi dilim oranı %27 olarak kabul edilmiştir," & vbLf & _
        "Farklı ise, aşağıdaki formülde yer alan 0,27 yerine başka bir oran girin!" & _
        vbLf & vbLf & "=1-(0,27+0,00759) = 0,72241", vbCritical
End Sub

 

[1903emre34@gmail.com]

Teşekkürler