Очистка ячейки при изменении значения в другой. - Страница 2

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

Очистка ячейки при изменении значения в другой. (Макросы/Sub)

Очистка ячейки при изменении значения в другой.

_Boroda_

Дата: Четверг, 20.03.2025, 09:23 | Сообщение № 21

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

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

Сообщений: 16880

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Посмотрите выше. Пост 4.

Цитата i691198, 07.03.2025 в 20:09, в сообщении № 4 (

)

Public Carr()

А в пост 7 Вы сами то же самое писали уже

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

votangi59

Дата: Пятница, 21.03.2025, 08:04 | Сообщение № 22

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

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

Сообщений: 65

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

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

Здравствуйте, форумчане!
Настоящим сообщаю - проблему решил. Публикую код, которым заменил код предложеный i691198. Остальное без изменений.
[vba]

Код

Sub Compare()                  ' сравнение  и очистка
     Sheets("Бл_кол-ва").Select
     Dim Ar1, i As Integer
        Ar1 = Range("F7:F38")                ' диапазон отслеживания изменений
    For i = 1 To 32
        If Ar1(i, 1) <> stMem(i, 1) Then   ' сравниваем
        Cells(i + 6, 10).ClearContents  ' +6 сдвиг номера строки, 10-й столбец, обнуляем при изменениях
        End If
    Next
    stMem = Range("F7:F38")                ' запоминаем после сравнения
    End Sub

[/vba]
Этот же код вставил в макросы сортировки по выбранным критериям. Немного длиньше и больше, главное функционирует.
Софт защиты не "ругается", всё работает как надо.
Всех благодарю за помощь и поддержку!

Вопрос решён.

Сообщение отредактировал votangi59 - Пятница, 21.03.2025, 15:33

Ответить

Очистка ячейки при изменении значения в другой. (Макросы/Sub)

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