Aşağıdaki kod ile Ayrık da olsa çoklu seçim yapabilirsiniz.
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 yazaranız Açıklama ekler
4- Ayrık olarak seçim yapacaksanız her seçimde imputbox'ı Cancel ile çıkı, Ctrl tuşuna basarak devam edin seçim işlemi bitince açıklamayı yazıp OK tıklayın
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
myvalue = InputBox("'x' değer açıklamaları siler", "AÇIKLAMA")
If myvalue = "" Then
Exit Sub
ElseIf myvalue = "x" Then
Selection.ClearComments
Else
Selection.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=myvalue
ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteComments
End If
End Sub