Здравствуйте, Аноним, Вы писали:
А>Здравствуйте, 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
