Makro Kodla Sayıları Yüzdelik Sayılarla Çarpma

[anilman]

Merhaba ekteki dosyada Kdv sütununda %18, %8 ve %1 lik oranlardan birini seçtiğimde yan hücredeki Matrahla çarpmasını ve Kdv sütununda oranı seçtiğim hücreye yazmasını istiyorum böyle birşey mümkün mü?

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
      
    If Intersect(Target, Range("J:K")) Is Nothing Then Exit Sub
    
    With Target
        If .Row < 5 Then Exit Sub
        If .Count > 1 Then Exit Sub
        Cells(.Row, "M") = Cells(.Row, "J") * Cells(.Row, "K")
    End With
    
End Sub

 

[anilman]

Ömer bey merhaba
Sonucu M sütununa değil de oranı seçtiğimiz hücreye yani KDV'nin bulunduğu K sütununa yazdırabilir miyiz?

 

[Ömer]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
      
    If Intersect(Target, Range("K:K")) Is Nothing Then Exit Sub
    
    On Error GoTo 10
    
    Application.EnableEvents = False
    
    With Target
        If .Row < 5 Then Exit Sub
        If .Count > 1 Then Exit Sub
        .Value = Cells(.Row, "J") * .Value
    End With
    
10 Application.EnableEvents = True
    
End Sub

 

[anilman]

Oldu çok teşekkürler