- Katılım
- 18 Aralık 2011
- Mesajlar
- 89
- Excel Vers. ve Dili
- office 2010 tr
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.
Teşekkürler.
Kod:
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