'если наименование товара по прайсам совпало, то вносим цену новой фирмы в соответствующую ей ячейку
'это и делает подпрограмма, лежащая ниже



Sub цена2()

'переходим на три ячейки вправо

ActiveCell.Cells(, 3).Activate

'вставляем цену

ActiveCell.Value = цена

'возвращаемся в исходное положение

ActiveCell.Cells(, -1).Activate

End Sub



продолжение :

Рейтинг@Mail.ru главная программы задачи карта Copyright © СОМИТ, А.Козлов, 2005 г