Здравствуйте, уважаемый GRIM уже написал макрос такого вида, в нём выводиться список с нумерацией строк, а хотелось продолжить тему и сделать список по номерам товаров, в прилагаемом файле я расписал что-к -чему, прошу посодействовать в решении проблемы!
Код |
---|
Dim Nachalo As Long, lngKonec As Long Dim i As Long, x Nachalo = НачалоДанных lngKonec = КонецДанных On Error Resume Next For Each cell In Range(Cells(Nachalo - 1, "F"), Cells(lngKonec, "F")) If cell.Comment Is Nothing Then Else x = x & cell.row & ", " End If Next On Error Resume Next x = Left(x, Len(x) - 2) If x <> "" Then MsgBox "Есть проблемы по письмам, ТОВАРЫ № " & x Else MsgBox "По письмам замечаний нет!" End If |