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

Sub цена2_нов()

'переходим на одну строку вниз

ActiveCell.Cells(2).Activate

'вставляем наименование товара

ActiveCell.Value = товар

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

ActiveCell.Cells(, 3).Activate

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

ActiveCell.Value = цена

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

ActiveCell.Cells(, -1).Activate

End Sub

Скачать исходник для проверки работы. РАБОЧИЙ ИСХОДНИК :

 

продолжение

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