Вставить в соседнюю ячейку, если в столбце А что-либо есть

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Вставить в соседнюю ячейку, если в столбце А что-либо есть - Мир MS Excel

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

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

Вставить в соседнюю ячейку, если в столбце А что-либо есть (Макросы/Sub)

Вставить в соседнюю ячейку, если в столбце А что-либо есть

timo64uk

Дата: Вторник, 05.11.2024, 11:06 | Сообщение № 1

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

Ранг: Участник

Сообщений: 94

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

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

Office16

Добрый день

Помогите макросом, пожалуйста.
Вставить формулу в столбец F, если напротив (в той же строке) в столбце А есть какой-либо текст "*", но текст есть ниже слова "Согласовано:" из столбца D.
Формула

Код

=ПСТР(A12;НАЙТИ("пакет ";A12)+6;1)&ПСТР(A12;НАЙТИ("Фаза";A12)+5;1)

где A12 - фиксированная ячейка

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

Ответить

Nic70y

Дата: Вторник, 05.11.2024, 11:39 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9000

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

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

Excel 2010

[vba]

Код

Sub u_74()
    a = Application.Match("Согласовано:", Range("d:d"), 0)
    If IsNumeric(a) Then
        b = Cells(Rows.Count, "a").End(xlUp).Row
        For Each c In Range("a" & a + 1 & ":a" & b).SpecialCells(xlCellTypeConstants, 23)
            c.Offset(0, 5).Formula = "=MID(A12,FIND(""пакет "",A12)+6,1)&MID(A12,FIND(""Фаза"",A12)+5,1)"
        Next
    End If
End Sub

[/vba]