Указать на ошибку

[EducatedFool]

Перед строкой iSS = iSS + Cells(i + 13, 5) * val(Cells(i + 13, 4).Value)

добавьте строку Cells(i + 13, 5).Interior.ColorIndex = 3
После этого измените любую ячейку в 4 или 5 столбце.

При этом ячейки, для которых будут выполняться вычисления, окрасятся в красный цвет.

Сразу видно, что суммируются данные совсем не из того диапазона, из которого нужно...

После чего измените эти строки на
Cells(i , 5).Interior.ColorIndex = 3
iSS = iSS + Cells(i , 5) * Cells(i , 4)

Теперь выделение цветом подскажет, что вычисления производятся верно.


Кроме того, вместо использования кода

If Not Intersect(Target, [K34:K1569]) Is Nothing Then
                Dim iCell As Range
                For Each iCell In Intersect(Target, [K34:K1569])
                    Select Case Len(CStr(iCell.Value))
                        Case Is = 0    'Case 0
                            'Здесь можно отследить удаление
                        Case Is <> 8
                            Application.EnableEvents = False
                            Application.Undo
                            Application.EnableEvents = True
                            Exit For    'Exit Sub
                    End Select
                Next
            End If

по-моему, проще поставить условия на значение этих ячеек
(через меню Данные - Проверка)

А по поводу
iSS = iSS + Cells(i + 13, 5) * val(Cells(i + 13, 4).Value)
я правильно сделал?

Если в Cells(i + 13, 5) будет текст, снова получите ту же ошибку
(рано или поздно Ваш бухгалтер всё равно снова вместо числа занесёт в ячейку что-нибудь неподходящее)

Можете использовать подобный код в качестве обёртки для получения числового значения ячейки:

Function CV(ByVal ro As long, ByVal col As long)
    CV = val(Cells(ro, col).Value)
    ' здесь можно сделать обработку ошибок
End Function

А потом обращаться к значениям ячеек, например, так:

Sub test()
    ss = CV(5, 6)
    s2 = CV(i + 1, 22) * 5
End Sub

[valerij]

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

Кроме того, вместо использования кода

If Not Intersect(Target, [K34:K1569]) Is Nothing Then
                Dim iCell As Range
                For Each iCell In Intersect(Target, [K34:K1569])
                    Select Case Len(CStr(iCell.Value))
                        Case Is = 0    'Case 0
                            'Здесь можно отследить удаление
                        Case Is <> 8
                            Application.EnableEvents = False
                            Application.Undo
                            Application.EnableEvents = True
                            Exit For    'Exit Sub
                    End Select
                Next
            End If

по-моему, проще поставить условия на значение этих ячеек
(через меню Данные - Проверка)

При таком коде удаляется не верное значение(по длине, хотя и тут есть минус, еще не добрался до решений, например: 123456,8, сохраняется, а такого не должно быть), а через Данные - Проверка, только сигнализирует об ошибки и ее оставляет, мой бух., просто пропустит ее и дальше пойдет

Если в Cells(i + 13, 5) будет текст, снова получите ту же ошибку
(рано или поздно Ваш бухгалтер всё равно снова вместо числа занесёт в ячейку что-нибудь неподходящее)

Ну тут не страшно, в этот столбец модуль вставляет данные и редактирование запрещено.

С остальным, разбираюсь!

[EducatedFool]

а через Данные - Проверка, только сигнализирует об ошибки и ее оставляет

Насколько я знаю, неверное значение в ячейку никак не ввести, если на вкладке Сообщение об ошибке выбрать вид действия Останов

еще не добрался до решений, например: 123456,8, сохраняется, а такого не должно быть

If Not Cells(1, 1).Value Like String(8, "#") Then Cells(1, 1).Value = ""

Результатом выражения Cells(1, 1).Value Like String(8, "#") будет True, если все 8 символов ячейки Cells(1, 1) являются цифрами.

Код If Not Cells(1, 1).Value Like String(8, "#") Then Cells(1, 1).Value = "" будет удалять содержимое ячейки Cells(1, 1), если в неё введено что-либо кроме 8-значного числа

При таком коде удаляется не верное значение(по длине, хотя и тут есть минус, еще не добрался до решений, например: 123456,8, сохраняется, а такого не должно быть), а через Данные - Проверка, только сигнализирует об ошибки и ее оставляет, мой бух., просто пропустит ее и дальше пойдет

Самый простой способ:
Данные - Проверка
Тип данных - целое число, Значение - между, Минимум - 10000000, Максимум - 99999999
Сообщение об ошибке - Действие - Останов

Пусть потом Ваш так называемый "бух." попытается вбить в ячейку что-нибудь кроме 8-значного числа...

[valerij]

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

Самый простой способ:
Данные - Проверка
Тип данных - целое число, Значение - между, Минимум - 10000000, Максимум - 99999999
Сообщение об ошибке - Действие - Останов

Пусть потом Ваш так называемый "бух." попытается вбить в ячейку что-нибудь кроме 8-значного числа...

Да, отлично, только очень много ручной работы 13 Листов по 31 дню.

If Not Cells(1, 1).Value Like String(8, "#") Then Cells(1, 1).Value = ""

Результатом выражения Cells(1, 1).Value Like String(8, "#") будет True, если все 8 символов ячейки Cells(1, 1) являются цифрами.

Код If Not Cells(1, 1).Value Like String(8, "#") Then Cells(1, 1).Value = "" будет удалять содержимое ячейки Cells(1, 1), если в неё введено что-либо кроме 8-значного числа

А это интересно, только я не знаю как это вставить в мой код?
Вводится № в яч. К34:К39 и далее с шагом 51(К85:К90,....)

[EducatedFool]

Да, отлично, только очень много ручной работы 13 Листов по 31 дню.

Странно это слышать от человека, использующего VBA...

Вводится № в яч. К34:К39 и далее с шагом 51(К85:К90,....)

Sub Макрос2()
    'Вводится № в яч. К34:К39 и далее с шагом 51(К85:К90,....)
    Dim ra As Range:    Set ra = [k34:k39]
    For i = 0 To 30    ' ну или сколько там надо
        With ra.Offset(51 * i).Validation
            .Delete
            .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
                 Operator:=xlBetween, Formula1:="10000000", Formula2:="99999999"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "Заголовок подсказки"
            .ErrorTitle = "Заголовок сообщения об ошибке"
            .InputMessage = "Содержание подсказки"
            .ErrorMessage = "Текст сообщения об ошибке"
            .ShowInput = True
            .ShowError = True
        End With
    Next
End Sub

[valerij]

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

Странно это слышать от человека, использующего VBA...

EducatedFool, да я в VBA еще "зелень", но прорастающея, благодаря таким людям!!!!!