Заливка ячеек по данным таблицы из другого листа

[IgorGO]

текст, видимо так:

      .Cells(Cells(R, 4) / 10 + 1, Cells(R, 3) * 100 + 1).AddComment(Cells(R, 2).Value)

[Nicolas_46]

  .Cells(Cells(R, 4) / 10 + 1, Cells(R, 3) * 100 + 1).AddComment(Cells(R, 2).Value)

[Nicolas_46]

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

текст, видимо так:

      .Cells(Cells(R, 4) / 10 + 1, Cells(R, 3) * 100 + 1).AddComment(Cells(R, 2).Value)

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

[IgorGO]

пример файла.
никто не знает, что у Вас на листах в ячейках находится.
что бросается в глаза:
комментарии Вы вставляете на лист Worksheets(2) написано .Cells(...
а в какую ячейку вставлять считаете на основании значений из активного листа Cells(R, 4), Cells(R, 3) и сам комментарий забираете с активного листа Cells(R, 2).Value.

.Cells(Cells(R, 4) / 10 + 1, Cells(R, 3) * 100 + 1).AddComment(Cells(R, 2).Value)

[Nicolas_46]

комент для каждой закрашенной зоны берется из столбца "B", строки в которой содержаться ее координаты.

Существеет ли способ обратьться ко всем коментариям листа и изменить размер текста во всех коментариях сразу?

[Nicolas_46]

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

комментарии Вы вставляете на лист Worksheets(2) написано .Cells(...
а в какую ячейку вставлять считаете на основании значений из активного листа Cells(R, 4), Cells(R, 3) и сам комментарий забираете с активного листа Cells(R, 2).Value.

Все верно, этого и пытаюсь добиться.

[IgorGO]

Существеет ли способ обратьться ко всем коментариям листа и изменить размер текста во всех коментариях сразу?

увы... по одной(((

  For Each c In Cells.SpecialCells(xlCellTypeComments)
    c.Comment.Shape.Width = 150
  Next

[Nicolas_46]

Спасибо большое за идею.

Реализовать загрузку числа из ячеки в примечание у меня пока что не получилось(