Из ячейки в примечание

[Smarty_kazan]

Добрый день, господа.
Сколько искал на форуме, не нашел нужного.
Задача в том, чтобы значения из ячейки где формула с ВПР, копировались в примечания уже другой ячейки.
Это нужно для экономии места на листе, а то затыкано все.
Простите если задаю глупые вопросы.Заранее спасибо за помощь.

[exceleved]

Вопрос не глупый, но не полный. Это должно происходить каждый раз при изменении ячейки? В каком диапазоне?
Пока ответ такой - вставить в примечание яч. В1 текст яч. А1:

Код Выделить Развернуть

on error resume next
[B1].comment.delete
[B1].addcomment [A1].text

[Smarty_kazan]

в общем дело такое.пусть будут формулы ВПР.их много.и они должны попадать в примечания определенные которые указаны.
Например: лист1-там будут формулы ВПР с других файлов.они должны копироваться в примечания листа 2,3 и т.д..
и можно ли чтобы копировались два, три и более значений в одну ячейку?

[exceleved]

> в общем дело такое...
В общем, нужен пример в XLS. По такому описанию алгоритм составить невозможно.

> можно ли чтобы копировались два, три и более значений в одну ячейку?
В смысле, в примечание одной ячейки? Конечно, можно. Например, текст из яч. А1, А2, А3 в примечание яч. В1:

Код Выделить Развернуть

[B1].addcomment [A1].text & " " & [A2].text & " " & [A3].text

[Smarty_kazan]

Вот пример.

[kuklp]

Для этого примера.

[Smarty_kazan]

KuklP, exceleved спасибо ребята!!
KuklP, а как прописать в вашем макросе, если к примеру было уже примечание и чтобы оно не удалялось.а обновлялись чисто те что из столбца В?

[kuklp]

Оно отуда и берется.

[Smarty_kazan]

В общем я тут добавил макрос.
Option Explicit
Sub Изменить_комментарии()
Dim sh As Worksheet, com As Comment
For Each sh In ThisWorkbook.Worksheets
For Each com In sh.Comments
com.Shape.TextFrame.AutoSize = True
With com.Shape.TextFrame.Characters.Font
.ColorIndex = 1: .Bold = 0: .Italic = 0: .Size = 10
End With
com.Shape.Fill.ForeColor.SchemeColor = 1
Next com
Next sh
End Sub

Он делает примечания нужного размера.не подскажете как сделать чтобы он работал сразу после копии содержимого ячейки в примечание?

[kuklp]

Так, что ли?

[Smarty_kazan]

Именно.Спасибо большое,человеческое Вам!!!

[Smarty_kazan]

KuklP, вставил ваш макрос в документ.не работает почему-то?какая может быть причина?

[kuklp]

А я знаю? Я Ваш документ не видел. Выложите - посмотрю.

[Smarty_kazan]

Вот.не могу найти в чем ошибка.

[kuklp]

Из-за объединенных ячеек. Сколько пишем, объединенные ячейки - зло.