Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для blackeangel

Старожил


Сообщения: 329
Благодарности: 3

Профиль | Отправить PM | Цитировать


a_axe, верно косяк замечен. Должно было быть так
Код: Выделить весь код
Ncolumn1 = 1
Ncolumn2 = 2
Цитата:
Проще вставить между вашими столбцами еще один пустой столбец и записывать красный текст в него в отдельную ячейку.
Надо именно в текущей ячейке.
Код: Выделить весь код
Else
Cells(i, 2).Value = Cells(i, 2).Value & "-" & massceh(j, 2)
Cells(i, 2).Font.ColorIndex = 3
Аналогичное пробовал - забивает ячейку всем подряд из листа "коды"

-------
Забудем боль, забудем страх -
И только ветер в парусах!


Отправлено: 17:51, 02-02-2018 | #3