• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

B17 hücresindeki veri

  • Konbuyu başlatan Konbuyu başlatan k0081
  • Başlangıç tarihi Başlangıç tarihi
Katılım
17 Haziran 2008
Mesajlar
1,874
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Merhaba arkadaşlar;

B17 hücresin deki veri silinirse yada değiştirilirse C18 hücresindeki veri silinsin,, ve sayfa kaydedilsin..

yardımcı arkadaşlara şimdiden teşekkürler...
 
Her iki şekilde de veri silinecek mi yoksa veri değişirse veri değişecek mi_?
 
Mehaba hocam. her iki durum da da, veri silinecek..
 
Mehaba hocam. her iki durum da da, veri silinecek..

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
 
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

Teşekkürler İhsan hocam. tamamdır..
 
Geri
Üst