Açıklama Yoksa Acıklama Ekle, var ise Açıklama Düzenle

[bistroboy]

benim programda Hücrede Açıklama var ise Ekleme yapıyor ancak Hiç Açıklama yok ise bir türlü Açıklama Ekletemedim!!!

Dim Hücre1 As Range 'bir HÜCREyi temsil etmesi için yaratılmıştır
Dim İLK1 As Date, SON1 As Date
İLK1 = UserForm4.Label5.Caption
SON1 = UserForm4.Label6.Caption
For X1 = İLK1 To SON1
For Each Hücre1 In alt1
If Hücre1.Value = X1 Then
If Intersect(Hücre1.SpecialCells(xlCellTypeComments), Hücre1) Is Nothing Then
Hücre1.AddComment.Text Text:=UserForm4.TextBox1.Value >>ÇALIŞMIYOR
Else
Hücre1.Comment.Text Text:=Hücre1.Comment.Text & "-" & UserForm4.TextBox1.Value & "-" >>> BURADA SORUN YOK, ÇALIŞIYOR
End If
End If
Next
Next

 

[Levent Menteşoğlu]

Hücre1.AddComment.Text Text:=UserForm4.TextBox1.Value

Yukarıdaki satırı aşağıdaki ile değiştirin.

Hücre1.AddComment Text:=UserForm4.TextBox1.Value