Ошибка "Member already exists in an object module"

@progerr · Регистрация: 20.12.2012

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

Всем доброго времени суток!

Вообщем, я ещё начинающий и нашол код для копирования ячеек с одной страницы на другую, вот только при использовании он выдает вот такую ошибку - "Member already exists in an object module from which this object modul"

Вот сам код:

Visual Basic

Sub paste()
x = 1
Do While Cell(x, 1) <> ""
If Cells(x, 1) = "a" Then
Worksheets("Sheet2").Rows(x).copy
Worksheets("Sheet1").Activate
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.paste Destination:=Worksheets("Sheet1").Rows(erow)
End If
Worksheets("Sheet2").Activate
x = x + 1
Loop
End Sub

Подскажите пожалуйста в чём проблема!?)

Скрипт · 01.02.2013, 19:23

Сообщение от Hugo121

Сам не проверял, не тестил - т.к. практического смысла не вижу.

если копирование работает быстрее, чем передача данных, то в этом есть практический смысл.

@Hugo121 · 01.02.2013, 19:25

Смысл будет, если практически будут такие файлы.
Я таких не видел.

@Ципихович Эндрю · 14.11.2018, 23:21

Сообщение от Скрипт

progerr, в строках 1 и 4 используется paste.
Нужно давать имена процедурам такие, каких не может быть зарезервировано. Я, например, добавляю частицу "my" в имена переменных, чтобы имя переменной не совпало с зарезервированным словом.

обалдеть и что теперь с зарезервированным Sub AutoOpen() делать?-на нём у меня ошибка выскакивает

SoftIce · 14.11.2018, 23:38

Сообщение от Ципихович Эндрю

Sub AutoOpen()

Их два у тебя что ли ?

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	01.02.2013, 19:25	22
	Смысл будет, если практически будут такие файлы. Я таких не видел. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	01.02.2013, 19:23	21
	Сообщение от Hugo121 Сам не проверял, не тестил - т.к. практического смысла не вижу. если копирование работает быстрее, чем передача данных, то в этом есть практический смысл. 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	14.11.2018, 23:21	23
	Сообщение от Скрипт progerr, в строках 1 и 4 используется paste. Нужно давать имена процедурам такие, каких не может быть зарезервировано. Я, например, добавляю частицу "my" в имена переменных, чтобы имя переменной не совпало с зарезервированным словом. обалдеть и что теперь с зарезервированным Sub AutoOpen() делать?-на нём у меня ошибка выскакивает 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	14.11.2018, 23:38	24
	Сообщение от Ципихович Эндрю Sub AutoOpen() Их два у тебя что ли ? 0