DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Mehaba hocam. her iki durum da da, veri silinecek..
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B17")) Is Nothing Then Exit Sub
Range("C18") = ""
ThisWorkbook.Save
End Sub
Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.
Kod:Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B17")) Is Nothing Then Exit Sub Range("C18") = "" ThisWorkbook.Save End Sub