При попытке взять примечание из ячейки где его нет — ошибка.
Как это можно обойти?

Здравствуйте, Takinado, Вы писали:

T>При попытке взять примечание из ячейки где его нет — ошибка.
T>Как это можно обойти?
A OnError на что?

Здравствуйте, Takinado, Вы писали:

T>При попытке взять примечание из ячейки где его нет — ошибка.
С этого места поподробнее...

Здравствуйте, Bob Kotl, Вы писали:

BK>Здравствуйте, Takinado, Вы писали:

T>>При попытке взять примечание из ячейки где его нет — ошибка.
T>>Как это можно обойти?
BK>A OnError на что?

Спасибо. Очень помогло. Только On Error.

Здравствуйте, Аноним, Вы писали:

А>Здравствуйте, Takinado, Вы писали:

T>>При попытке взять примечание из ячейки где его нет — ошибка.
А>С этого места поподробнее...
Людям нужно было распечатать примечания.

кусь-кусь

For j = 7 To 37
On Error GoTo 0 ' Turn off error trapping.
On Error Resume Next
a = Cells(i, j).Comment.Text & " ,день " & Cells(6, j)
If Err.Number = 91 Then
Err.Clear ' Clear Err object fields
Else
Sheets("Примечания").Cells(y, x) = a
x = x + 1
End If
On Error GoTo 0
l1: Next j

кусь-кусь

Типа работет.

Здравствуйте, Takinado, Вы писали:

T>Здравствуйте, Bob Kotl, Вы писали:

BK>>Здравствуйте, Takinado, Вы писали:

T>>>При попытке взять примечание из ячейки где его нет — ошибка.
T>>>Как это можно обойти?
BK>>A OnError на что?

T>Спасибо. Очень помогло. Только On Error.
ну сорри, опИска вышла..