TextBox İle hücreye açıklama ekleme.

[hamitcan]

Açıklama değiştirme ve silme;

Private Sub CommandButton4_Click()
    s = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(7) + 1
    If TextBox1 = "" Then
    Cells(s, 3).ClearComments
    Else
    With Cells(s, 3)
            .ClearComments
            .AddComment
            .Comment.Visible = False
            .Comment.Text Text:=TextBox1.Text
    End With
    End If
End Sub

 

[unalh]

Hocam ilgiz alakanız ve yardımınız için çok çok teşekkürler.

Hayırlı Akşamlar.