Если ячейка содержит слово, то вставить строку со словом

Старая форма входа

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

Если ячейка содержит слово, то вставить строку со словом (Макросы/Sub)

Yar4i

Дата: Четверг, 08.10.2020, 10:51 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 137

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

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

Excel 2010

Добрый день, дамы и господа

Пробую к имеющемуся коду выделения строки серым фоном по условию добавить еще одно условие по добавлению снизу новой строки (под ячейкой со словом "вернуть").
[vba]

Код

Sub СтрокуВыделить()
PS = Range("K" & Rows.count).End(xlUp).Row
   For i = PS To 16 Step -1
     If Cells(i, 11).Value Like "*вернуть*" Then
       Rows(i).Interior.ColorIndex = 15
     End If
   Next
End Sub

[/vba]

В столбце К, в некоторых ячейках содержится слово "вернуть" (например К19)
Нужно под каждой такой ячейкой добавить строку, а в этой новой строке добавить слово "досписать" в 11-ом столбце. (например К20)
Если получится к имеющемуся коду добавить - круть.
Как было и как стало - все приложил в файле 1234.

Я пробовал .Offset (1) и .Insert отдельным макросом подсмотренным на просторах сети, но подсвечивает красным код, и пробовал вторым условием If, но никак без вас.

К сообщению приложен файл: 1234.xlsx (68.2 Kb)

Сообщение отредактировал Yar4i - Четверг, 08.10.2020, 10:56

Ответить

Kuzmich

Дата: Четверг, 08.10.2020, 12:15 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

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

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

Excel 2003

Цитата

к имеющемуся коду добавить

[vba]

Код

Sub СтрокуВыделить()
Dim PS As Long
Dim i As Long
PS = Range("K" & Rows.Count).End(xlUp).Row
For i = PS To 18 Step -1
    If Cells(i, 11).Value Like "*вернуть*" Then
    Rows(i).Interior.ColorIndex = 15
      Rows(i + 1).Insert
      Cells(i + 1, 11) = "досписать"
    End If
Next
End Sub

[/vba]

Ответить

Yar4i

Дата: Четверг, 08.10.2020, 14:35 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 137

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

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

Excel 2010

Цитата Kuzmich, 08.10.2020 в 12:15, в сообщении № 2 ()

добавить

Спасибо.
+ 1 Круть

Ответить

Если ячейка содержит слово, то вставить строку со словом (Макросы/Sub)

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