Hücre İçerisini Silmek

[ormann]

İyi akşamlar a1 hücresine veri girdiğimde a2 hücresinin içini nasıl silebiliriz?.Yine tersi olarak a2 hücresine veri girdiğimde a1 hücresinin içi nasıl silinebilir ?

 

[ormann]

Ayrıca excel'den çıkarken iki hücre içerisindeki veriler nasıl silinebilir ?

 

[Levent Menteşoğlu]

İlgili sayfanın kod sayfasına aşağıdaki prosedürü kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [a1]) Is Nothing Then [a2] = ""
If Not Intersect(Target, [a2]) Is Nothing Then [a1] = ""
Application.EnableEvents = True
End Sub

Excel'i kapatırken silmek içinde aşağıdaki prosedürü thisworkbook kod sayfasına kopyalayın.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
[sayfa1!a1:a2] = ""
End Sub

 

[Orion1]

Sayfa1 modülüne.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A2]) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
If Target.Row = 1 Then
    Range("A2").ClearContents
    Else
    Range("A1").ClearContents
End If
Application.EnableEvents = True
End Sub

Bu çalışma kitabı modülüne

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sayfa1").Range("A1:A2").ClearContents

End Sub

 

[ormann]

Çok teşekkür ederim.Sayın hocalarım ellerinize sağlık.