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

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
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,741
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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
 

fedeal

Banned
Katılım
29 Mayıs 2008
Mesajlar
1,985
Excel Vers. ve Dili
2003 tr
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.
 
Katılım
13 Şubat 2009
Mesajlar
289
Excel Vers. ve Dili
office 2003
Teşekkür ederim

Elinize sağlık

Teşekkürler...
 
Üst