Сам по себе макрос (в прилагаемом файле) работает, но если я пробую запустить его как WorkSheet Event при нажатии клавиши ENTER ("~"), то он не выполняется либо выдает ошибку:
"Run-time error 1004:
Method OnKey failed"
Удалось избежать ошибки следующим образом: код [vba]
Код
If [d5] <> "" Then
[/vba] поменял на If [d5] <> Empty Then Но макрос не выполняется Что не так в коде подсакжите пож.?
Сам по себе макрос (в прилагаемом файле) работает, но если я пробую запустить его как WorkSheet Event при нажатии клавиши ENTER ("~"), то он не выполняется либо выдает ошибку:
"Run-time error 1004:
Method OnKey failed"
Удалось избежать ошибки следующим образом: код [vba]
Код
If [d5] <> "" Then
[/vba] поменял на If [d5] <> Empty Then Но макрос не выполняется Что не так в коде подсакжите пож.?bygaga
Да я там у Вас много чего в макросах поменял. И в модуле листа, и в общем модуле. Откройте два файла (старый и новый) и сравните макросы. Самое главное, что ОнКей тут вообще не нужен - Вы использовали событие SelectionChange, а нужно было просто Change.
Да я там у Вас много чего в макросах поменял. И в модуле листа, и в общем модуле. Откройте два файла (старый и новый) и сравните макросы. Самое главное, что ОнКей тут вообще не нужен - Вы использовали событие SelectionChange, а нужно было просто Change._Boroda_