Runtime error 1004 excel как исправить ошибку

Ребята, всем привет! 👋

Продолжаем изучать VBA. Ошибки при написании кода – неизбежный аспект изучения VBA, знание причин возникновения ошибки поможет вам избежать ошибок при написании кода в будущем.

Сегодня в уроке объясняется ошибка VBA 1004 – ошибка, определяемая приложением или объектом.

Ошибка 1004 во время выполнения VBA известна как ошибка, определяемая приложением или объектом, которая возникает во время выполнения кода.

В уроке рассмотрим следующие примеры:

• Ошибка 1004 VBA – объект не существует
• Ошибка 1004 VBA – имя уже занято
• Ошибка 1004 VBA – неправильная ссылка на объект
• Ошибка 1004 VBA – объект не найден

✨ А прежде, чем мы начнем 📣 напомню, теперь у нас на канале есть удобный рубрикатор 👉 Быстрый поиск решения. Путеводитель по Excel, а все видео 📽 предыдущих уроков доступны и на YouTube.

☑️ Ошибка 1004 VBA – объект не существует

🔔 Если мы ссылаемся на объект в нашем коде, такой как имя диапазона, которое не было определено, то эта ошибка может возникнуть, поскольку код VBA не сможет найти имя.

🔘 Пример кода:

Приведенный выше пример скопирует значения из именованного диапазона “copyFrom” в именованный диапазон “CopyTo” – при условии, конечно, что это существующие именованные диапазоны! Если они не существуют, то отобразится ошибка 1004:

✔️ Решение: Самый простой способ избежать этой ошибки в приведенном выше примере – создать имена диапазонов в книге Excel или обратиться к диапазону в традиционном формате строк и столбцов, например: Диапазон (“A1: A10”):

🔘 Пример кода:

☑️ Ошибка 1004 VBA – имя уже занято

🔔 Эта ошибка может возникнуть, если вы пытаетесь переименовать объект в объект, который уже существует .

Например, если мы пытаемся переименовать Sheet1, но имя, которое вы даете листу, уже является именем другого листа:

Если у нас уже есть Sheet2, то возникнет ошибка:

☑️ Ошибка 1004 VBA – неправильная ссылка на объект

🔔 Эта ошибка может возникнуть, когда вы неправильно ссылаетесь на объект в своем коде.

🔘 Пример кода:

Это снова выдаст нам ошибку 10004

✔️ Решение: Исправьте код, и ошибка больше не будет отображаться.

☑️ Ошибка 1004 VBA – объект не найден

🔔 Эта ошибка также может возникать, когда мы пытаемся открыть книгу, а книга не найдена – в данном случае книга является объектом, который не найден.

🔘 Пример кода:

Хотя сообщение в окне ошибки будет другим, ошибка по-прежнему равна 1004:

А на этом сегодня все. 👏 Продолжение следует…

Подписывайтесь на канал, чтобы не пропустить новые уроки и полезные фишки Excel. Следите за нашими новостями и вы узнаете больше о VBA и Excel в частности.

📝 Нам очень важна Ваша обратная связь. Отзыв по уроку и любые вопросы пишите в комментариях.

💝 А если у Вас пока нет вопросов, но вы дочитали данную статью до конца оставьте в комментариях просто смайлик 😉 (автору будет приятно)

И конечно же, за лайк 👍  и репост 🔁 данного поста благодарочка 💖 и респект 🤝 каждому!

Four ways to fix runtime error 1004 in Excel:

Microsoft Visual Basic for Applications (VBA) is developed to help users write programs for the Windows operating system. It runs as an internal programming language in Microsoft Office, such as Word, Excel, and PowerPoint.

Some users have reported that when running VBA in an Excel chart or trying to generate a Macro in Excel documents, an error message popped up saying: Runtime error 1004. And then they find themselves cannot access the Excel files. If you have the same encounter as these users, this post is the right place for you. You can find both the reasons and the corresponding solutions of this error code on this page.

Runtime Error Details

The error message contains more information than the error code 1004. Generally, follow the error code, you can see a brief description. The most repeated error messages are listed below:

1. Runtime error 1004: Application or object-defined error.
2. Runtime error 1004: Method Ranger of Object Worksheet failed.
3. Runtime error 1004: Copy Method of Worksheet Class failed.

The Reason Why You See Runtime Error 1004 in Excel

If you want to know how to fix runtime error 1004 in Excel properly, you need to understand what leads to this issue. The following are the most prominent reasons.

• Macro Name Error

The Macro you are running is copying the original worksheet to a workbook with a defined name that you did not save and close before running the Macro.

• File Conflict

When opening the VBA Excel file, it gets conflicted with other programs.

• Too Many Legend Entries

The Excel chart contains more legend entries than space available to display the legend entries on the chart.

• Excel File Corruption

Your .xls files got corrupted, infected, or damaged.

Although many reasons would cause this Excel error 1004 problem, luckily, some valid methods can help users re-access the files. Let’s check them one by one.

Fix 1. Delete the GWXL97.XLA Files to Fix Runtime Error 1004 in Excel

The easiest method to fix the Excel error 1004 is to find and delete the error file.

Step 1. Go to C:Program FilesMS OfficeOfficeXLSTART.

Step 2. Find GWXL97.XLA file and delete it.

Step 3. Reopen your Excel file and check if the problem is solved.

Fix 2. Check the Trust Access to the VBA Project Object Model

Another solution you can try is to enable a VBA project trust option in Excel Trust Center. Follow the detailed steps and have a try.

Step 1. Open a blank Excel file and click “Files” on the upper left.

Step 2. Click Option and go to Trust Center.

Step 3. Find and enter the Trust Center Settings.

Step 4. Under Macro Settings, tick the option of “Trust access to the VBA project object model.”

Now you can check your Excel file.

Fix 3. Create Another Excel Template to Fix Runtime Error 1004 in Excel

This method could be a little bit complicated, but it’s useful and worth trying.

Step 1. Please start a new Excel workbook and make sure there is only one worksheet in it.

Step 2. Format the workbook first and then put the data you need onto it.

Step 3. Tap File > Save As, first enter the file name, and click the unfold arrow in Save as Type column.

Excel 2003: Choose Excel 97-2003 Template.

Excel 2007 or Later: Choose Excel Template.

Step 4. Click “Save” to confirm.

Now you can insert it programmatically by using the following code: Add Type:=pathfilename. The file name is the one you set when you create the new Excel template.

Fix 4. Repair Corrupted Excel Files Due to Error 1004 

If all the above solutions can’t help you out, then there is one possibility that the Excel file you want to open is damaged. To fix a damaged Excel file, you can rely on file repair software. EaseUS Data Recovery Wizard is a great choice.

With this tool, click the “Repair” button and wait for it to fix all the corrupted documents for you.

• Repair various corrupted files, including repairing Word, Excel, and PDF document 
• Fix unreadable contents in Word efficiently
• Repair corrupted PDF files, extract the text, comments, labels, graphics, etc. 
• Compatible with Microsoft Office 2019, 2016, 2013, 2010, & previous versions.

Download the software and follow the detailed steps below to fix corrupted Excel files.

Step 1. Launch EaseUS Data Recovery Wizard, and then scan disk with corrupted documents. This software enables you to fix damaged Word, Excel, PPT, and PDF files in same steps. 

Step 2. EaseUS data recovery and repair tool will scan for all lost and corrupted files. You can find the target files by file type or type the file name in the search box. 

Step 3. EaseUS Data Recovery Wizard can repair your damaged documents automatically. After file preview, you can click “Recover” to save the repaired Word, Excel, and PDF document files to a safe location.

The Bottom Line

After reading, you must have a thorough understanding of how to fix Runtime error 1004. If you can make sure that the Excel file you want to open is valid, then the first three methods would help you out.

Once you got a damaged Excel file, a professional file recovery tool is a wiser choice. EaseUS file repair software is highly recommended by many users & IT professionals to help you repair Word, Excel, PowerPoint, and PDF files. 

Ошибка выполнения Excel 1004 обычно возникает, когда вы работаете с поврежденным документом. Вы также получаете эту ошибку, если открываете файл VBA Excel, когда ваш Excel конфликтует с другими программами.

Ошибка выполнения Excel 1004 может появиться из-за множества других основных проблем. Наиболее распространенные сообщения об ошибках включают следующее:

VB: ошибка времени выполнения «1004»: ошибка, определяемая приложением или объектом

Ошибка выполнения Excel VBA 1004 «Не удалось выбрать метод класса Range»

ошибка выполнения 1004 диапазон методов объекта _global не удалось Visual Basic

Макрос Excel «Ошибка выполнения ‘1004″

Ошибка выполнения 1004. Не удалось открыть книгу объектов.

Ошибка времени выполнения «1004»: сбой метода «Рейнджер» рабочего листа объекта

Сохранить как ошибка времени выполнения VBA 1004: ошибка, определяемая приложением или объектом

Если вы получите какую-либо из этих ошибок, вы можете исправить ошибку, используя решения здесь.

Что такое ошибка времени выполнения 1004 в Excel?

Ошибка времени выполнения характерна для приложений, которые интегрируют сценарий Microsoft Visual Basic для приложений (также известный как VBA) для выполнения повторяющихся задач.

Все приложения Microsoft Office используют это специфичное для Windows программирование, но наиболее распространенные проблемы возникают в Excel, особенно в Excel 2007.

Многие пользователи сообщают о проблемах при создании макросов. Макрос — это функция Excel, которая записывает нажатия клавиш и клики, чтобы помочь вам автоматизировать повторяющиеся задачи.

Часто эта задача конфликтует с VBA, что приводит к ошибке 1004. Другой распространенной причиной является поврежденное приложение Excel или поврежденный файл XLS.

Другие возможные причины, связанные с этой ошибкой, включают количество записей легенды, превышающее доступное пространство, и конфликт файлов между Excel и другими приложениями.

Хорошей новостью является то, что эта ошибка существует уже некоторое время, и есть несколько проверенных методов, которые помогут вам ее исправить.

Как исправить ошибку выполнения 1004 в Excel?

1. Удалите Microsoft Works

• Нажмите комбинацию CTRL + ALT + DEL и нажмите  «Диспетчер задач».
• Закройте все программы, которые открыты в данный момент.
• Затем нажмите Windows + R, чтобы открыть утилиту «Выполнить».
• Здесь введите  appwiz.cpl и нажмите  кнопку ОК.

• В списке программ, установленных на вашем компьютере, найдите  Microsoft Works. Щелкните его правой кнопкой мыши и нажмите «  Удалить».

2. Создайте еще один шаблон Excel

• Запустите Microsoft Excel на своем компьютере.
• Затем создайте новую книгу Microsoft Excel, нажав комбинацию CTRL + N или выбрав Пустая книга на первом экране.

• После создания рабочей книги удалите все листы в рабочей книге, кроме одного.
• Отформатируйте эту книгу, которую вы сохранили.
  • Вы можете изменить эту книгу в соответствии с вашими потребностями.
• Наконец, выберите «Файл» > «Сохранить как», чтобы сохранить файл в формате  шаблона Excel (.xltx или. xlt).
  • Используйте этот формат для Excel в 2017 году и выше.
• Когда документ успешно сохранен, вы можете вставить шаблон с помощью этого кода:

  Add Type:=pathfilename

  Не забудьте заменить имя файла на фактическое имя документа.

3. Удалите GWXL97.XLA.

• Начните с открытия  проводника на вашем компьютере.
  • Вы можете сделать это, нажав  Windows +  E.
• Затем щелкните адресную строку, введите следующий путь
  C:/Users/user name/AppData/Local/Microsoft Excel
  и нажмите  Enter:

• Здесь откройте  папку XLStart.
• Наконец, найдите файл GWXL97.XLA и удалите его.

Зная, что существует множество причин ошибки времени выполнения 1004 в Excel, может сработать только одно решение. С помощью этого руководства теперь вы можете исправить ошибку времени выполнения Microsoft Excel 1004 и восстановить данные файла.

---

---

Как исправить ошибку во время выполнения 1004 в Excel —

Ошибка выполнения 1004 — это код ошибки, относящийся к Microsoft Visual Basic, который, как известно, влиял на пользователей Microsoft Excel. Как известно, эта ошибка наиболее распространена в Excel 2003 и Excel 2007, хотя ни одна из версий популярного приложения Microsoft для работы с электронными таблицами не защищена от угрозы «Ошибка времени выполнения 1004. В большинстве случаев пользователи, затронутые этой проблемой, видят одно из два различных варианта ошибки времени выполнения 1004. В целом два варианта ошибки времени выполнения 1004 имеют вид:

«Ошибка во время выполнения 4 1004 ’:
Не удалось скопировать метод класса листа»

«Ошибка во время выполнения 4 1004 ’:
Ошибка приложения или объекта»

Точное сообщение об ошибке, которое вы видите, может также немного отличаться, в некоторых случаях, хотя код ошибки останется прежним. Однако независимо от того, с какой версией проблемы вы столкнулись, она почти всегда возникает при запуске макроса в Excel, который предназначен для копирования рабочих листов и последующего размещения копий в той же рабочей книге, что и исходная рабочая таблица.

В отличие от наихудших технических проблем, причина ошибки 1004 во время выполнения в Microsoft Excel известна. Ошибка 1004 времени выполнения возникает, когда выполняемый макрос копирует исходную рабочую таблицу в рабочую книгу с определенным именем, которое вы не сохранили и не закрыли до запуска макроса. Пример такого макроса можно увидеть в следующем коде:

Поскольку причина ошибки 1004 времени выполнения в контексте Microsoft Excel известна, также как и ее разрешение. В дополнение к решению этой проблемы пользователям, затронутым ею, также доступен обходной путь, который можно использовать в случае, если решение не работает или они не находят решение приемлемым вариантом.

Решение:

Решение этой конкретной проблемы состоит в том, чтобы просто отредактировать код макроса, который вы запускаете, чтобы он периодически сохранял и закрывал целевую рабочую книгу, пока она копирует рабочие листы. Код для макроса, который делает это, будет выглядеть примерно так:

Замечания: Точное количество раз, которое вы можете скопировать лист, прежде чем вам нужно будет сохранить и закрыть книгу, в которой сохраняются копии, варьируется от одного случая к другому, поскольку это зависит от размера листа, из которого вы делаете копии.

Обходной путь:

Как указывалось ранее, решение этой конкретной проблемы также существует. Чтобы обойти эту проблему, достаточно просто вставить новый лист из шаблона вместо создания копии существующего листа. Если вы хотите обойти эту проблему, вот что вам нужно сделать:

1. запуск превосходить.
2. Создать новую рабочую книгу и удалять каждый отдельный лист содержит только один.
3. Формат Рабочая тетрадь.
4. Добавьте любой текст, данные и / или диаграммы, которые вы хотите иметь в шаблоне по умолчанию, на единственный лист, который теперь содержит книга.
5. Если вы используете Excel 2003 или более раннюю версию, нажмите на файл >Сохранить как. Если вы используете Excel 2007 или более поздней версии, с другой стороны, нажмите на Microsoft Office кнопку, а затем нажмите на Сохранить как.
6. в Имя файла: В поле введите любой желаемый шаблон.
7. Откройте раскрывающееся меню рядом с Сохранить как тип: поле и нажмите на превосходитьШаблон (.xlt) если вы используете Excel 2003 или более раннюю версию, или превосходитьШаблон (.xltx) если вы используете Excel 2007 или более поздней версии, чтобы выбрать его.
8. Нажмите на Сохранить.
9. После того, как вы успешно создали шаблон, вы можете вставить его программно, используя следующую строку кода:
   Sheets.Add Type: =дорожкаимя файла

Замечания: В строке кода, описанной выше, путь имя_файла Необходимо заменить полным путем (включая полное имя файла) для местоположения шаблона листа, который вы только что создали.

Источник

Как исправить ошибку Microsoft Excel 1004

	Номер ошибки:	Ошибка 1004
Название ошибки:	Application-defined or object-defined error
Описание ошибки:	Run-time error ‘1004’. Application-defined or object-defined error.
Разработчик:	Microsoft Corporation
Программное обеспечение:	Microsoft Excel
Относится к:	Windows XP, Vista, 7, 8, 10, 11

Проверка «Application-defined or object-defined error»

Обычно люди ссылаются на «Application-defined or object-defined error» как на ошибку времени выполнения (ошибку). Чтобы убедиться, что функциональность и операции работают в пригодном для использования состоянии, разработчики программного обеспечения, такие как Microsoft Corporation, выполняют отладку перед выпусками программного обеспечения. Ошибки, такие как ошибка 1004, иногда удаляются из отчетов, оставляя проблему остается нерешенной в программном обеспечении.

Пользователи Microsoft Excel могут столкнуться с ошибкой 1004, вызванной нормальным использованием приложения, которое также может читать как «Run-time error ‘1004’. Application-defined or object-defined error.». Сообщение об этой ошибке 1004 позволит разработчикам обновить свое приложение и исправить любые ошибки, которые могут вызвать его. Затем Microsoft Corporation исправит ошибки и подготовит файл обновления для загрузки. Следовательно, разработчик будет использовать пакет обновления Microsoft Excel для устранения ошибки 1004 и любых других сообщений об ошибках.

Что генерирует ошибку времени выполнения 1004?

В первый раз, когда вы можете столкнуться с ошибкой среды выполнения Microsoft Excel обычно с «Application-defined or object-defined error» при запуске программы. Вот три наиболее заметные причины ошибки ошибки 1004 во время выполнения происходят:

Ошибка 1004 Crash — это распространенная ошибка 1004 во время выполнения ошибки, которая приводит к полному завершению работы программы. Эти ошибки обычно возникают, когда входы Microsoft Excel не могут быть правильно обработаны, или они смущены тем, что должно быть выведено.

Утечка памяти «Application-defined or object-defined error» — Когда Microsoft Excel обнаруживает утечку памяти, операционная система постепенно работает медленно, поскольку она истощает системные ресурсы. Возможные искры включают сбой освобождения, который произошел в программе, отличной от C ++, когда поврежденный код сборки неправильно выполняет бесконечный цикл.

Ошибка 1004 Logic Error — логическая ошибка Microsoft Excel возникает, когда она производит неправильный вывод, несмотря на то, что пользователь предоставляет правильный ввод. Когда точность исходного кода Microsoft Corporation низкая, он обычно становится источником ошибок.

Как правило, такие Microsoft Corporation ошибки возникают из-за повреждённых или отсутствующих файлов Application-defined or object-defined error, а иногда — в результате заражения вредоносным ПО в настоящем или прошлом, что оказало влияние на Microsoft Excel. Основной способ решить эти проблемы вручную — заменить файл Microsoft Corporation новой копией. Запуск сканирования реестра после замены файла, из-за которого возникает проблема, позволит очистить все недействительные файлы Application-defined or object-defined error, расширения файлов или другие ссылки на файлы, которые могли быть повреждены в результате заражения вредоносным ПО.

Распространенные проблемы Application-defined or object-defined error

Наиболее распространенные ошибки Application-defined or object-defined error, которые могут возникнуть на компьютере под управлением Windows, перечислены ниже:

• «Ошибка Application-defined or object-defined error. «
• «Недопустимая программа Win32: Application-defined or object-defined error»
• «Извините за неудобства — Application-defined or object-defined error имеет проблему. «
• «К сожалению, мы не можем найти Application-defined or object-defined error. «
• «Application-defined or object-defined error не может быть найден. «
• «Ошибка запуска программы: Application-defined or object-defined error.»
• «Application-defined or object-defined error не выполняется. «
• «Application-defined or object-defined error остановлен. «
• «Неверный путь к программе: Application-defined or object-defined error. «

Эти сообщения об ошибках Microsoft Corporation могут появляться во время установки программы, в то время как программа, связанная с Application-defined or object-defined error (например, Microsoft Excel) работает, во время запуска или завершения работы Windows, или даже во время установки операционной системы Windows. Документирование проблем Application-defined or object-defined error в Microsoft Excel является ключевым для определения причины проблем с электронной Windows и сообщения о них в Microsoft Corporation.

Причины проблем Application-defined or object-defined error

Проблемы Application-defined or object-defined error вызваны поврежденным или отсутствующим Application-defined or object-defined error, недопустимыми ключами реестра, связанными с Microsoft Excel, или вредоносным ПО.

В частности, проблемы Application-defined or object-defined error возникают через:

• Недопустимая или поврежденная запись Application-defined or object-defined error.
• Вредоносные программы заразили Application-defined or object-defined error, создавая повреждение.
• Application-defined or object-defined error злонамеренно или ошибочно удален другим программным обеспечением (кроме Microsoft Excel).
• Другая программа находится в конфликте с Microsoft Excel и его общими файлами ссылок.
• Поврежденная загрузка или неполная установка программного обеспечения Microsoft Excel.

Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11

Источник

Ошибка 1004 в excel

Формулы в Excel приводят к ошибке «Run-time error »1004»»

​Смотрите также​​ в каких-то случаях,​ значение «free» если​ ячеек With Sheets(SheetName).Range(«A1»)​ строки по этим​
​ For​ наизусть выучить. Их​ кроме кнопки и​ людей просто игнорируют.​ lr As Long​ 424 — Object​ правильном направлении!​: Большое спасибо. Оба​Sheets(«Задолженность»).Cells(9, 7).Value =​Application.ScreenUpdating = False​ макросах я профан,​ End With End​Nastinya​
​ то да, нужно​ нету то iserr​
​ .PasteSpecial Paste:=xlPasteFormulas ‘шапка​ листам.​Next i​ не так много.​
​ код к этой​ Это не связано​ Application.ScreenUpdating = False​ required. в строке​

​korsar75​​ метода работают. Если​ Sheets(«Договор, акт»).Cells(18, 11).Value​Dim wsSh As​ поэтому объясните что​ Sub​: Добрый день. никак​ обрабатывать ошибку. Но​ — вернет true.​ содержит формулы, которые​Макрос запускается по​Range(«count»).Value = 0​ Без файла с​ кнопки пока выглядит​ с ленью или​ Set shSource =​ If Not Intersect(cell,​: Большое спасибо. Будем​

​ не сложно, то​​Sheets(«Задолженность»).Cells(9, 8).Value =​ Worksheet​

​ дает данная команда​Прим.:​ не могу разобраться,​
​ некоторые функции рабочего​
​PS знаю что​
​ тоже копируются .PasteSpecial​ кнопке (взята из​Application.DisplayAlerts = True​ проблемой разговор неочем.​ точно так же,​ не желанием. Это​​ Worksheets(«Ввод результатов испытаний»)​​ [C11], [C62:C65]​ дальше грызть гранит​​ в двух словах​​ Sheets(«Договор, акт»).Cells(16, 11).Value​For Each wsSh​ «CStr» для дальнейшего​используется​
​ потерялась в двух​​ листа не возвращают​​ есть куча способов​
​ Paste:=xlPasteFormats .PasteSpecial Paste:=xlPasteColumnWidths​​ «элементов управления формы»).​
​Application.ScreenUpdating = True​ Может у Вас​ как я выложил​ связанно с избыточным​ Set shTarget =​Private Sub Worksheet_Change(ByVal​​ науки​​ в чем моя​​End Sub​​ In Me.Sheets​ понимания и использования​​Index​​ строках.​​ ошибки, например СЧЕТЕСЛИ,​​ это сделать, но​​ End With With​​На моей машине​
​End Sub​
​ в Range(«B3»).Select буква​ в изображении. То​ количеством правил. На​ Worksheets(«данные») lr =​ Target As Range)​max_2311​ ошибка или пошлите​
​Pelena​If wsSh.Name <>​LVL​листа, но можно​Adr = Worksheets(NameStel).Cells(Stroka​ поэтому для таких​ хочу понять что​

Макрос, ошибка 1004

​ Application .ScreenUpdating =​​ в версии 2007​собственно, нужно, чтобы​ B не латинская,​ есть все что​ каждом сайте свои​ shTarget.Columns(«A»).Find(What:=»*», LookIn:=xlFormulas, LookAt:=​ Application.DisplayAlerts = False​: Извините, но ошибка​ куда-нибудь, где про​:​ «Прочее» And wsSh.Name​: Это не команда,​ вместо​ + 6, i).Address(RowAbsolute:=False,ColumnAbsolute:=False,External:=True)​ функций не нужна​ не так именно​ False: .CutCopyMode =​

​ всё работает, на​​ при обращении к​ а кириллическая?​ есть в изображении​ правила и тонкости,​ _ xlPart, SearchOrder:=xlByRows,​
​ For Each cell​ опять проявилась. В​ это написано :-)​Тагир​

​ <> «Цель кредита»​​ а функция. Она​Index​ Sheets(«данные»).Range(«E3»).Formula = «=»​ обработка ошибок.​ с данным вариантом.​ False End WithМожет​ машине начальника в​ несуществующей странице код​Kimezz​ (если не считать​ а их миллионы.​

​ SearchDirection:=xlPrevious, MatchCase:=False _​​ In Target If​ коде выделяется .Value=Now​
​ (но лучше с​, оформите код тегами​

​ Then​​ приводит выражение к​использовать имя -​ & Adrв первой​xlankasterx​Большое спасибо!​ в самой кнопке​ версии 2013 при​ игнорировал ошибку и,​

​: коллеги, добрый день,​​ одной кнопки на​ Жизни не хватит,​ , SearchFormat:=False).Row +​ Not Intersect(cell, [C11],​

​Подскажи где ошибка​​ конкрентным указанием книжки​ с помощью кнопки​wsSh.EnableOutlining = True​ типу String​1​​ строчке получаю адрес​: Последний вопрос и​SuperCat​ есть какая-нибудь особенность?​

​ запуске из Microsoft​​ увеличив счетчик, переходил​столкнулся с проблемой,​ странице) является и​

Макрос выдаёт ошибку 1004 (Макросы/Sub)

​ чтобы все правила​​ 1 shSource.Range(«D1:D83»).Copy ‘shTarget.Cells(lr,​ [C62:C65]) Is Nothing​ в коде?​
​ или статьи)​
​ # в режиме​
​DO_ = True​Ирина​
​заменяем на​ ячейки с одного​
​ тема закрыта):​: А причём тут​Hugo​
​ Visual Basic тоже​ к следующей дате​ гугл не очень​
​ так 100% всей​
​ перечитать. А помимо​ «A»).PasteSpecial Paste:=xlPasteAll, Transpose:=True​ Then ‘ End​
​Private Sub Worksheet_Change(ByVal​Sergei_A​ правки поста​
​If wsSh.Name =​
​: Ну теперь все​
​»данные»​ листа и затем​On Error Resume​
​ IsErr и проверка​
​: Были глюки с​
​ работает, а при​
​ (дата, и вслед​
​ помог, надеюсь на​
​ информации? Может вам​ правил на сайтах​ shTarget.Cells(lr, «A»).PasteSpecial Paste:=xlPasteValues,​
​ If Next cell​ Target As Range)​: Держите​Тагир​ «Консолидация» Then DO_​ понятно, а то​.Всем большое спасибо.​

​ этот адрес надо​​ Next​ ​ ячейки на значение?​ ​ этими кнопками после​ запуске через кнопку​

​ за ней адрес​​ вас.​ еще весь жесткий​
​ в жизни нас​
​ Transpose:=True Application.CutCopyMode =​
​ Application.DisplayAlerts = TrueEnd​
​ Application.DisplayAlerts = False​В двух словах​
​: Добрый день. ​ = False​
​ очень тяжело когда​помогло:​ вставить в формулу​var = Application.WorksheetFunction.Search(«free»,​
​ В ячейке может​
​ некоторых обновлений, обсуждалось.​
​ с листа выдаёт​ ссылки, меняется в​задача: на сайте​
​ диск на 2Тб​ окружают еще миллионы​ False Application.ScreenUpdating =​
​ Sub​
​ For Each cell​
​ — Вы через​
​Кто может помочь​
​wsSh.Protect Password:=»0000″, DrawingObjects:=DO_,​
​ не знаешь да​сначала сформировала скобочки​ на другом листе.​ Cells(2, 1), 1)​ быть ошибка?​ Я бы вместо​ ошибку «1004 Application-defined​ экселе при изменении​ публикуются данные раз​ отправить, чтоб вам​ правил, расписывающих чуть​
​ True MsgBox «Сделано»​
​Ранее использовался код,​ In Target If​Set ArtikulRange =​ в устранении ошибки,​

​ Contents:=True, Scenarios:=True, UserinterfaceOnly:=True,​​ еще и забудешь!​ в ячейке, затем​ вот в таком​On Error GoTo​Karataev​ кнопки использовал любой​

Как исправить ошибку «Run-time error ‘1004’ (Формулы/Formulas)

​ or object-defined error»​​ значения счетчика).​ в день в​ легче было разобраться​ ли не каждый​ End Sub​ но время не​
​ Not Intersect(cell, Range(«C11,​ Selection​ в экселе никогда​ AllowFormattingRows:=True, AllowFiltering:=True​
​Что бы мы​ добавила к ним​ виде все нормально​ 0​: С помощью «worksheetfunction.iserr»​
​ рисунок (например из​Копирование строки выполняется​
​спасибо!​
​ экселе, при этом​
​ в 4 строчках?​
​ наш шаг: религия,​
​Юрий М​ менялось.​
​ C61:C64″ [IMG WIDTH=16​Создали объект содержащий​
​ не программировал, разбираться​End If​
​ олухи без Вас​ OR. — не​
​ работает.​в чем разница​
​ нельзя перехватить ошибку.​ автофигур).​
​ так:​_Boroda_​
​ нормального доступа ко​

​putevod​​ тысячи федеральных законов,​​: Код следует оформлять​​Private Sub Worksheet_Change(ByVal​ HEIGHT=16]http://www.planetaexcel.ru/bitrix/images/forum/smile/icon_wink.gif[/IMG] ) Is​ выделенный диапазон, и​ с нуля сложно​

​Next wsSh​​ и вашего форума​
​ сработало. затем поменяла​но нужно получить​ между первой и​ Ошибку можно так​А по той​Application.ScreenUpdating = False​
​: Проверяйте файл на​ всей базе данных​: Юрий М, Спасибо!​ этикет, нормы расписанные​ соответствующим тегом: ищите​ Target As Range)​ Nothing Then With​ потом этот объект​ .​Application.ScreenUpdating = True​

​ делали. Спасибо разъяснение.​​ на Local. -​​ формулу ИЛИ.​​ третьей строчкой?​ перехватить:​ строке — Sheets(ActSheetName).Range(Cells(R,​ ‘Эту структуру я​ наличие так​

​ нет.​​ Оба способа не​ для работ (ГОСТы,​

​ такую кнопку и​​ Application.DisplayAlerts = False​ cell.Offset(0, 3) [COLOR=#ff0000]​ пишите как адрес​Особенность заключается в​

​Application.CellDragAndDrop = False​​Юрий М​​ и. УРАА!!​Sheets(«данные»).Range(«E3»).Formula = «=OR(«​Karataev​
​Sub Macro() Dim​ 41), Cells(R, 49)).Copyтам​ взял с какого-то​

Ошибка run-time error ‘1004’ в коде

​if dir(ПолныйПутьСИменемИРасширением)<>«» then​​решил выкачать все​
​ вызывают ошибки и​ СНиПы, ПБУ и​
​ исправьте своё сообщение.​ For Each cell​ .Value = Now​ — Range(ArtikulRange)​ том, что данные​End Sub​: В редакторе становимся​хотя пробовала все​ & Adrсразу вылетает​: On Error Resume​ lngVar As Long​
​ не указано чьи​ форума, не очень​

​Kimezz​​ файлы и слить​
​ выполняют то, что​
​ их огромное количество),​
​P.S. Код копируйте​

​ In Target If​​ [/COLOR] End With​korsar75​ договора заполняются в​На всякий случай​ курсором на CStr​ те же действия​ ошибка «Run-time error​ Next — при​ On Error Resume​ ячейки, уже привычная​ понимаю зачем нужна.​

​: _Boroda_, спасибо. к​​ воедино. первый шаг​
​ я хотел!​ правила пользования техникой,​
​ при русской раскладке​ Not Intersect(cell, [C11],​
​ End If Next​: А можно пропустить​ закладке «Договор,акт» -​ (вдруг кто не​ и жмём F1​

​ в обратном порядке​​ »1004»»​ ошибке продолжить далее.​
​ Next lngVar =​ ошибка, аж надоело. ​ Sheets(ActSheetName).Range(Cells(R, 41), Cells(R,​ сожалению, не сработало:​ — выкачать файлы,​Юрий М​ безопасность, ПДД, расписание​ клавиатуры — тогда​ [C62:C65]) Is Nothing​ cell Application.DisplayAlerts =​ эти шаги:​ печатается файл, потом​ в курсе) предупрежу,​Almost​ — поставить local​как уже только​ Здесь и так​ Application.WorksheetFunction.Search(«free», Cells(2, 1),​Если код в​ 49)).Copy ‘В листе​ воткнул​ которые называются однотипно.​: Не нужен весь​ дня (тоже извините​ не будет вот​ Then ‘ Cell.Offset(0,​ True End Sub​Worksheets(«Raschet».Activate Worksheets(«Raschet».Range(«A1».Activate Worksheets(«Raschet».Range(ActiveCell,​ необходимо сохранить данные​ что последняя строчка​: Во вложении файл​
​ и формировать формулу​ не извращалась с​ все понятно.​ 1) On Error​ стандартном модуле -​ с именем ActSheetName(переменная)​If Dir(address) <> «»​ выходные дни игнорирую​ диск. И рабочий​ меня является правилом,​ таких символов: «Ñäåëàíî»​ 3) = Now​Sanja​

​ ActiveCell.End(xlDown)).Select Set ArtikulRange​​ договора в закладке​
​ макроса отключает маркер​ с макросом на​

​ здесь же -​​ этим адресом, ничего​​On Error GoTo​​ GoTo 0 If​ вроде должно прокатить.​

​ выделяем для копирования​​ Then​ на уровне алгоритма,​ файл не нужен.​

​ не следуя которому​​ Прикрепленные файлы Тег​ End If Next​: Зачем там вообще​
​ = SelectionТ.е. можно​ задолженность, виде строки.​
​ заполнения/перетаскивания. Кто уже​ открытие книги. Код:​ не работало. ​ не получается..​ 0 — при​ lngVar = 0​ А вот если​ ячейки с 41​перед исполнением -​ но праздничные и​ Помощь нужна кому​ можно нахлопотать себе​ VBA.jpg (19.2 КБ)​ cell Application.DisplayAlerts =​ конструкция With. End With?​

​ ли выделить и​​ Если не трудно​ запустил макрос из​
​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Workbook_Open()​Ирина​

​alex_gearbox​​ ошибке перейти в​ Then ‘нет искомых​ в модуле листа​ по 49 в​ он не понимает​
​ иные исключения так​

​ — Вам? Так​​ проблем), а сколько​
​putevod​ TrueEnd Sub​Сell.Offset(0, 3) =​
​ одновременно удалить дубликаты.​ помогите.​ первого поста -​

​Application.ScreenUpdating = False​​: Здравствуйте, написан маленький​: Попробуйте проверить Какой​
​ ноль. Эта строка​ данных End If​ — могут быть​ строке с номером​ адрес в интернете​ не обойти -​ помогите помогающим: не​ договоров за всю​: Что я не​Sanja​ Now​ Или не выделять,​Pelena​ запустите отдельно вот​Dim wsSh As​

​ макрос для вставки​​ вид у вас​

​ отключает перехватчик ошибок.​​ End Sub​ ошибки.​ R With Sheets(SheetName).Cells(RN,​

​ как путь к​​ идёт ссылка на​ должны они тратить​

​ жизнь (работа, кредиты),​​ так делаю? Прикрепленные​
​: А это пробовали?​max_2311​ а задать диапазон​:​ это и все​ Object​
​ текста с одного​ «A1» или «RC»​ Что означает «GoTo​Или ошибку можно​alexthegreat​ 1) ‘как работает​ файлу, пишет «bad​ несуществующий файл. понапихал​ своё время, чтобы​ а сколько пользовательских​ файлы 1.jpg (40.38​
​If Not Intersect(сell,​: В написании кода​ и удалить из​
​Тагир​ станет на место​For Each wsSh​ листа на другой​ сейчас не вспомню​ 0″, мне не​ вообще не вызывать,​: скорее всего какое​ With. End With тоже​ file name or​ в текст кода​ рисовать таблицу с​

​ соглашений при установке​​ КБ)​
​ Union([C11], [C62:C65])) Is​ еще не силен,​ него дубликаты. Причем​

​, то, что приложили​​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Application.CellDragAndDrop = True​ In Me.Sheets​ при выполнении двух​
​ навскидку, ну шибко​ известно. Вообще, GoTo​ сделав предварительную проверку.​ то обновление или​ не очень представляю.​ number».​ On Error Goto​ данными. Вот к​ программ или регистраций​Юрий М​ Nothing Then​ поэтому за основу​ известно только место​

​ файл — хорошо,​​Да, и действительно​
​If wsSh.Name =​ условий, но при​
​ намучился в поиске​ 0 означает «перейти​ Если проверка показывает,​ у шефа или​ Копируем в лист​
​sboy​
​ и т.п. -​
​ чему Вас призывают.​
​ почт или других​
​: Попробуйте так: ActiveSheet.Range(«B3»).SelectА​max_2311​ взял, что было​ начала диапазона, а​ осталось в первом​ — Worksheet. Поправил​ «Прочее» Then GoTo​ колличестве знаков в​

​ ошибки. оказалось что​​ в строку с​ что есть искомые​ у вас не​ SheetName(тоже переменная) в​: Добрый день.​ не сработало.​ Цитатаputevod написал:​ услуг, ну а​ вообще, чтобы копировать,​: Также возникает ошибка​ в интернете.​ сколько в нем​ посте оформить код​ у себя, сразу​ b​ ячейке более 300​ какаието функции не​ меткой 0″. Это​ данные, то применить​ легло, и кнопка​

​ строку RN .PasteSpecial​​Вот так попробуйте​код ниже, документ​вы мне предлагаете​ такие понятия, что​
​ выделять необязательно:​ в строке If​За подсказку спасибо.​ ячеек неизвестно, но​ тегами​ не заметил.​If wsSh.Name =​

​ выдается ошибка. Разбивать​​ воспринимают формат RC.​ наверное осталось от​ «WorksheetFunction.Search»:​ наверняка активХ. Если​

​ Paste:=xlPasteValues .PasteSpecial Paste:=xlPasteFormats​​On Error Resume Next​ — в приложении.​ еще и читать​
​ если ты мужик,​Private Sub CommandButton1_Click()​ Not.​

​Sanja​​ известно точно, что​Hugo​Almost​ «Цель кредита» Then​ на несколько ячеек,​ Только A1 понимают,​

​ предыдущих версий VBA,​​Sub Macro() Dim​ сам код рабочий,​ End With With​Workbooks.Open Filename:=address​Sub test()​ какие-то правила?Да, предлагаем.​ то должен что-то​ Range(«C8»).Copy Sheets(«Result»).Range(«B3») End​Private Sub Worksheet_Change(ByVal​: И еще.​ в нем нет​: Доступно только для​: Спасибо, идеально! Заодно​ GoTo b​ а потом собирать​ я по переменной​ где это имело​ lngVar As Long​ сделайте новую кнопку​ Application ‘эти три​If Err Then​Dim address, name​ Не будете их​ сделать — тоже​ Sub​ Target As Range)​If Not Intersect(сell,​ пустых ячеек. Как​ пользователей​ добавил предложенную строчку​wsSh.EnableOutlining = True​ обратно текст очень​ им адрес передавал.​ смысл, а в​ If WorksheetFunction.CountIf(Cells(2, 1),​ и назначте ей​ строки из того​Err.Clear​ As String​ соблюдать — помощь​ набор правил, которые​Hugo​ Application.DisplayAlerts = False​ Union([C11], [C62:C65])) Is​ вариант можно через​Pelena​ для восстановления перетаскивания​If wsSh.Name =​ проблемно. Сократить колличество​ Если не получится​ новых версиях VBA​ «free») <> 0​ макрос. кнопку сделайте​ же примера с​On Error GoTo​Dim count, c_max,​ или затянется или​ если не соблюдать,​: Не следуете правилам​ For Each cell​ Nothing Thenили​ именованный диапазон, что,​: Да я перенесла​ в свой файл​ «Консолидация» Then GoTo​ знаков возможности нет,​ попробуйте свойсто В​ уже смысл не​ Then lngVar =​ из фигуры. Вставка-фигуры​ форума. Наверно они​ 0​ i As Integer​ вообще её не​ то можно лишиться​ форума — не​ In Target ‘​If Not Intersect(сell,​ в принципе, я​ тему в VBA,​ на событие закрытия​ a​ придумано не мной.​ разных ипостасях -​ понятен.​ Application.WorksheetFunction.Search(«free», Cells(2, 1),​Ktotolya​ нужны, с ними​Else​On Error GoTo​ получите. Неужели это​ поддержки общества и​ показываете файл. Т.е.​ If Not Intersect(Cell,​ [C11], [C62:C65]) Is​ и делал в​ а подзаголовок остался​ книги.​wsSh.Protect Password:=»0000″, DrawingObjects:=True,​ Подскажите как обойти​ Локальный адрес и​xlankasterx​ 1) End If​: Спасибо. Попробую и​ проблем нет, как​ActiveWindow.Visible = True​ EndIteration​ так трудно понять?Цитатаputevod​ снизить качество своих​ не показываете всю​ Union([C11], [C62:C65])) Is​ Nothing Then​ макросе. Так же​ от формул​Тагир​ Contents:=True, Scenarios:=True, UserinterfaceOnly:=True,​ ограничение. Пример приложен.​ т.д​: Спасибо всем большое!​ If lngVar =​ фигуру использовать и​ вроде бы и​ActiveWorkbook.SaveAs Filename:= _​

​Application.ScreenUpdating = False​​ написал:​ социальных отношений. И​ информацию, которая нужна​ Nothing Then ‘​max_2311​

​ именованный диапазон можно​​master-dd​: Ошибку дает когда​ AllowFormattingRows:=True, AllowFiltering:=True​Z​Nastinya​ Вопросов больше нет.​ 0 Then ‘нет​ указать, чьи ячейки.​ без них. .ScreenUpdating​»C:UsersGalachyanKGDesktopПроектыDiesel» & name,​Application.DisplayAlerts = False​эти правила не​
​ это далеко не​ для решения вопроса.​ C11, C62:C65 Cell.Offset(0,​: Исправил код и​ задать на листе​:​ вношу изменения в​GoTo b​: Как вариант: работать​: Sheets(«данные»).Range(«E3»).Formula поменяйте на​
​SuperCat​ искомых данных End​ Вот так лучше?​ = False: .CutCopyMode​ _​count = 0​ были явно навязаны​ полный набор. Прошу​
​putevod​ 3) = Now​ возникла ошибка 424​

​ заранее и обращаться​​Удалено администрацией — автор​ закладке «Договор, акт»​a:​
​ в новом формате​ FormulaLocal. Может поможет.​: Из книги «Excel​ If End Sub​
​ Sheets(ActSheetName).Range(Sheets(ActSheetName).Cells(R, 41), Sheets(ActSheetName).Cells(R,​ = False End​FileFormat:=xlExcel8, Password:=»», WriteResPassword:=»»,​c_max = Range(«max_count»).Value​ мне перед тем,​

​ прощения, что не​​: Здравствуйте! Наверное Вы​ End If Next​Private Sub Worksheet_Change(ByVal​ уже к нему​ не исправил замечание​ и вызываю процедуру​wsSh.Protect Password:=»0000″, DrawingObjects:=False,​ — *.xlsm (XL​Если русский оффис.​ 2007 VBA Programmer’s​xlankasterx​ 49)).Copy​ WithОшибка ссылается на​

игнорирование ошибки 1004 в итеративном макросе (Макросы/Sub)

​ _​​For i =​
​ как отправить вопрос​ прочитал ваших правил,​ думаете, что я​ cell Application.DisplayAlerts =​
​ Target As Range)​ из макроса. Или​ модератора​ Копирования данных в​ Contents:=True, Scenarios:=True, UserinterfaceOnly:=True,​ -2007, 2010, 2013)​ то функция OR​
​ Reference»:ЦитатаOn Error GoTo​: функция search ищет​Hugo​ строку Sheets(ActSheetName).Range(Cells(R, 41),​ReadOnlyRecommended:=False, CreateBackup:=False​ 0 To c_max​ на сайтНе совсем​ сэкономив N-ное кол-во​ абсолютно все время​ True End Sub​ Application.DisplayAlerts = False​ циклом перебором определить​Последнее китайское предупреждение​ закладке «Задолженность».​ AllowFormattingRows:=True, AllowAutoFiltering:=True​ . ​
​ — Локализованная.​ 0 is used​

​ текст «free» если​
​: Можно лучше​ Cells(R, 49)).CopyЯ раньше​
​ActiveWindow.Close​Range(«count»).Value = count​
​ так: См. вторую​ времени. Но так​
​ провожу перед компьютером?​
​AlexLin​
​ For Each cell​
​ границы диапазона. Но​
​ — прочитайте Правила​Приходится сохранять, закрывать​
​b:​
​ps 1049 знаков​
​из Хелпа :​
​ to turn on​
​ текста в ячейке​
​with Sheets(ActSheetName) .Range(.Cells(R,​
​ с 2013 не​End If​
​address = Range(«D_address»).Value​ тему на первой​
​ как эти правила​
​ Это совершенно не​
​: Добрый день!​
​ In Target ‘проходим​ циклом одназначно долго,​
​ форума​
​ файл и потом​Next wsSh​
​ в ячейке -​ИЛИ(логическое_значение1;логическое_значение2; . )​
​ normal VBA error-handling​ нет то iserr​
​ 41), .Cells(R, 49)).Copy​
​ работал, да и​upd. поправил, перевложил​name = Range(«F_name»).Value​
​ странице: ЦитатаВажно, Закрыто:​
​ не были явно​
​ так! На самом​
​Подскажите почему вылетает​
​ по всем измененным​

​ т.к. строк будет​korsar75​ копирование проходит успешно​Application.ScreenUpdating = True​ это не по-XL’евски,​Логическое_значение1, логическое_значение2, . ​ again. Otherwise, any​ (как я думаю)​ end with​ вообще имею не​Kimezz​
​Workbooks.Open Filename:=address​

​Обязательно к прочтению​​ навязаны мне перед​ деле у меня​
​ такая ошибка​

​ ячейкам If Not​​ под сотню тысяч.​: Добрый день​ (((​ ​Application.CellDragAndDrop = False​ однако. ​ ​ — от 1​ further errors would​ вернет значение true​xlankasterx​ богатый опыт написания​: sboy, большое спасибо,​ActiveWindow.Visible = True​

​ перед созданием новой​​ тем, как отправить​
​ дел так много,​
​и эта ошибка​
​ Intersect(cell, Range(«C11, C62:C65″​
​И еще приходит​
​Подскажите почему вылетает​
​Просто часто приходится​End Sub​
​Ирина​
​ до 30 проверяемых​
​ be ignored. It​
​ то есть ошибка.​: Привет всем!​
​ макросов. Может быть,​ теперь работает корректно,​
​ActiveWorkbook.SaveAs Filename:= _​
​ темыДумаю, вопрос исчерпан.​
​ вопрос на сайт,​

​ что компьютеру буквально​

​ только у меня​​ ) Is Nothing​ на ум такой​ такая ошибка​ переходить из одной​
​Выдаёт ошибку 1004​: ну так, некоторым​

Ошибка 1004 Application-defined or object-defined error возникает на другом компьютере в другой версии Excel

​ условий, которые могут​​ is best not​ На раб листеформула​Просьба помочь выяснить​ дело в том,​ возьму прием на​»C:UsersGalachyanKGDesktopПроектыDiesel» & name,​Hugo​ я имел право​ по минутам вырываю​ на ПК выходит,​
​ Then ‘если изменененная​ вариант (это в​Run-time error ‘1004’​ закладки в другую.​ на строке после​ это не объяснить,​ иметь значение либо​
​ to try to​ такая: еош(ПОИСК(«FREE»;A1;1)), вот​ что не так​
​ что лист, с​ вооружение.​ _​: Вижу что времени​ считать их не​ кусочки времени. Дом,​ на др этот​ ячейка попадает в​ плане обучения) что​ Application-defined or object-defined​ Прошу помочь ,​ a:​
​ задачу нарезали-нужно исполнять,​ ИСТИНА, либо ЛОЖЬ. ​
​ interpret this statement,​ эту формулу я​ в следующем коде​ которого идёт копирование​вопрос исчерпан, тему​FileFormat:=xlExcel8, Password:=»», WriteResPassword:=»»,​ сидеть за компом​ обязательными, иначе бы​ семья, работа, друзья,​ файл без ошибок.​ диапазон C11, C62:C65​ через Count определить​ error Вот код​ если не трудно​Подскажите, пожалуйста, в​ вот и мучаюсь,​1.​ which appears to​ и пытаюсь задействовать​ макроса:​ большой (41-49 столбцы​ можно закрывать.​ _​ нет​ их не соблюдение​ шабашки, какие-то проблемы​Если напишу​ End If Next​ кол-во ячеек и​ (ошибка возникает в​Public Sub Моя​ чём причина. Задача:​ разбивала на несколько​программно сформировать в​ be directing errorhandling​ в VBA. Причем​MsgBox worksheetfunction.iserr(Application.WorksheetFunction.Search(«free»,Cells(2, 1),​ копируются или AO-AW)​Ktotolya​ReadOnlyRecommended:=False, CreateBackup:=False​Добавьте к 100​ должно было привести​ от ЖКХ, социальные​Worksheets(«Raschet»).Range(ArtikulRange.Address).RemoveDuplicates Columns:=1, Header:=xlNo​ cell Application.DisplayAlerts =​ потом задать адрес​ строке подсвеченной красным):​ процедура()​ заблокировать все листы​
​ ячеек текст, при​ ячейке​ to line 0.​ в ячейке cells(1,2)​ 1) )= 0​ и используются разделители​: Здравствуйте. Писал макрос​ActiveWindow.Close​ ещё 1% информации​ не возможности задать​ всякие нюансы, вплоть​или​ True End Sub​ как А1:А-count+1 (надеюсь​ Public Sub PodschetProdaz()​Rows(«6:7»).Select​ кроме двух, а​ собирании обратно, очень​Е3​ Just accept that​ текст «fort». И​

​с cells(1,1) -​​ или что-то такое,​ для начальника. У​EndIteration:​ — где именно​ вопрос, так как​ до того, что​ArtikulRange.RemoveDuplicates Columns:=1, Header:=xlNo​
​Sanja​ понятно написал). А​ Worksheets(«Raschet»).Activate Worksheets(«Raschet»).Range(«A1»).Activate Worksheets(«Raschet»).Range(ActiveCell,​Selection.Copy​ на одном из​ тяжело читать и​
​вид, заключённый в​ it works.​ еошибка возвращает true.​ стоит значение adadfree​ что позволяет как​ меня работает(Excel 2007),​count = count​

​ расположен код?​​ система бы не​ нередко забываю даже​как вверху советовали,​: См. пост #12​ еще есть Used,​ ActiveCell.End(xlDown)).Select Set ArtikulRange​Rows(«9:9»).Select​ заблокированных оставить возможность​ проверять, потому как​ круглые скобки, нужной​kuklp​

​ А в vba​​ — тут ошибки​ бы свернуть несколько​ а у него​ + 1​Я на 99%​ пропустила его в​

​ сделать что-то важное.​​ то поможет? И​​Юрий М​ но я пока​ = Selection [COLOR=#FF0000]Worksheets(«Raschet»).Range(ArtikulRange).RemoveDuplicates​

Ошибка 1004 при использовании функций рабочего листа в макросе

​Selection.Insert Shift:=xlDown​​ редактирования объектов​
​ около 5 тыс.​ формулы, но без​: Sub Macro() Dim​ аналогичная формула вызывает​
​ не происходит​ столбцов?​
​ (Excel 2013) есть​Range(«count»).Value = count​ уверен что знаю​ виду не выполнения​
​ У меня нет​ где лучше писать​: max_2311, коды следует​
​ не понял как​
​ Columns:=1, Header:=xlNo[/COLOR] End​Sheets(«Задолженность»).Cells(9, 2).Value =​Pelena​
​ строк​ оператора, т.е.:​ lngVar As Long​ ошибку 1004.​при переходе к​Причём выше по​
​ проблема. А чтобы​If Range(«w_day»).Value =​ причину ошибки -​ правил. И. Что​ времени ни посмотреть​ между Sub uuu()​
​ оформлять тегом. Исправляйте​

​ его применять :-(​​ Sub​ Sheets(«Договор, акт»).Cells(15, 84).Value​: Замените​Казанский​в ячейке​

​ On Error Resume​​xlankasterx​ cells(1,2) — с​ коду есть аналогичная​ всё пробовать и​
​ 6 Then​ но всёж есть​ я вам не​ телевизор, ни пообщаться​ и End Sub​ свои сообщения.​RAN​Так же файл​Sheets(«Задолженность»).Cells(9, 3).Value =​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Dim wsSh As Object​: Все просто, работает​
​Е3​ Next lngVar =​: Полчучается, что при​ содержание fort​ структура, которая копирует​ так и эдак​count = count​
​ ещё 1%. ​ выложил то, я​ в соцсетях, ни​ в любом месте?​max_2311​: Нужно!​ примера​ Sheets(«Договор, акт»).Cells(6, 90).Value​на Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Dim wsSh​ и в 2000​видим: (А1>5)​

​ Application.WorksheetFunction.Search(«free», Cells(2, 1),​​ использовании функций рабочего​вылетает ошибка 1004.​ шапку таблицы в​ на его компе​ + 2​Sanja​ так и не​ даже новости почитать.​ Прикрепленные файлы Безымянный.png​: Исправил. Спасибо за​Worksheets(«Raschet»).Range(Range(«A1″), Range(A1»).End(xlDown)).RemoveDuplicates Columns:=1,​Sergei_A​Sheets(«Задолженность»).Cells(9, 4).Value =​ As Worksheet​Sheets(«свод»).Cells(k, 10) =​2.​ 1) If Err​ листа в макросах​

​Поэтому разъясните пожалуйста,​​ другие листы, и​ нет времени.​c_max = c_max​: За то время,​ понял? Какой файл​

​ А вы мне​​ (8.86 КБ)​ подсказку.​ Header:=xlNo​: наипишите или​ Sheets(«Договор, акт»).Cells(6, 32).Value​_Boroda_​ CStr(Sheets(«Лист2»).Cells(i, 5))​запускаем след. макрос:​ Then Err.Clear: MsgBox​ обязательно надо заморачиваться​ что я не​

​ она работает без​​Макрос осуществляет поиск​ — 2​
​ которое было потрачено​ вам нужен? Сам​
​ предлагаете еще и​AlexLin​
​max_2311​Sergei_A​
​Worksheets(«Raschet»).Range(ArtikulRange.Address).RemoveDuplicates Columns:=1, Header:=xlNo​Sheets(«Задолженность»).Cells(9, 5).Value =​: Goto — это​

​Ирина​​Sub primer() With​ «Not found» On​ с перехватом ошибок?​ так делаю?​ ошибок: Application.ScreenUpdating =​
​ строк по некоторому​End If​ на сочинение и​ XLSM? Так он​ читать какие-то правила?​: Sub uuu() Dim​: Добрый день.​:​или​ Sheets(«Договор, акт»).Cells(2, 11).Value​ не по феншую.​: Супер. Все отлично​ Sheets(1) r_E3 =​ Error GoTo 0​Karataev​По смыслу макрос​ False Sheets(ActSheetName).Range(«AO1:AW5»).Copy ‘шапка​ столбцу, создаёт несколько​

​If i >=​​ набор этого текста,​ пустой и в​

Источник