Top.Mail.Ru
Ответы
Аватар пользователя
kirill_pk
11лет
Изменено
Аватар пользователяПрограммирование

Excel vba чтобы после вставки осталась выделена прежняя ячейка ERROR "424" object required

a = ActiveCell
ActiveSheet.Range("A6").PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
a.Range("A1").Select 'ERROR "424" object required

По дате
По рейтингу
Аватар пользователя
makfromkz
Новичок
11лет

a.Range("A1").Select - вот эта строчка очень мутная))) )
обычно пишут:
Sheets(1).Range("A1").Select
или
ActiveSheet.Range("A1").Select
и подобное

и 'ERROR "424" object required - переводится что требуется объект со свойством range - им может быть лист рабочей книги, типо:
a = ActiveSheet

Аватар пользователя
aleks_29820
Гуру
11лет

поправь децл:
a = ActiveCell.Address
ActiveSheet.Range("A6").PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range(a).Select