Sütunları gizleyince, açıklama hatası alıyorum

[vivident]

Arkadaşlar merhaba
Ben bi sayfa hazırladım, referans seçilince o referansa ait tanımladığım sütunlar gizleniyor. fakat sistem tam istediğim gibi çalışmıyor iki adet problemim var;

1) herhangi bir hücreye manuel açıklama yapıp, referans seçince "run time error 1004" hatası alıyorum, fakat açıklamayı silip referansı seçince sütunlar gizleniyor (açıklama yazmam gerekli hücrelere)

2) sitede gezinirken bir makro buldum, kodları aşağıda, tanımlı hücrelere değer girince otomatik açıklama ekleme makrosu, başka excel sayfasında çalışıyor, fakat bu makroyu ben kendi sayfama monte edemedim, yardımlarınızı bekliyorum

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Açıklama_Ekleme As Comment
Dim strText As String
If Intersect(ActiveSheet.Range("A2:A5"), Target) Is Nothing Then Exit Sub 'A2:A5 aralığında değilse bir şey yapma
If Target.HasFormula Then Exit Sub ' formül yazılırsa bir şey yapma. Sayı yada harf girdiğim zaman çalışsın dediğiniz için bunu ekledim.
If Target.Value = "" Then 'hücrenin değeri boş ise comment i sil
If Not Target.Comment Is Nothing Then Target.Comment.Delete '
Exit Sub
End If

If Not Target.Comment Is Nothing Then strText = Target.Comment.Text
strText = Application.InputBox("Eklenecek olan mesajı aşağıya yazınız.", strText, strText, , , , 2)

Set Açıklama_Ekleme = Target.AddComment(strText)
With Açıklama_Ekleme.Shape.TextFrame.Characters.Font
.Name = "Arial"
.Size = 8
.Bold = False
End With
End Sub

 

[vivident]

güncellll...................