Помогите написать макрос
еще проблемма в том, что должно быть 2 условия, т.е. по первому условию в 3 столбце искать значение ячейки B2 и в 4 столбце искать значение ячейки B3.
Код |
---|
Sub 333() Dim TextForFind, iRng As Range With ActiveSheet.Columns(3).Find 'поиск значения в третьем столбце TextForFind = Sheets("Лист1").Range("B2").Value 'Текст для поиска Set iRng = Columns(3).Find(what:=TextForFind, LookIn:=xlFormulas, lookat:=xlPart)'поиск значения в третьем столбце(нужно ли повторять??) поиск в формулах, искать не точное совпадение, а в содержимом ячеек If Not iRng Is Nothing Then 'правильна ли формулировка? Dim lngLastRow As Long lngLastRow = Sheets("лист1").UsedRange.Rows.Count Sheets("Лист1").Cells(lngLastRow, 2).Value = Range(iRng).Value 'здесь вообще отсебятина.... а должно быть найденное значение End Sub |