Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
29.03.2024, 08:51:41

Войти
Добавляйтесь в нашу группу ВКонтакте - будьте в курсе всех новых событий сайта, узнавайте первым обо всех акциях и новых статьях!
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Найти макросом совпадающие значения по заданному условию
Страниц: 1 [2]  Все   Вниз
Печать
Автор Тема: Найти макросом совпадающие значения по заданному условию  (Прочитано 13211 раз)
0 Пользователей и 1 Гость смотрят эту тему.
abdu77
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 16


Просмотр профиля E-mail
« Ответ #15 : 24.01.2017, 13:13:07 »

Ваув. Господин Kuzmich. Моё уважение Вам. Спасибо. Классно.
Записан
Kuzmich
Постоялец
***

Репутация: +27/-0
Офлайн Офлайн

Сообщений: 168


Просмотр профиля
« Ответ #16 : 24.01.2017, 13:20:39 »

Можно сделать срабатывание макроса на изменение ячейки В1,
тогда будете получать список ИНН по районам
Записан
AlexM
Новичок
*

Репутация: +9/-0
Офлайн Офлайн

Сообщений: 47



Просмотр профиля
« Ответ #17 : 24.01.2017, 14:30:01 »

Еще вариант решения.
Для районов сделан выпадающий список, можно дополнять.
Формула ля ИНН
=ЕСЛИ(A3="";"";СМЕЩ(ИНДЕКС(есть!C:C;ПОИСКПОЗ(B$1;есть!B:B;));СТРОКА(A1);))
Формула для порядкового номера
=ЕСЛИ(СТРОКА(A1)>ПОИСКПОЗ("*";ИНДЕКС(есть!B:B;ПОИСКПОЗ(B$1;есть!B:B;)+1):есть!B$99;)-1;"";СТРОКА(A1))
Все формулы обычные, т.е. не формула массива.
PS. в конце данных в столбце В на листе "есть" нужен любой символ, чтобы формула поняла конец списка ИНН для последнего района.
« Последнее редактирование: 24.01.2017, 14:36:35 от AlexM » Записан

Алексей М.
abdu77
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 16


Просмотр профиля E-mail
« Ответ #18 : 24.01.2017, 14:45:13 »

Спасибо за формулу AlexM. Я как смог переделал макрос Kuzmich а под себя. Но не работает на остальных ячеек стобца Е. Вложил файл, и соотвественно, с ним и макрос. Если что то не так, пожалуйсто не ругайте сильно. Улыбка
PS. Наименование на листе DSI не имеет значение. Надо что бы наименование на листе HETK (столбец В) скопировалось на лист DSI, совподающие ИНН.
« Последнее редактирование: 24.01.2017, 15:26:14 от abdu77 » Записан
Kuzmich
Постоялец
***

Репутация: +27/-0
Офлайн Офлайн

Сообщений: 168


Просмотр профиля
« Ответ #19 : 24.01.2017, 17:10:01 »

Код: (vb)

Sub iPaion()
Dim FoundPaion As Range
Dim i As Integer
    Range("E3:E" & Cells(Rows.Count, "E").End(xlUp).Row + 1).ClearContents
With Worksheets("hetk")
 For i = 3 To 11
  Set FoundPaion = .Columns(1).Find(Cells(i, "C"), , xlValues, xlWhole)
    If Not FoundPaion Is Nothing Then
      Cells(i, "E") = .Cells(FoundPaion.Row, "B")
    End If
 Next
     End With
End Sub
Записан
Kuzmich
Постоялец
***

Репутация: +27/-0
Офлайн Офлайн

Сообщений: 168


Просмотр профиля
« Ответ #20 : 24.01.2017, 17:11:29 »

Сбой какой-то и повторная отправка
« Последнее редактирование: 24.01.2017, 17:19:51 от Kuzmich » Записан
abdu77
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 16


Просмотр профиля E-mail
« Ответ #21 : 24.01.2017, 19:34:59 »

Спасибо Kuzmich. Это то что надо. Респект Вам.
Записан
Страниц: 1 [2]  Все   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru