KDV Hesabı

[ermanusta]

Merhaba,


Ekte bir dosya mevcut bir de resim var.

kdv hesabı yapmak istiyorum ve bunu yaparken 3 değişken var.

KDV oranı
KDV'siz tutar
KDV'li tutar

Kdv oranını manuel 8 veya 18 olarak giriyorum ancak bazı durumlarda ürünlerin fiyatlarının KDV hariç bazende KDV dahil fiyatlarını girmem gerekiyor.

bunun için sürekli KDV hariç fiyatları hesaplayıp tabloya bu şekilde giriyorum
isteğim şu ki;

KDV'siz fiyat girdiğimde KDV dahil fiyatı otomatik atsın
KDV dahil fiyatı girdiğimde KDV'siz fiyatı otomatik atsın

Tabloyu inceleyebilirsiniz.

 

[iplikci_80]

EK 'te ki çalışma umarım işiniz görür.

 

[ermanusta]

EK 'te ki çalışma umarım işiniz görür.

Sn, iplikçi makroyu çalıştıramadım 32 bit makro hatası veriyor. benim pc 64 bit sanırım hata buradan kaynaklanıyor.

bir de şunu söylemek isterim. herhangibir tuşa basarak değilde manuel olarak değerleri girdiğimde çalışan makro olursa çok daha iyi olur. keza bu tablo 100 lerce satır bu şekilde ilerliyor. her seferinde manuel olarak makroyu çalıştırmak zaman alabilir.

 

[veyselemre]

Sayfanın kod bölümüne ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:C" & Rows.Count)) Is Nothing Then
        oran = Cells(Target.Row, 1).Value
        Application.EnableEvents = False
        If Target.Column = 2 Then
            Cells(Target.Row, 3).Value = Target * (1 + oran)
        Else
            Cells(Target.Row, 2).Value = Target / (1 + oran)
        End If
        Application.EnableEvents = True
    End If
End Sub

 

[ermanusta]

Sayfanın kod bölümüne ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:C" & Rows.Count)) Is Nothing Then
        oran = Cells(Target.Row, 1).Value
        Application.EnableEvents = False
        If Target.Column = 2 Then
            Cells(Target.Row, 3).Value = Target * (1 + oran)
        Else
            Cells(Target.Row, 2).Value = Target / (1 + oran)
        End If
        Application.EnableEvents = True
    End If
End Sub

Allah razı olsun, çok teşekkür ederim. çok iyi oldu bu.