Добрый день уважаемые знатоки. Опять обращяюсь к Вам, так как знание не хватает у меня. Сам посторался, но не смог вытащить желаемого результата.
Задача: Найти самую последнюю искоемое значение и копировать в другую ячейку. Вот код:
Но он не находит самую последнюю искоемое значение. Где в коде я должен изменить, что бы получить желаемый результат. Спасибо.
Задача: Найти самую последнюю искоемое значение и копировать в другую ячейку. Вот код:
Код |
---|
Sub Poisk() Dim lamp As Range, Table As Range With [a:a] Set lamp = .Find("Lamp", , xlValues, xlWhole) If lamp Is Nothing Then Exit Sub Set lamp = .FindNext(lamp) lamp.Offset(0, 1).Copy [c2] Set Table = .Find("Table", , xlValues, xlWhole) If Table Is Nothing Then Exit Sub Set Table = .FindNext(Table) Table.Offset(0, 1).Copy [c3] End With End Sub |
Но он не находит самую последнюю искоемое значение. Где в коде я должен изменить, что бы получить желаемый результат. Спасибо.