Çoklu seçim yapınca
1- Çıkan imputbox'a x yazıp, OK düğmesine tıklarsanız. seçimdeki Açıklamaları siler.
2- Boş bırakıp OK veya boş bırakmasanız bile Cancel düğmesine basarsanız işlem yapmadan çıkar
3- 'x' değerinin dışındaki değer yazaeranız Açıklama ekler.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
myvalue = InputBox(Açıklama gir", "AÇIKLAMA")
If myvalue = "" Then
Exit Sub
ElseIf myvalue = "x" Then
Selection.ClearComments
Else
For i = 1 To Selection.Count
Range(Selection(i).Address).ClearComments
Range(Selection(i).Address).AddComment
Range(Selection(i).Address).Comment.Text Text:=myvalue
Next
End If
End Sub