Поиск на 1-ом листе текста со в ячейки 6 столбца и сравнение

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

Поиск на 1-ом листе текста со в ячейки 6 столбца и сравнение (Макросы/Sub)

Petro

Дата: Понедельник, 21.05.2018, 10:24 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2016

Макрос поиска на 1-ом листе текста со 2-й ячейки 6 столбца с сравнением его на 2-листе со 2-й ячейки и далее 6 столбца и если идет совпадение по первым словам то выводится значение данных строк столбцов "N" и "K" в соответствующие строки.

Sub Кнопка7_Щелчок()
Dim i As Long, x As Range: Application.ScreenUpdating = False
With Sheets("БазаДанных")
For i = 2 To Cells(Rows.Count, 6).End(xlUp).Row
Set x = .[F:F].Find(Cells(i, 6), .Cells(Rows.Count, 6).End(xlUp).Offset(1), , , , xlPrevious)
If Not x Is Nothing Then Cells(i, "K") = .Cells(x.Row, "K")
Cells(i, "N") = .Cells(x.Row, "N")
Next: End With
End Sub

При выполнение к примеру поиска по слову "монитор" работает как надо, а с длинной аббревиатурой выдает ошибку 13.

Прошу подсказать где не то...

Ответить

_Boroda_

Дата: Понедельник, 21.05.2018, 10:37 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

- Прочитайте Правила форума
- Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

И зачем Вы клона создали? Это запрещено Правилами

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Поиск на 1-ом листе текста со в ячейки 6 столбца и сравнение (Макросы/Sub)

Страница 1 из 1
1