DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Veri As Range
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
For Each Veri In Target.Cells
If UCase(Replace(Replace(Veri.Text, "ı", "I"), "i", "İ")) = "SİL" Then
Range("A" & Veri.Row) = ""
Range("B" & Veri.Row) = ""
End If
Next
End Sub