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

 

Sub цена2()

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

ActiveCell.Cells(, 3).Activate

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

ActiveCell.Value = цена

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

ActiveCell.Cells(, -1).Activate

End Sub

 

продолжение

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