Майкрософт Эксель — одна из самых популярных электронных таблиц, используемых во всем мире как для личных, так и для деловых целей. Это универсальное место для хранения, организации и обработки данных организованным способом. MS Excel поставляется в основном с двумя расширениями, то есть в формате XLS и XLSX. Однако, помимо невероятной популярности, ошибки во время выполнения — обычная неприятность для очень многих пользователей Windows, и одной из самых распространенных является ошибка. Ошибка выполнения 1004.
В этом руководстве мы собираемся обсудить эту распространенную ошибку времени выполнения 1004 и некоторые из лучших исправлений для ее легкого решения.
Что такое ошибка времени выполнения 1004 в Excel?
Ошибка выполнения 1004 — это код ошибки, относящийся к Microsoft Visual Basic, который, как известно, беспокоит пользователей Microsoft Excel. С этой ошибкой сталкиваются любые версии MS Excel, такие как Excel 2007, 2010, 2013, 2016, 2019. Ни одна версия Microsoft Excel не застрахована от угрозы Runtime Error 1004.
С этой ошибкой в основном сталкиваются пользователи, когда они работают с файлом Excel или пытаются создать макрос в документе Excel. Это может вызвать серьезные проблемы при работе с приложениями Visual Basic и привести к полному сбою программы или даже всей системы; иногда это может привести к зависанию системы, запрещая пользователям что-либо делать в своей системе.
Типы сообщений об ошибках
Сообщения об ошибках, которые больше всего связаны с этой ошибкой времени выполнения, следующие:
- VB: ошибка времени выполнения ‘1004’: ошибка приложения или объекта
- Ошибка выполнения Excel VBA 1004 «Ошибка выбора метода класса Range»
- ошибка времени выполнения 1004 диапазон метода объекта _global не удалось Visual Basic
- Макрос Excel «Ошибка выполнения» 1004?
- Ошибка выполнения 1004 не удалось открыть метод объектных книг
- Ошибка времени выполнения «1004»: сбой метода «Рейнджер» объекта «Рабочий лист»
- «Сбой метода в ПРИЛОЖЕНИИ ПРИЛОЖЕНИЯ ОБЪЕКТНОЙ программы».
Если вы столкнулись с какой-либо из этих ошибок, вы можете исправить ее с помощью нашего руководства.
Каковы причины?
Ошибка 1004 — это общий код, связанный с MS Excel, но не связанный с одной точной причиной. Следовательно, в этом случае точная причина, по которой может появиться эта ошибка, будет варьироваться от случая к случаю и от обстоятельств к обстоятельствам. От проблем с конфигурацией до проблем с программным обеспечением, ниже мы перечислили краткий обзор распространенных причин ошибки времени выполнения 1004 в Excel:
- Значок рабочего стола MS Excel может быть поврежден
- Файл VBA Excel конфликтует с другим приложением
- Из-за ошибки, указанной в приложении или объекте
- Из-за отсутствия зависимого файла
- Из-за вируса, трояна или вредоносного ПО
- Из-за неверных ключей реестра и так далее.
Это были некоторые из наиболее частых причин получения ошибки времени выполнения 1004 в MS Excel; Теперь давайте разберемся с различными исправлениями.
Здесь мы подробно описали как ручные, так и автоматические решения для исправления ошибки выполнения 1004. Вы можете использовать любой из следующих методов, чтобы решить проблему.
- Создать новый шаблон Excel
- Запустите сканирование на вирусы
- Для VB: ошибка времени выполнения ‘1004’, измените размер записей легенды
Давайте подробно рассмотрим каждый из этих методов.
1]Создайте новый шаблон Excel
В некоторых случаях для устранения этой проблемы достаточно просто вставить новый лист из шаблона вместо создания копии существующего листа. Вот что вам нужно сделать:
1]Откройте MS Excel в вашей системе
2]Нажмите ‘CTRL + N‘для создания нового листа Microsoft Excel или просто выберите’Пустая книга‘с первого экрана.
3]После этого удалите все листы в книге, кроме одного.
4]Теперь отформатируйте оставшуюся книгу. Также обратите внимание, что эту книгу можно изменить в соответствии с вашими индивидуальными потребностями.
5]В конце перейдите к ‘Файл> Сохранить как‘, чтобы сохранить новый рабочий лист в формате файла шаблона Excel (.xltx или .xlt).
6]После успешного создания шаблона вы можете вставить его программно, используя следующую строку кода:
Таблицы.Добавить Тип: = путь имя файла
Пожалуйста, обрати внимание — Не забудьте заменить новое имя файла на настоящее имя документа.
2]Запустите сканирование на вирусы
Очень важно сканировать компьютерную систему на наличие вредоносных программ и вирусов, поскольку они могут повредить файлы и важные документы и показать ошибку времени выполнения 1004 в MS Excel. Иногда очень помогает хорошая антивирусная программа.
3]Для VB: ошибка времени выполнения «1004», измените размер записей легенды.
Если вы столкнулись с ошибкой времени выполнения 1004 при запуске макроса Microsoft Visual Basic для приложений (VBA), вы можете использовать этот метод для временного решения.
Обычно эта ошибка возникает при попытке запустить макрос VBA, который использует метод LegendEntries для внесения изменений в записи легенды на диаграмме Microsoft Excel. На этот раз вы можете получить следующее сообщение об ошибке:
Ошибка времени выполнения ‘1004’: ошибка приложения или объекта
Эта ошибка возникает, когда диаграмма Excel содержит больше записей легенды, чем имеется место для отображения записей легенды на диаграмме Excel. В этом случае Microsoft Excel может усекать записи легенды.
Чтобы обойти это поведение, создайте макрос, который уменьшает размер шрифта текста легенды диаграммы Excel до того, как макрос VBA внесет изменения в легенду диаграммы, а затем восстановите размер шрифта легенды диаграммы, чтобы он был похож на следующий пример макроса. .
Sub ResizeLegendEntries() With Worksheets("Sheet1").ChartObjects(1).Activate ' Store the current font size fntSZ = ActiveChart.Legend.Font.Size 'Temporarily change the font size. ActiveChart.Legend.Font.Size = 2 'Place your LegendEntries macro code here to make 'the changes that you want to the chart legend. ' Restore the font size. ActiveChart.Legend.Font.Size = fntSZ End With End Sub
Мы надеемся, что эта статья поможет вам исправить ошибку времени выполнения 1004 в Microsoft Excel. Это руководство дает вам как ручное, так и автоматическое решение, чтобы избавиться от этой ошибки; вы можете использовать любое решение в зависимости от ваших потребностей.
Читать дальше: Клавиши со стрелками не работают в Microsoft Excel.
Four ways to fix runtime error 1004 in Excel:
Workable Solutions | Step-by-step Troubleshooting |
---|---|
Fix 1. Delete the GWXL97.XLA Files | Fix the Excel error 1004 is to find and delete the error file. Go to C:Program FilesMS OfficeOfficeXLSTART…Full steps |
Fix 2. Check the Trust Access to the VBA Project Object Model | Enable a VBA project trust option in Excel Trust Center to fix Excel error 1004. Open a blank Excel file…Full steps |
Fix 3. Create Another Excel Template | Start a new Excel workbook and make sure there is only one worksheet in it. Format the workbook first…Full steps |
Fix 4. Repair Corrupted Excel File | Repair corrupted Excel files with a file recovery tool. EaseUS file repair tool fixes severely corrupted XLS and XLSX files and retrieves everything from Excel…Full steps |
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:
- Runtime error 1004: Application or object-defined error.
- Runtime error 1004: Method Ranger of Object Worksheet failed.
- 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.
Возникает при переходе по ссылке из одного листа на другой |
|
Сергей Пользователь Сообщений: 11251 |
Юрий я не рунописец но пока начинаю это читать
Прикладывайте примеры Лень двигатель прогресса, доказано!!! |
||
Юрий М Модератор Сообщений: 60574 Контакты см. в профиле |
Юрий, я подправил название темы: так больше конкретики. Ведь с Вашим названием все вопросы по ошибкам можно смело задавать в Вашей теме. Так лучше? Ну почему бы самому не придумать нормальное название? |
Сергей Пользователь Сообщений: 11251 |
Юрий Глодовский, я почему говорю про пример и почему так быстро привел описание ошибки, потому что ща сам сижу втыкаю в неё, так ка записал макрорекодером макрос попытался его усовершенствовать и мне выдает такую фигню и я не думаю что мы с вами делаем одно и тоже Лень двигатель прогресса, доказано!!! |
Сергей, пример приложить не могу, так как там у меня вся рабочая база. Пробовал вынести это дело в отдельный файл, но ошибка не возникает, походу это конфликт макросов. |
|
Юрий М Модератор Сообщений: 60574 Контакты см. в профиле |
Начните с того, что прогоните код пошагово: для начала выясним — на какой строке и в какой процедуре возникает эта ошибка. |
Сергей Пользователь Сообщений: 11251 |
#7 16.05.2014 22:53:10
это не ко мне, сам тупил над такой же ошибкой около 30 минут, грохнул макрос рисую заново, но это чисто развлекуха под пиво к работе у меня ни как не относится Лень двигатель прогресса, доказано!!! |
||
Юрий Глодовский Пользователь Сообщений: 137 |
#8 16.05.2014 23:42:20 Юрий М, в третьей строке, тот что If Not Intersect…
|
||
Сергей Пользователь Сообщений: 11251 |
#9 16.05.2014 23:44:38
Юрий Глодовский, обращайте внимание на советы, если не знаете как это сделать, спрашивайте, дадут либо ссылку либо совет как это сделать, КОТ хоть и сидит со скелетом но форумчан редко ест Лень двигатель прогресса, доказано!!! |
||
Hugo Пользователь Сообщений: 23250 |
#10 16.05.2014 23:46:23 У меня нет ошибки.
кто его знает…
Изменено: Hugo — 17.05.2014 08:31:16 |
||||
Юрий М Модератор Сообщений: 60574 Контакты см. в профиле |
Без файла сложно, конечно… Лист «База» есть? |
Hugo Пользователь Сообщений: 23250 |
Юра, у меня листа База не было. В начале |
Сергей Пользователь Сообщений: 11251 |
вообще не уверен но со своей ошибкой кажись разобрался я когда писал рекодером копировал формулы из одного документа в другой, когда они оба были открыты макрос работал, после того как я закрыл файл из которого копировал формулы начал запускать макрос начала вылетать эта ошибка Лень двигатель прогресса, доказано!!! |
Юрий Глодовский Пользователь Сообщений: 137 |
#14 17.05.2014 00:00:16
Этот вариант помог. Большое спасибо. |
||
Юрий М Модератор Сообщений: 60574 Контакты см. в профиле |
#15 17.05.2014 00:02:43 Немного смущает несоответствие комментария и строки кода. Комментарий ошибку не вызовет, но всё же:
А проверяем столбец С. |
||
Сергей Пользователь Сообщений: 11251 |
#16 17.05.2014 00:13:50
в будущем может, на данном моменте эволюции понимания в VBA у меня даже таких строк нет Лень двигатель прогресса, доказано!!! |
||
Казанский Пользователь Сообщений: 8839 |
#17 17.05.2014 01:13:52 Замечу, что Target.Parent это Sh, который передается в процедуру.
|
||
Ошибка выполнения 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 и восстановить данные файла.
Формулы в 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 EndNastinya
то да, нужно нету то iserr
.PasteSpecial Paste:=xlPasteFormulas ‘шапка листам.Next i не так много.
код к этой Это не связано Application.ScreenUpdating = False required. в строке
korsar75 метода работают. Если Sheets(«Договор, акт»).Cells(18, 11).ValueDim 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).ValueFor 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 ошибка или пошлите
PelenaIf wsSh.Name <>LVLлиста, но можноAdr = Worksheets(NameStel).Cells(Stroka поэтому для таких хочу понять что
CyberForum.ru
Макрос, ошибка 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 типу String1 строчке получаю адрес: Последний вопрос иSuperCat есть какая-нибудь особенность?
запуске из Microsoft увеличив счетчик, переходилстолкнулся с проблемой, странице) является и
planetaexcel.ru
Макрос выдаёт ошибку 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(ByValSergei_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 IfSet ArtikulRange = в устранении ошибки,
Contents:=True, Scenarios:=True, UserinterfaceOnly:=True, еще и забудешь! в ячейке, затем вот в такомOn Error GoToKarataev кнопки использовал любой
excelworld.ru
Как исправить ошибку «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там взял с какого-то
excelworld.ru
Ошибка 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 Withkorsar75 договора заполняются вНа всякий случай курсором на 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 SubWorksheets(«Raschet».Activate Worksheets(«Raschet».Range(«A1».Activate Worksheets(«Raschet».Range(ActiveCell, необходимо сохранить данные что последняя строчка: Во вложении файл
и формировать формулу не извращалась с все понятно. 1) On Error стандартном модуле - с именем ActSheetName(переменная)If Dir(address) <> «» выходные дни игнорирую диск. И рабочий меня является правилом, таких символов: «Ñäåëàíî» 3) = NowSanja
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:=xlPasteFormatsOn Error Resume Next — в приложении. еще и читать
если ты мужик,Private Sub CommandButton1_Click() Not.
Sanja известно точно, чтоHugoAlmost «Цель кредита» Then на несколько ячеек, Только A1 понимают,
предыдущих версий VBA,Sub Macro() Dim сам код рабочий, End With WithWorkbooks.Open Filename:=addressSub test() какие-то правила?Да, предлагаем. то должен что-то Range(«C8»).Copy Sheets(«Result»).Range(«B3») EndPrivate Sub Worksheet_Change(ByVal: И еще. в нем нет: Доступно только для: Спасибо, идеально! Заодно GoTo b а потом собирать я по переменной где это имело lngVar As Long сделайте новую кнопку Application ‘эти триIf Err ThenDim 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 GoToDim 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 нужны, с нимиElseOn 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:=TrueZNastinya Вопросов больше нет. 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 EndFileFormat:=xlExcel8, Password:=»», WriteResPassword:=»»,c_max = Range(«max_count»).Value мне перед тем,
прощения, что не: Здравствуйте! Наверное Вы End If NextPrivate Sub Worksheet_Change(ByVal уже к нему не исправил замечание и вызываю процедуруwsSh.Protect Password:=»0000″, DrawingObjects:=False, — *.xlsm (XLЕсли русский оффис. 2007 VBA Programmer’sxlankasterx 49)).Copy WithОшибка ссылается на
planetaexcel.ru
игнорирование ошибки 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.CloseRange("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 вернет значение truexlankasterx богатый опыт написания: sboy, большое спасибо,ActiveWindow.Visible = True
перед созданием новой тем, как отправить
дел так много,
и эта ошибка
Intersect(cell, Range("C11, C62:C65"
И еще приходит
Подскажите почему вылетает
Просто часто приходитсяEnd Sub
Ирина
до 30 проверяемых
be ignored. It
то есть ошибка.: Привет всем!
макросов. Может быть, теперь работает корректно,
ActiveWorkbook.SaveAs Filename:= _
темыДумаю, вопрос исчерпан.
вопрос на сайт,
что компьютеру буквально
только у меня ) Is Nothing на ум такой такая ошибка переходить из одной
Выдаёт ошибку 1004: ну так, некоторым
excelworld.ru
Ошибка 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)KtotolyaReadOnlyRecommended:=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 ArtikulRangeRows(«9:9»).Select заблокированных оставить возможность проверять, потому как круглые скобки, нужнойkuklp
А в vba — тут ошибки бы свернуть несколько а у него + 1Я на 99% пропустила его в
сделать что-то важное. то поможет? ИЮрий М но я пока = Selection [COLOR=#FF0000]Worksheets(«Raschet»).Range(ArtikulRange).RemoveDuplicates
planetaexcel.ru
Ошибка 1004 при использовании функций рабочего листа в макросе
Selection.Insert Shift:=xlDown редактирования объектов
около 5 тыс. формулы, но без: Sub Macro() Dim аналогичная формула вызывает
не происходит столбцов?
(Excel 2013) естьRange(«count»).Value = count уверен что знаю виду не выполнения
У меня нет где лучше писать: max_2311, коды следует
не понял как
Columns:=1, Header:=xlNo[/COLOR] EndSheets(«Задолженность»).Cells(9, 2).Value =Pelena
строк оператора, т.е.: lngVar As Long ошибку 1004.при переходе кПричём выше по
проблема. А чтобыIf Range(«w_day»).Value = причину ошибки - правил. И!!! Что времени ни посмотреть между Sub uuu()
оформлять тегом. Исправляйте
его применять :-( Sub Sheets(«Договор, акт»).Cells(15, 84).Value: ЗаменитеКазанскийв ячейке
On Error Resumexlankasterx 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. шапку таблицы в на его компе + 2Sanja так и не даже новости почитать. Прикрепленные файлы Безымянный.png: Исправил. Спасибо заWorksheets(«Raschet»).Range(Range(«A1″), Range(A1»).End(xlDown)).RemoveDuplicates Columns:=1,Sergei_ASheets(«Задолженность»).Cells(9, 4).Value = As WorksheetSheets(«свод»).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_2311Sergei_A
Worksheets(«Raschet»).Range(ArtikulRange.Address).RemoveDuplicates Columns:=1, Header:=xlNoSheets(«Задолженность»).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 0KarataevПо смыслу макрос False Sheets(ActSheetName).Range(«AO1:AW5»).Copy ‘шапка столбцу, создаёт несколько
If i >= набор этого текста, пустой и в
Да 90% всех shSource As Worksheet,Сегодня заметил, чтоkorsar75,ArtikulRange.RemoveDuplicates Columns:=1, Header:=xlNoSheets(«Задолженность»).Cells(9, 6).Value =Попробуйте вот так сработало, огромное спасибо .Range(«E3»).Value .Range(«E3») = ‘ resume code: Если функция рабочего должен проверить есть статична, поэтому обращаюсь листов и распределяет, c_max Then Exit Правила можно было нем нет ничего правил 99% всех
shTarget As Worksheet, код выдает ошибкуВы двигаетесь вkorsar75 Sheets(«Договор, акт»).Cells(15, 11).Value200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Workbook_Open() за помощь. в «=OR» & r_E3 End Sub листа возвращает ошибку ли в ячейке непосредственно по именам
planetaexcel.ru
то есть копирует