Поиск ячейки целиком

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Поиск ячейки целиком - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск ячейки целиком (Макросы/Sub)

Поиск ячейки целиком

Dilemma086

Дата: Воскресенье, 19.11.2017, 11:27 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Добрый день!
Не получается сделать так, чтобы по поиску находил значения в ячейке целиком, находит часть совпадения и подставляются не верные значения.
[vba]

Код

Sub cod()
    With ActiveWorkbook.Sheets(1)
        For i = 2 To .Cells(.Rows.Count, "C").End(xlUp).Row
            Set art = ActiveWorkbook.Sheets(9).Columns(3).Find(.Cells(i, "C"))
            If Not art Is Nothing Then
                .Cells(i, "n") = ActiveWorkbook.Sheets(9).Cells(art.Row, "I").Value
            End If
   Next i
End With
End Sub

[/vba]

Спасибо всем, кто поможет!