Стал тормозить макрос

[nilem]

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("D4:D500,E4:E500")) Is Nothing Then Exit Sub
With Application
        .ScreenUpdating = False: .Calculation = xlCalculationManual: .EnableEvents = False
End With

If Target.Column = 4 Then
    If Cells(Target.Row, 4).Value <> Cells(Target.Row, 1).Value Then MsgBox "Вы ввели неверный номер Покупателя", vbCritical, "Ошибка": GoTo Metka
    If Cells(Target.Row, 4).Value = Cells(Target.Row, 1).Value Then
        .....
    End If
Else
    ......
End If
Metka:
With Application
        .ScreenUpdating = True: .Calculation = xlCalculationAutomatic: .EnableEvents = True
End With
End Sub

[strannick]

В продолжение темы. Ситуацию с обработкой листа я вроде уладил. Но начинал-то я эту тему из-за того, что при ручном вводе информации на лист образуется сильный тормоз. В результате пошагового создания файла с нуля выяснилось, что тормоз образуется после подключения на другом листе формул ВПР2, ссылки в которых идут на этот лист. Код формулы

Function VLOOKUP2(Table As Range, SearchColumnNum As Integer, SearchValue As Variant, _
                n As Integer, ResultColumnNum As Integer)
    Dim i As Long, iCount As Long
    Dim avArr
    avArr = Table.Value
    For i = 1 To UBound(avArr, 1)
        If avArr(i, SearchColumnNum) = SearchValue Then
            iCount = iCount + 1
        End If
        If iCount = n Then
            VLOOKUP2 = avArr(i, ResultColumnNum)
            Exit For
        End If
    Next i
End Function

был взят http://programmersforum.ru/showthrea...ght=%C2%CF%D02. Не в первый раз сталкиваюсь с такой проблемой как оказывается. Причем, проблема тормоза ВПР2 возникает не понятно почему (для меня по крайней мере), но и пропадает тоже не могу ни с чем связать. Пытался уйти от использования этой функции, но альтернативы пока не нашел. Кстати, конструкция, предложенная как альтернатива в той теме http://programmersforum.ru/member.php?u=52800

=ИНДЕКС(Table;НАИМЕНЬШИЙ(ЕСЛИ(Ссылка_на_диапазон_для_поиска_значения=SearchValue;СТРОКА(Ссылка_на_диапазон_для_поиска_значения));n);ResultColumnNum)

не сработала почему-то (столбец F на листе Электронный счет). Посмотрите, пожалуйста, может что посоветуете.
Еще раз Спасибо!