Açıklama Ekleme

[sadece_erhan]

Merhaba, aşağıdaki kodu kullanarak "z" sutununda (z5-z100 arası) değeri "1" olan hücrelerin yanındaki "aa" sutununa "gizlenecek" diye açıklama ekliyorum, aynı şeyi satırlarda yapmak istiyorum, örneğin "b110" hücresinden "ja110" hücresine kadar olan aralıkda değeri "1" olan hücreler için "b111 hücresinden ja111 hücresine" kadar açıklama ekletmek istiyorum. özetle 110. satırda "1" varsa 111. satırda karşılık gelen hücreye açıklama eklesin.

Teşekkürler.

Sub Aciklama()
    
    Dim i As Long
    
    Range("aa5:aa100").ClearComments
    
    For i = 5 To 100
        If Cells(i, "z") = 1 Then
            With Cells(i, "aa")
                .AddComment
                .Comment.Visible = False
                .Comment.Text "Gizlenecek"
            End With
        End If
    Next i
    
End Sub

 

[YUSUF44]

Şöyle deneyin:

Sub Aciklama1()
    
    Dim i As Long
    
    Range("b111:ja111").ClearComments
    
    For i = 2 To 261 '2. sütunla (B sütunu) 261. sütun (JA sütunu) arasında çalışacak
        If Cells(110, i) = 1 Then '110. satırı kontrol edip aşağıdaki işlemi yap
            With Cells(111, i)
                .AddComment
                .Comment.Visible = False
                .Comment.Text "Gizlenecek"
            End With
        End If
    Next i
    
End Sub

 

[sadece_erhan]

Teşekkür ederim, elinize sağlık