NADİR YILDIZ
Altın Üye
- Katılım
- 7 Ocak 2006
- Mesajlar
- 1,418
- Excel Vers. ve Dili
- 2016 Türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Makro1()
On Error Resume Next
Cells.SpecialCells(xlCellTypeComments).ClearComments
For i = 1 To 50
Application.FindFormat.Clear
Application.FindFormat.Interior.Color = 255
Cells.Find(What:="", After:=ActiveCell, SearchFormat:=True).Activate
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=Range("Z" & ActiveCell.Row).Value
Next
End Sub