Программное отключение функции

[doober]

Попробуйте так

Public Sub ааа()
Application.Calculation = xlCalculationManual
Dim sh As Excel.Worksheet
Dim Строка As Long, Столбец As Long
Application.ScreenUpdating = False
Строка = ActiveCell.Row
Столбец = ActiveCell.Column
For Each sh In Sheets(Array("Лист1", "Лист2", "Лист3"))
sh.Range(sh.Cells(Строка, Столбец), sh.Cells(Строка + 300, Столбец)).Delete Shift:=xlToLeft
Next
Application.ScreenUpdating = True
Application.Calculation=xlCalculationAutomatic
end Sub

[IgorGO]

предположение:
HasFormula проверяла ячейку С на предет наличия в ней формулы. после удаления С HasFormula должна вернуть #ССЫЛКА - ссылку не несуществующую ячейку.

[Светлана87]

[QUOTE=doober;873474]Попробуйте так

К сожалению, не помогает. Вот файлик. Столбцы должны удаляться при нажатии кнопки "Брак" на листе "1.2.4"
Если функция не выключена - удаляются только на первом листе, при выключенной - на всех.

[doober]

Сообщение от Hugo121

Замените название функции на другое - может и заработает всё.
Например:

Function HasMyRangeFormula(C As Range) As Boolean
HasMyRangeFormula = C.HasFormula
End Function

Чудес не бывает.Игорь попал в 10
Заменил вашу функцию HFormula на HasMyRangeFormula


и работает правильно

[Казанский]

Можно "выключить" функцию на время работы макроса. Несколько упростил код:

Dim f As Boolean 'переменная в модуле

Public Sub ааа()
Dim sh As Excel.Worksheet
Application.ScreenUpdating = False
f = True
For Each sh In Sheets(Array("1.2.4", "1.2.4.1", "1.2.4.1.1."))
    sh.Range(ActiveCell.Address).Resize(101).Delete Shift:=xlToLeft
Next
f = False
Application.ScreenUpdating = True

End Sub

Function HasFormula(C As Range) As Boolean
If f Then Exit Function
HasFormula = C.HasFormula

End Function

[doober]

Я становился в функцию,она не срабатывает.Здесь конфликт имен

[Hugo121]

Нет, в данном случае нужно "выключать".
Хотя имя заменить будет не лишним.

[Светлана87]

Код решил проблему! Огромное спасибо всем! Особенно Казанский