Добрый день всем !
Написал макрос для проверки данных на числовые значения в таблице.
Но вот незадача - макрос выводит MsgBox при удалении строки в диапазоне проверки и некорректно удаляет строку.
Что надо поправить в макросе чтоб такого не было ?
Написал макрос для проверки данных на числовые значения в таблице.
Но вот незадача - макрос выводит MsgBox при удалении строки в диапазоне проверки и некорректно удаляет строку.
Что надо поправить в макросе чтоб такого не было ?
Код |
---|
If Not Intersect(Target, [AF4:AF5003, AH4:AH5003, AI4:AI5003, AJ4:AJ5003, AK4:AK5003, AL4:AL5003, AN4:AN5003, AO4:AO5003, AP4:AP5003, AR4:AR5003, AT4:AT5003, AU4:AU5003, AV4:AV5003, AX4:AX5003, AY4:AY5003, AZ4:AZ5003]) Is Nothing Then If Not IsNumeric(Target) Then MsgBox "Нельзя вводить значения - только цифры!", 48, " Ошибка!" Target = "" End If End If |