Сложная задача, наверно нужен макрос..

[pivas]

Сделайте поправки:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("Z27:AB36,W40:Y48,Z53:AB62,W124:Y160,W164:Y172,W175:Y179")) Is Nothing Then
            Target.NumberFormat = "#,##0.00$"
            Target = Application.WorksheetFunction.RoundUp(Target, 0)
    End If
End Sub

[Quatro_Drive]

Товарищ Пивас!! С меня пивас) С благодарностью принял помощь от Вас и остальных участников процесса!! Успехов и процветания!!

[Quatro_Drive]

Друзья, неожиданно для меня возникла вторая проблема, вытекла из первой.. Необходимо было сотворить подобную задачу в другом документе, сделал такой же макрос (ячейки поменял так как надо), работает, НО!! Документ после первого редактирования жестко виснет (макрос срабатывает, значения округляет), и секунд через 30-40 отвисает. После ввода второго (и последующих значений) происходит такая же беда.... Попробовал открыть книгу в которой все отлично работает, скопировал туда лист который надо переделать, первый удалил.. И все равно такая же беда.. В чем может быть проблема?

[SAS888]

Без примера файла или кода, сложно сказать однозначно. Попробуйте самой первой строкой кода вставить

Application.EnableEvents = False

Естественно, при этом, самой последней

Application.EnableEvents = True

Если не поможет - приведите проблемный код (лучше файл).

[Quatro_Drive]

Всем привет, сори не отвечал, не было возможности..
К сожалению предыдущий совет не помог, вываливалась ошибка и кидало в VBA, поэтому проблемный файл в студию..