Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Автоматический запуск макроса при изменение суммы ячейк, Автоматический запуск макроса при изменение суммы ячейк
 
Добрый день, друзья!
Помогите пожалуйста как можно запускать макроса автоматический при изменение суммы в ячейках $I$1:$J$1

Мне нужен автоматический запуск этого макроса

Sub ÏîêàçàòüÏîÓñëîâèÿì2()
Dim i As Long: Application.ScreenUpdating = False
   For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
       If Cells(1, i) = 0 Then
           Columns(i).Hidden = True
       Else
           Columns(i).Hidden = False: Columns(i).AutoFit
       End If
   Next
End Sub
 
в модуль листа, на котором необходимо отслеживать изменения:
Код
Private Sub Worksheet_Calculate()
    Dim target As Range
    Set target = Range("$I$1:$J$1")
    If Not Intersect(target, Range("$I$1:$J$1")) Is Nothing Then Call Скрыть
End Sub
 
heso, Ваш target всегда будет Not Intersect(target, Range("$I$1:$J$1")) Is Nothing, т.к. он и есть Set target = Range("$I$1:$J$1"). Зачем эта проверка? И что вы этим хотите проверить?

Mukhtar, лучше отслеживайте изменения значений в ячейках с вып.списком (или обоими) и проверяйте сумму. Хотя вообще непонятно зачем там эти единички и нолики
Согласие есть продукт при полном непротивлении сторон.
 
heso, Подскажите пожалуйста, где мне добавить ваш модуль чтобы у меня работал макрос автоматический. Я попробовал (прекрепил принскрин) но не получается.
 
Вот файл, с помощью вып.список я фильтрую столбики
 
В модуль листа Аренда
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim I&, lColumn&
    If Not Intersect(Target, Range("B15:B16")) Is Nothing And Target.Count = 1 Then
        Application.ScreenUpdating = False
        lColumn = Cells(1, Columns.Count).End(xlToLeft).Column
        For I = 1 To lColumn
            If Cells(1, I) = 0 Then
                Columns(I).Hidden = True
            Else
                Columns(I).Hidden = False
                Columns(I).AutoFit
            End If
        Next
    End If
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон.
 
Если в первом строке нолики, при запуске  макрос скроет столбик, если единичка тогда не скрывает
 
Мой код именно это и делает. Проверяет нолики/не нолики в первой строке при изменении значений в вып.списках
Согласие есть продукт при полном непротивлении сторон.
 
Друзья на этом файле кто нибудь сможет изменить модуль и обратно сохранить. Я попробовал но не получается, может я неправильно изменил.
 
Sanja,что-то переклинило меня...
Mukhtar, мой код удалите, код от Sanja вставьте не в Module4, а в Лист24(Аренда)
 
Код в модуле ЛИСТА!
Согласие есть продукт при полном непротивлении сторон.
 
Всем огромное спасибо!!! Теперь получилось автоматический фильтр!!!
Страницы: 1
Читают тему (гостей: 1)
Наверх