Добрый день.
У меня задача следующая: при активации листа необходимо перебором проверить выводимое значение в ячейках в столбце 3(С) и при нахождении первой пустой ячейки в столбце 3, очистить содержимое ячеек в столбцах 6 и 7 в строках начиная с той, в которой найдена пустая ячейка в столбце 3 и по 48 строку (больше не бывает).
С макросами на "Вы".. попробовал так:
не работает. help
У меня задача следующая: при активации листа необходимо перебором проверить выводимое значение в ячейках в столбце 3(С) и при нахождении первой пустой ячейки в столбце 3, очистить содержимое ячеек в столбцах 6 и 7 в строках начиная с той, в которой найдена пустая ячейка в столбце 3 и по 48 строку (больше не бывает).
С макросами на "Вы".. попробовал так:
Код |
---|
Private Sub Worksheet_Activate() Dim i As Integer i = 2 If Cells(i, 3).Text <> "" Then i = i + 1 Else Range(Cells(i, 6), Cells(48, 7)).Select Selection.ClearContents End If End Sub |
не работает. help