• DİKKAT

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

Hücredeki değer değişince B12'teki veriyi sil.

  • Konbuyu başlatan Konbuyu başlatan HD1975
  • Başlangıç tarihi Başlangıç tarihi
Katılım
13 Şubat 2009
Mesajlar
289
Excel Vers. ve Dili
office 2003
Merhaba ;

B3 hücresine girdiğim bilgi var,bu bilgiye göre b12 hücresinede not yazıyorum ve
başka sayfaya aktarıyorum.

Sorum şu ;

B3'teki veri değişince B12'deki not silinsin.

Tam olarak yapamadım yardımlarınızı bekliyorum.
Saygılar
 
Selamlar,

İlgili sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Kod:
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B3]) Is Nothing Then Exit Sub
    [B12].ClearContents
End Sub
 
alternatif olsun

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(3, 2).Value = Cells(30000, 30).Value Then
Else
Cells(12, 2).Value = ""
End If
Cells(30000, 30).Value = Cells(3, 2).Value
End Sub

tek farkı aynı veriyi tekrar girerseniz silinmiyecek.
 
Teşekkür ederim

Elinize sağlık

Teşekkürler...
 
Geri
Üst