Может кто-нибудь помочь мне с этим кодом?
Sub TEST()
Dim Val As Variant
Sheets("Sheet 3").Select
Val = Range("A2").Value
Sheets("Sheet 1").Select
Range("AY" & Val).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet 3").Select
Application.CutCopyMode = False
End Sub
Мне нужно перенести простой номер из Интернета, чтобы преуспеть. Мне нужно скопировать номер из Интернета в буфер обмена, затем go, чтобы преуспеть и запустить Macro. Этот макрос должен go для «листа 3» установить «Val» на основе значения A2, go для листа 1, выбрать диапазон в AY и «Val» и вставить в эту ячейку данные (число) из буфера обмена.
Но когда макрос достигает строки 7 (Selection.PasteSpecial), я получаю сообщение об ошибке:
Ошибка времени выполнения '1004': сбой метода PasteSpecial класса Range
Где у меня ошибка пожалуйста :)