NikoS NikoSПомогите
Пишу макрос для Екселя

Deb = WorksheetFunction.SumIf(Range(Cells(1, 2), Cells(1000, 2)), "=" & Npd, Range(Cells(1, 7), Cells(1000, 7)))
Kred = WorksheetFunction.SumIf(Range(Cells(1, 2), Cells(1000, 2)), "=" & Npd, Range(Cells(1, 8), Cells(1000, 8)))
If (d - Kred) <> 0 Or (k - Deb) <> 0 Then Metka "Неправильно"

в отладке
d = 12214,88
Kred = 12214,88
а (d - Kred) = -1,81898940354586E-12 тоесть условие не выполняется
(d <> Kred) тоже самое

Как вылечить подскажите, а то кончилась фантазия.

Пожалуйста помогите, надо быстро и вчера
Это называется точность вычислений и округление результата...
Определите необходимую Вам точность (например, 0.001) и проверяйте
(функция abs() = вычисление модуля числа, результат всегда положительный):
If abs(d - Kred) > 0.001 Or abs(k - Deb) > 0.001 Then Metka "Неправильно"