Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Разнесение строк по условию на разные листы в одной книге
 
#1
28.08.2021 13:05:31
Всем привет! Господа, прошу у Вас помощи в реализации своей задачи. (Excel VBA)

Основная суть задачи в том, чтобы перенести целые строки с данными на другой лист по условию, которое представляет из себя фрагмент текста. То есть, задаем поиск по столбцу "С" на наличие в его ячейках например текста "АРТ4" (без учета регистра). При нахождении этого совпадения, должна вырезаться вся строка, на которой находится найденная ячейка и вставляться на новый созданный лист с названием, которое должно быть равно тексту поиска (АРТ4). Ввод текста поиска можно повесить на кнопку.
 
 
 
#2
28.08.2021 15:44:33
Здравствуйте, вариант.
Вредить легко, помогать трудно.
 
 
 
#3
28.08.2021 16:01:18
Спасибо! Логика верная. Лист с названием результат, должен иметь название, как запрос. То есть вписали например арт1, такое же название должно быть у нового листа. В Вашем случае это переменная txt. Это сделано для того, чтобы иметь возможность раскинуть весь список по листам с актуальными названиями. А так же еще есть учет регистра, т.е. если запрос указать прописными, то на новом листе ничего не появляется.
Изменено: vikttur - 29.08.2021 00:17:38
 
 
 
#4
28.08.2021 16:25:03
Проверьте
Вредить легко, помогать трудно.
 
 
 
#5
28.08.2021 16:51:21
Хорошо, работает! Только через пару раз кнопка почему то уехала на один из созданных листов. Можно ее как-то навсегда зафиксировать на первоначальном листе?
 
 
 
#6
28.08.2021 17:02:52
https://www.cyberforum.ru/vba/thread930354.html
Вредить легко, помогать трудно.
 
 
 
#7
28.08.2021 17:23:40
Спасибо, с кнопкой разобрался! Попробовал ввести в поиск просто "арт" и программа зависла, попробовал штрих-код ввести цифровой и тоже зависла.
 
 
 
#8
30.08.2021 10:19:54
Посмотрите файл:
 
 
 
#9
07.09.2021 18:57:05
Спасибо!
Изменено: vikttur - 07.09.2021 22:18:46
 
 
 
#10
08.09.2021 10:14:49
Добрый день. В готовом решении если в строке кнопки "введите условный текст" забить, не АРТ, а, например, 4660056102279, то вырезаются все строки,а не одна. Почему?
 
 
 
#11
08.09.2021 10:29:36
Проверьте:
Изменено: artemkau88 - 08.09.2021 10:34:25
 
 
 
#12
08.09.2021 10:49:52
Работает!
 
 
 
#13
08.09.2021 11:10:03
Уважаемый artemkau88, подскажите, а какой параметр нужно изменить в макросе, чтобы искало по столбцу В, а не С? Сам не могу сообразить. И ещё такой момент. Пробовал прогнать макрос на уже готовой таблице с данными в файле где много листов. Например, есть лист "Досудебные погашения".  Если в макросе меняю имена названий листа с "Лист1" на "Досудебные погашения", то не работает. Если меняю само название листа с "Досудебные погашения" на "Лист1", то всё ок.
Изменено: Евгений Палыч - 08.09.2021 11:13:50
 
 
 
#14
08.09.2021 11:20:39
Цитата
Евгений Палыч: Если в макросе меняю, то не работает. Если меняю само название листа, то всё ок
скорее всего то, что вы пишете руками отличается от того, что написано в имени листа. Проверить это легко, написав в макросе и изменив в книге имя листа на что-то однозначное и просто — например "RRR"
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#15
08.09.2021 11:22:53
Евгений Палыч, посмотрите зеленые комментарии в файле.
Немного подправил для Вашего примера.
 
 
 
#16
08.09.2021 13:37:07
Jack Famous, меняю название через копировать - вставить, так что должно совпадать).

artemkau88, делал всё так, как написано в комментариях - менял в 2-х местах наименование листа и номер столбца. Видимо, это всё-таки какие-то мои промахи в редактировании макроса. Буду пробовать ещё, отпишусь.
P.S. Все работает - и столбец меняется, и нужный лист берёт.
 
 
 
#17
09.09.2021 09:16:26
Евгений Палыч, посмотрите еще вариант:
 
 
 
Страницы: 1
Наверх