[Çözüldü] Damga Vergisi

[yesilyurtlu]

Üstadım ekli dosyada E:E sütununa girilen değerlerin %18 değerini F:F sütununa alıyoruz. Ama G:G sütununa ekteki formül gibi ekleme yapabilir miyiz?
Kısacası E sütunundaki değerden %18 çıkarıp 0,00825 ile çarpıp G Sütununa Yazdıracağım.

Yardımcı olabilir misiniz ?

[Orion1]

=(E4-(E4*0,18))*0,00825

[yesilyurtlu]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
On Error Resume Next
If IsNumeric(Target.Value) Then Target.Offset(0, 1).Value = Target.Value * 0.18
If IsNumeric(Target.Value) Then Target.Offset(0, 2).Value = (Target.Value - (Target.Value * 0.18)) * 8.25 / 1000
End Sub


Evren Abi Formüllü yaptım onda sıkıntım yok. Rica etsem makro ile yapabilir miyiz?
Eğer Yukarıdaki Eklediğim 5.Satır doğru ise teyit ederseniz sevinirim. TEyit ederseniz gönül rahatlığı ile kullanırım

[Orion1]

doğruda bir satır fazla aşağıdaki gibi yapın

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
On Error Resume Next
If IsNumeric(Target.Value) Then Target.Offset(0, 2).Value = (Target.Value - (Target.Value * 0.18)) *0.00825
End Sub

[yesilyurtlu]

Evren Abi Teşekkür Ederim

[Orion1]

Evren Abi Teşekkür Ederim

Rica ederim.