Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Boris DIMA
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Вставить под таблицей все строки, которые содержат в одном из столбцов ключевое слово
 
#
27.09.2022 13:39:39
Цитата
написал:

Цитата
как сделать так, чтобы во вставляемых строках в ячейках 16 -17-18 столбцов прописывалось : в 16- "зеленый"; 17-"синий" ;18 -"последний"; и так в каждой вставляемой строке?
Попробуйте добавить в код соответствующие строки
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10            Do            lLastRow = Cells(Rows.Count, 1).  End  (xlUp).Row            Range(Cells(c.Row, 1), Cells(c.Row, 26)).Copy Cells(lLastRow + 1, 1)              Cells(lLastRow + 1, 17) =   "Синий"            Range(Cells(c.Row, 1), Cells(c.Row, 26)).Copy Cells(lLastRow + 2, 1)              Cells(lLastRow + 2, 18) =   "Последний"              Cells(c.Row, 16) =   "Зеленый"            Set   c = .FindNext(c)            If   c   Is   Nothing   Then   Exit   Do          Loop   While   c.Address <> firstResult  
 
Kuzmich Спасибо! работает.

evgeniygeo без * тоже работает, спасибо.
 
Перейти    
Вставить под таблицей все строки, которые содержат в одном из столбцов ключевое слово
 
#
26.09.2022 17:13:46
Странно, куда-то ответ делся, попробую повторить:

evgeniygeo  поскольку я вставляю ваш код в свой макрос, а после вставки он не сработал, то я что-то еще в своем поправил и поставил "*". Сейчас работает, а учитывая то, что написал Kuzmich , наверное и без звездочек тоже работает. Спасибо!

Msi2102 - пробовал фильтр, но после копирования отфильтрованного не давало вставить , как Range - ругался про абсолютную адресацию первой ячейки вставки. Побороть не смог.

evgeniygeo как сделать так, чтобы во вставляемых строках в ячейках 16 -17-18 столбцов прописывалось : в 16- "зеленый"; 17-"синий" ;18 -"последний"; и так в каждой вставляемой строке?
 
Перейти    
Вставить под таблицей все строки, которые содержат в одном из столбцов ключевое слово
 
#
26.09.2022 15:26:08
Цитата
написал:
Boris DIMA,
а Вы попробовали использовать приведенный мною код?
1. Я встраиваю ваш код в мой макрос. Он не работал, я добавил звездочки и кое-что поправил в своей части - стало работать. попробую ваш код отдельно без изменений. Я не критиковал, а именно уточнил, потому что не знаю ситаксис и как работает оператор .Find

2. Msi2102 - вариант очевидный, я пробовал давно, у меня не получилось добиться результата. Я копировал отфильтрованное, вставлял через Range , но компилятор постоянно выбрасывал ошибку, что вставка по Range некорректна при указании абсолютного адреса. Разбор похожих ситуаций не помог.

3. evgeniygeo есть возможность вставлять не просто скопированные строки, а вначале заменить значение нескольких ячеек во вставляемой строке?

ячейки столбцов 16,17,18, 19 ?
 
Перейти    
Вставить под таблицей все строки, которые содержат в одном из столбцов ключевое слово
 
#
25.09.2022 23:16:33
Спасибо, работает.

вопро по этой строке:

Set c = .Find("+пакетик", LookIn:=xlValues)

может быть так нужно? :

Set c = .Find("*+пакетик*", LookIn:=xlValues)
 
Перейти    
Вставить под таблицей все строки, которые содержат в одном из столбцов ключевое слово
 
#
25.09.2022 21:34:14
добрый вечер,

Посмотрел много похожих тем, попробовал вставить куски кодов - не работает.

Есть макрос, который формирует из разных данных таблицу. В этой таблице в ячейках  колонки 16, начиная с 5 строки идет описание товаров. Если в описании есть ключевое слово "+пакетик", то строку нужно скопировать целиком и вставить в первую свободную строку внизу 2 раза. Можно вначале вставить один раз копии всех строк, содержащих "+пакетик" , потом еще один раз копии всех строк, содержащих "+пакетик". (В итоге такие строки должны всего повторятся 3 раза).

заранее спасибо
 
Перейти    
Страницы: 1
Наверх