Var olan makroya ekleme yapılması

[sirkülasyon]

Hayırlı Cumalar
Ekli dosyamda ki makroya "ASKM' ye ait makrodur." 2 tane işlem eklemek yapmak istiyorum.

1. İşlem :R sütununa hesaplama için
I sütununa tutar girdiğim zaman KDV EKLENECEK Mİ sorusuna HAYIR dediğim de R sütununa KDV Hariç tutarı yani Q sütununda ki değer yazılacak.

I sütununa tutar girdiğim zaman KDV EKLENECEK Mİ sorusuna EVET dediğim de R sütununa KDV Hariç tutara+ N sütunu eklenecek ve eklenen tutar R sütununa yazılacak.

2. İşlem :H sütununda ki veri girişi için
Ekli dosyamda ki I sütunun için veri girdiğimde yapılan işlemin aynısı H sütununa rakam girdiğim zaman da çalışacak.

Rica etsem bu konuda yardımcı olabilir misiniz?

Teşekkür Eder, Saygılarımı sunarım

 

[askm]

Aşağıdaki şekilde mi?

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next
    If Target.Row > 4 And Target.Column = 9 Or Target.Column = 8 Then
        If Target.Value <> "" Then
            If MsgBox("KDV Eklensin mi?", vbYesNo, "ASKM") = vbYes Then
                
                Target.Offset(0, 1) = Format(WorksheetFunction.Round((Target * 1.08), 2), "#,##0.00") 'KDV Eklenmiş tutar "J" sütunu
    
                Target.Offset(0, 2) = Format(WorksheetFunction.Round((Target.Offset(0, 1) - Target), 2), "#,##0.00") 'Birim Fiyata göre Hesaplanan %8 KDV tutarı "K" sütunu
                Target.Offset(0, 3) = Format(WorksheetFunction.Round((Target.Offset(0, 2) / 2), 2), "#,##0.00") 'Birim Fiyat için hesaplanmış KDV' nin kesilen TEVKİFAT tutarı 5/10 "L" sütunu
                Target.Offset(0, 4) = Format(WorksheetFunction.Round((Target), 2), "#,##0.00") 'Hesaplamanın yapılacağı KDV Eklenmemiş tutar "M" sütunu
                Target.Offset(0, 5) = Format(WorksheetFunction.Round((Target * Target.Offset(0, -1) * 0.08), 2), "#,##0.00") 'Ödeme yapılan gün ve Hesaplamanın yapılacağı KDV Eklenmemiş tutarın çarpımına eklenen %8 KDV Tutarı "N" sütunu
                Target.Offset(0, 6) = Format(WorksheetFunction.Round((Target) * Target.Offset(0, -1), 2), "#,##0.00") 'KDV Eklenmiş tutar "O" sütunu
                Target.Offset(0, 8) = Format(WorksheetFunction.Round((Target) * Target.Offset(0, -1), 2), "#,##0.00") 'KDV Eklenmiş tutar "Q" sütunu
                Target.Offset(0, 9) = Format(Cells(Target.Row, "R") + Cells(Target.Row, "N"), "#,##0.00")
               
               
            Else
                
                Target.Offset(0, 1) = ""
                Target.Offset(0, 2) = ""
                Target.Offset(0, 3) = ""
                
                Target.Offset(0, 5) = ""
                Cells(Target.Row, "R") = Format(Cells(Target.Row, "Q"), "#,##0.00")
                
              
            End If
        Else
            Target.Offset(0, 1) = Empty
        End If
    End If
    
    If Target.Row > 4 And Target.Column = 8 Then
        If Target.Count > 1 Then Exit Sub
        With Cells(Target.Row, "A").Resize(1, 27).Interior
            .ColorIndex = xlNone
            If IsNumeric(Target) = True And Target <> "" Then
                .ThemeColor = xlThemeColorDark1
                .TintAndShade = -0.15
            End If
        End With
    End If
    
End Sub