Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 17 Mayıs 2010, 22:09:02

Başlık: [Çözüldü] Damga Vergisi
Gönderen: yesilyurtlu - 17 Mayıs 2010, 22:09:02

Ü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 ?

Başlık: Ynt: Damga Vergisi
Gönderen: Orion1 - 17 Mayıs 2010, 22:47:36

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

Başlık: Ynt: Damga Vergisi
Gönderen: yesilyurtlu - 18 Mayıs 2010, 05:57:03

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

Başlık: Ynt: Damga Vergisi
Gönderen: Orion1 - 18 Mayıs 2010, 12:31:40

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

Başlık: Ynt: Damga Vergisi
Gönderen: yesilyurtlu - 18 Mayıs 2010, 20:38:14

Evren Abi Teşekkür Ederim

Başlık: Ynt: Damga Vergisi
Gönderen: Orion1 - 18 Mayıs 2010, 20:53:03

Alıntı yapılan: yesilyurtlu - 18 Mayıs 2010, 20:38:14

Evren Abi Teşekkür Ederim

Rica ederim. 8)