Пересчет Ячеек

[Ровшан]

Имеется 2 столбца значенийна Excel столбец(А)-код товара, столбец (В)-цена товара. Как написать код чтобы на другом листе или книге написав код товара автоматически в соседнем столбце выходила цена товара. Я новичек в этом деле.....

[Calvin]

Для этого есть экселевские функции ВПР и ПРОСМОТР. Почитай о них в хэлпе. А вообще это и програмно можно было бы сделать.......

[Ровшан]

А как программно?

[Calvin]

можно по разному, например так:
допустим ты вводишь данные в какую-либо строку определенного столбца (а в соседнем (справа) хочешь вывести значение, которое нужно найти в диапазоне на другом листе или книге)

Код: Выделить всё

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Myrange as Range
Set Myrange=Workbooks("Книга1.xls").Sheets("Sheet1").Range("a1")

' Если вводим исх. данные в столбец "À" листа "Лист1"
If Target.Column = 1 and  Target.Worksheet.Name ="Лист1" Then

'если известен диапазон, из кот. производится поиск 
  For i = 0 To 999
           If Myrange.Offset(i, 0).Value = Target Then
                Target.Offset(0, 1) = Myrange.Offset(i, 1).Value
             End If
  Next
End If
End Sub


только не забудь сначала книгу открыть, с которой данные будут проверяться. Кстати, если значения в проверяемом диапазоне будут неуникальными, то будет определено последнее из повторяющихся