Доброе время суток. Возникла проблема с тем, что чтобы из найденной ячейки произвести вычисления и результат вычисления должен оставался в той ячейке где значение изначально имеется. Примерная табличка приложена в файле.
Вот таким кстати макросом я пользовался, а под образовавшуюся задачу пока придумать не получается
| Код |
|---|
Dim TextForFind, Adr, iRng As Range
With Лист7.Range("B2:G2") ' Это зона поиска
TextForFind = Лист7.Range("B12").Value 'Это текст который является параметром поиска
Set iRng = .Find(what:=TextForFind, LookIn:=xlFormulas, lookat:=xlPart)
If Not iRng Is Nothing Then
Лист7.Range("B20").Value = Лист7.Cells(iRng.Row + 2, iRng.Column).Value ' Это ячейка куда пишем ответ
Else: Лист7.Range("B20").Value = "Нет такого!"
End If
End With |
Желательно решение макросом.
Заранее спасибо!
