Значение из a1 в Примечание к напр. b1

[oldjoe]

В упор не могу найти здесь, как это делать. наоборот - из примечания в ячейку - везде есть как делать, а вот так не найти чего-то.

подскажите будьте любезны! :noob:

[VictorM]

Если правильно понял

iText$ = [a1]
[b1].NoteText Text:=iText$

или так

 [b1].NoteText Text:=[a1]

[R Dmitry]

Сообщение от oldjoe

В упор не могу найти здесь, как это делать. наоборот - из примечания в ячейку - везде есть как делать, а вот так не найти чего-то.

подскажите будьте любезны! :noob:

например так

Sub coment_a1()
Dim str$
str = [a1]
With Range("B7")
On Error GoTo no_add
.AddComment
no_add: .Comment.Text Text:=str
End With
End Sub

[oldjoe]

хех, все довольно просто
спасибо. то что надо