Delete açıklama da silinsin.

[sensizsoldum]

Merhaba,
C3:C Sütunda ki bazı hücrelerde veri ve açıklamalar mevcut, delete yaptığımda, veri siliniyor. Ben hem veri hem de açıklamanın silinmesini istiyorum.
Nasıl yapabiliriz.

 

[sensizsoldum]

aşağıdaki kodla silebiliyorum tşk ederım. yine herkese konu çözulmuştur.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Hücre As Range

Application.ScreenUpdating = False

If Target.Cells.Count = 1 Then
If Target = "" And Target.Column = 3 Then
Target.ClearComments
End If
Else
For Each Hücre In Selection
If Hücre.Value = "" And Hücre.Column = 3 Then
Hücre.ClearComments
End If
Next
End If

Application.ScreenUpdating = True
End Sub

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Alternatif olarak aşağıdaki kodları kullanabilirsiniz.

Sayfanın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c3:c200]) Is Nothing Then Exit Sub
Application.OnKey "{DEL}", "kod_bir"
End Sub

Boş bir modüle

Sub kod_bir()
    Selection.ClearContents
    Selection.ClearComments
End Sub

. . .

 

[sensizsoldum]

Merhaba Hüseyin Bey,
İlginiz için teşekkür ederim. Bu sorun da çözüldü, Şunu yapabilir miyiz.
Açıklamaları okumak için, maus ile üzerine gelmem gerekiyor. ben daha çok bu sayfada yön tuşlarını kulanıyorum, aynı zamanda yön tuşları ile seçildiğinde de görünmesini sağlayabilirmiyiz.
Teşekkür ederim, İyi çalışmalar dilerim.

 

[Emir Hüseyin Çoban]

. . .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If Intersect(Target, [c3:c200]) Is Nothing Then Exit Sub
ActiveCell.Comment.Visible = True
End Sub

. . .

 

[sensizsoldum]

Teşekkür ederim Hüseyin Bey,Elinize Bilginize Sağlık.
iyi çalışmalar dilerim.