замена текста в яч. в зависимости от знач в нескольк столбца

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

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

замена текста в яч. в зависимости от знач в нескольк столбца (Макросы/Sub)

Gjlhzl

Дата: Понедельник, 22.05.2023, 15:58 | Сообщение № 1

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

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

Сообщений: 138

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

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

День добрый, задача:
макросом при изменении каких либо значений в строках, в столбце 11 строки отмечаются 1 (для последующего расчета макросом),
в столбце Примечания делаются различные пометки, включая для определенной группы строк (во всех объектах эта группа есть, там выводятся значения типа "прибыль" "выручка" и тд... которые соответственно зависят от всех других значений в строках по объекту) ставятся пометки "В РАБОТЕ" - если объект еще не закончен
и "ЗАВЕРШЕН" - если окончен соответственно.
те группы строк в которых в столбце Примечания - "В РАБОТЕ" макрос расчитывает по умолчанию, если "ЗАВЕРШЕН" то нет, но бывает вносятся изменения в строки объекта или добавляются новые данные ,значит
требуется пересчет - заменить значение "ЗАВЕРШЕН" на "В РАБОТЕ"

К сообщению приложен файл: kniga1.xlsb (9.3 Kb)

Ответить

Serge_007

Дата: Понедельник, 22.05.2023, 16:19 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Здравствуйте

Так надо?
[vba]

Код

Sub Gjlhzl()
Dim rR As Range
    For Each rR In Range("d2:d27")
        If rR.Offset(0, 7) = 1 Then rR = "В РАБОТЕ"
    Next rR
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Gjlhzl

Дата: Понедельник, 22.05.2023, 16:35 | Сообщение № 3

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

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

Сообщений: 138

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

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

Serge_007, нет
Сергей требуется, что бы если хоть в одной из ячеек столбца 11 определенного объекта, есть 1 (то есть что то менялось в строке - 1 ставиться макросом при изменении чего либо в строке)
то в строке этого объекта где столбце Примечания записано - "ЗАВЕРШЕН" ЗАВЕРШЕН менялось на В РАБОТЕ
а все остальные записи столбца Примечания не менялись, и так с каждым объектом

Сообщение отредактировал Gjlhzl - Понедельник, 22.05.2023, 16:39

Ответить

Serge_007

Дата: Понедельник, 22.05.2023, 16:46 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата Gjlhzl, 22.05.2023 в 16:35, в сообщении № 3 (

)

ЗАВЕРШЕН менялось на В РАБОТЕ

Так?
[vba]

Код

Sub Gjlhzl_2()
Dim rR As Range
    For Each rR In Range("d2:d27")
        If rR = "ЗАВЕРШЕН" And rR.Offset(0, 7) Then rR = "В РАБОТЕ"
    Next rR
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Gjlhzl

Дата: Понедельник, 22.05.2023, 17:05 | Сообщение № 5

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

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

Сообщений: 138

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

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

Serge_007, не совсем....ща меняется...но меняется только если в строке где в Примечании есть ЗАВЕРШЕН в столбце 11 - есть 1..........
а ее там нет по умолчанию если объект ЗАВЕРШЕН,
если в какой то из строк объекта допустим -" дом " внеслись изменения соответственно в столбце 11 яч К20- "1" то в D2, D3 должно стать - В РАБОТЕ
см. пример

К сообщению приложен файл: kniga1_1.xlsb (14.7 Kb)

Ответить

Serge_007

Дата: Понедельник, 22.05.2023, 17:25 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Gjlhzl, Вас очень сложно понять, а файл ещё больше запутывает...

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Gjlhzl

Дата: Понедельник, 22.05.2023, 17:47 | Сообщение № 7

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

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

Сообщений: 138

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

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

Serge_007, возможно коряво формирую мысль......
пофильтруйте по объектам...допустим
в файле из сообщ 5 фильтраните по объет -дом
если в какой то либо строке в столбце11 есть 1 то в строках где в столбце Примечания есть ЗАВЕРШЕН, слово должно поменяться на В РАБОТЕ
если нет 1 в столбце 11 то ничего не происходит, если в столбце 11 есть 1 но в столбце примечания - В РАБОТЕ , то ничего не происходит

Сообщение отредактировал Gjlhzl - Понедельник, 22.05.2023, 17:49

Ответить

замена текста в яч. в зависимости от знач в нескольк столбца (Макросы/Sub)

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