Button Tıklama Olayı ile Açıklama Ekleme

B1 den B10 a kadar olan hücre değerlerini A1 den A10 a kadar açıklama olarak ekleyen button kodu

Sub Test()
Dim myText As String
Set Rng = Range("A1:A10")
For Each cell In Rng
myText = Cells(cell.Row, 2).Text
cell.AddComment.Text Text:=myText
Next cell
End Sub

Share: