Satışlara Kdv Ekleme

[Shymshec]

Aarkadaşlar kolay gelsin.

Yapmak istediğim bir çalışma var. Satıştaki ürünlerin satışlarını rapor çektiğimde kdv dahil olmadan bana tutar veriyor. Kdv ise cinslere göre değişiklik göstermekte. Bunu bir makro ile yaparak her seferinde kdv listesinden düşeyara ile yanına atmaya gerek kalmadan yapmak istiyorum.

Yapmaya çalıştığım bir örneği ekte gönderiyorum. yardımlarınız için şimdiden teşekkürler.


Sub Kdv()
a = InputBox("Cins Sütunu Girin")
b = InputBox("Tutar Sütunu Girin")
s = 2
c = 1.08
d = 1.18


ActiveSheet.Columns(b).Select
Range(a & s).Select
If ActiveCell(0, 0) = "6" Then
Range(b & s).Value = Range(b & s).Value * d
End If

End Sub

 

[Ayhan Ercan]

Merhaba,

Ek çalışmanızı, kodlarınızı incelemeye çalıştım. Ancak ne yapmak istediğinizi bir türlü çözemedim...

 

[Shymshec]

Ben yapamadım zaten.

Amacım kdvsiz olan satış tutarlarıma kdv eklemeye yaracak bir makro. Bunu yaparken kdv listesine ben gereksinim duymayayım. kdv oranı bazı cinslerde %1,08 bazılarında %1,18 hesaplama yaparken bunları hayırması gerekiyor.

 

[Shymshec]

Ekte bu çalışma için yaptığım bir makro örneği var fakat bir hata veriyor. hatanın sebebi nedir. Yardım edemilecek varsa sevinirim.

Kolay gelsin.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Shymshec]

Korhan hocam sorunu aşağıdaki kodla çözdüm.

Function kdv(z As Range, x As Range)
Dim a
Dim b
a = 1.08
b = 1.18
    If z = 6 Or z = 21 Or z = 22 Or z = 34 Or z = 41 Or z = 45 Or z = 66 Or z = 72 _
    Or z = 75 Or z = 80 Or z = 86 Or z = 91 Or z = 95 Then
    y = b
    Else
    y = a
    End If
kdv = (x * y)
End Function

nasıl olmuş.