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

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

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

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

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

Вот сам код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
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()

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

Новые блоги и статьи Все статьи Все блоги /
Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .

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