kdv'li yazısı varsa gerçekleşşin yoksa KDV siz yazsın

[Yesilyurtlu]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("h4:h300")) Is Nothing Then Exit Sub
Target.Value = Target.Value * 1.08
Application.EnableEvents = True
End Sub
koduna g4:g300 sütununda kdv'li yazısı varsa gerçekleşşin yoksa KDV siz yazsın
şartını ekleyebilir miyiz?

 

[mancubus]

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Application.EnableEvents = False
    
    If Intersect(Target, Range("H4:H300")) Is Nothing Then Exit Sub
    If UCase(Cells(Target.Row, "G").Text) = UCase("KDV'li") Then
        Target.Value = Target.Value * 1.08
    End If
    
    Application.EnableEvents = True

End Sub

 

[Yesilyurtlu]

Sayın mancubus
Yardımınız İçin teşekkür ederim.
Ancak kod işlem yapmıyor.
kontrol edebilme imkanınız var mı acaba?

 

[Korhan Ayhan]

Merhaba,

Sorun "i" harfinden kaynaklanıyor. Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("H4:H300")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If UCase(Replace(Replace(Cells(Target.Row, "G"), "ı", "I"), "i", "İ")) = "KDV'Lİ" Then
        Target.Value = Target.Value * 1.08
    End If
Son:
    Application.EnableEvents = True
End Sub

 

[Yesilyurtlu]

Korhan abi
işlem tamam
Sayın mancubus ve değerli uzmanın Korhan abime yardımlarından dolayı teşekkür ederim