Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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]

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


Сообщение отредактировал Dilemma086 - Воскресенье, 19.11.2017, 11:28
 
Ответить
СообщениеДобрый день!
Не получается сделать так, чтобы по поиску находил значения в ячейке целиком, находит часть совпадения и подставляются не верные значения.
[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]

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

Автор - Dilemma086
Дата добавления - 19.11.2017 в 11:27
Kuzmich Дата: Воскресенье, 19.11.2017, 11:38 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 326
Репутация: 62 ±
Замечаний: 0% ±

Excel 2003
Попробуйте
[vba]
Код
Set art = ActiveWorkbook.Sheets(9).Columns(3).Find(.Cells(i, "C"), , xlValues, xlWhole)
[/vba]
 
Ответить
СообщениеПопробуйте
[vba]
Код
Set art = ActiveWorkbook.Sheets(9).Columns(3).Find(.Cells(i, "C"), , xlValues, xlWhole)
[/vba]

Автор - Kuzmich
Дата добавления - 19.11.2017 в 11:38
Dilemma086 Дата: Воскресенье, 19.11.2017, 11:53 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Да, работает, спасибо!!!
 
Ответить
СообщениеДа, работает, спасибо!!!

Автор - Dilemma086
Дата добавления - 19.11.2017 в 11:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск ячейки целиком (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!