Ошибка: метод PasteSpecial из класса Range завершен неверно

@Вито · Регистрация: 09.05.2010

Author24 — интернет-сервис помощи студентам

Вот такой код:

Visual Basic

Set c = c.Offset(1, 0).CurrentRegion
    c.Cut 
    Worksheets('Лист1').Activate
    a = Application.WorksheetFunction.CountA(Columns(1))
    Cells(a + 1, 1).Select
    ActiveCell.PasteSpecial Paste:=xlPasteAll

Пишет метод PasteSpecial из класса Range завершен неверно.

В чем ошибка?

@vlth · 24.05.2010, 16:46

Вроде всё верно.

Попробуй проверить по шагам:
1. Set c = c.Offset(1, 0).CurrentRegion: c.Select
(Проверить выделение)

2. Вручную скопировать и вставить данные листе.

@Вито · 24.05.2010, 17:40 **[ТС]**

когда c.copy
все идет, а c.cut нет.

@Вито · 24.05.2010, 17:40 **[ТС]**

когда c.copy
все идет, а c.cut нет.

@SlavaRus · 24.05.2010, 18:21

Попробуй последнюю строку заменить на ActiveSheet.Paste

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	24.05.2010, 16:46	2
	Вроде всё верно. Попробуй проверить по шагам: 1. Set c = c.Offset(1, 0).CurrentRegion: c.Select (Проверить выделение) 2. Вручную скопировать и вставить данные листе. 0

@Вито 0 / 0 / 0 Регистрация: 09.05.2010 Сообщений: 9
	24.05.2010, 17:40 [ТС]	3
	когда c.copy все идет, а c.cut нет. 0

@SlavaRus 1123 / 234 / 37 Регистрация: 15.03.2010 Сообщений: 720
	24.05.2010, 18:21	5
	Попробуй последнюю строку заменить на ActiveSheet.Paste 0