Макрос выдает ошибку 1004 что это значит

	Возникает при переходе по ссылке из одного листа на другой

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970

Юрий я не рунописец но пока начинаю это читать 1004 Ошибка, определенная приложением или объектом. Довольно распространенное универсальное сообщение об ошибке. Данная ошибка возникает тогда, когда ошибка генерируется не в VBA. Другими словами, ошибка определяется в Excel (или в другом объекте) и передается в VBA. Также эта ситуация возникает в случае если ошибка генерируется специально (для этого используется метод Raise объекта Err), но она не определена в VBA Прикладывайте примеры Лень двигатель прогресса, доказано!!!

Юрий М Модератор Сообщений: 60810 Регистрация: 14.09.2012 Контакты см. в профиле	Юрий, я подправил название темы: так больше конкретики. Ведь с Вашим названием все вопросы по ошибкам можно смело задавать в Вашей теме. Так лучше? Ну почему бы самому не придумать нормальное название?

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	Юрий Глодовский, я почему говорю про пример и почему так быстро привел описание ошибки, потому что ща сам сижу втыкаю в неё, так ка записал макрорекодером макрос попытался его усовершенствовать и мне выдает такую фигню и я не думаю что мы с вами делаем одно и тоже Лень двигатель прогресса, доказано!!!

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

Юрий М Модератор Сообщений: 60810 Регистрация: 14.09.2012 Контакты см. в профиле	Начните с того, что прогоните код пошагово: для начала выясним — на какой строке и в какой процедуре возникает эта ошибка.

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	#7 16.05.2014 22:53:10 Цитата Юрий Глодовский пишет: У меня вопрос в какую сторону хотя бы копать. это не ко мне, сам тупил над такой же ошибкой около 30 минут, грохнул макрос рисую заново, но это чисто развлекуха под пиво к работе у меня ни как не относится Лень двигатель прогресса, доказано!!!

Юрий Глодовский Пользователь Сообщений: 137 Регистрация: 17.03.2013

#8 16.05.2014 23:42:20 Юрий М, в третьей строке, тот что If Not Intersect… Код Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)     '// Проверяем, что выделенная ячейка пересеклась с колонкой "А"     If Not Intersect(Target, Columns("C")) Is Nothing And Target.Parent.Name = "База" Then         '//Проверяем, что это не первая строка (там у нас будет заголовок таблицы)         If Target.Row <> 1 Then             If Target.Cells.Count = 1 Then '// Если выделена только одна ячейка                 '// Проверяем, что ячейка не пуста                 If Len(Target.Offset(0, -2).Value) <> 0 Then                     '// На всякий случай - предотвращение ошибок во время файловых операций                     On Error Resume Next                     '// Внимание Mkdir (в отличие от DOS-версии) не умеет создавать цепочку папок                     '// Это означает, что папка, в которой нужно создавать новую, уже должна существовать                     Dim HomeDir$                     HomeDir = "D:Base" '// Задаем исходную папку (у Вас - это: "D:Base")                     MkDir (HomeDir & "" & Target.Offset(0, -2).Value)                     If Err = 0 Then Cells(Target.Row, "C").Formula = "=HYPERLINK(""" & HomeDir & """&A" & Target.Row & ",""IIIII"")"                 End If             End If         End If     End If End Sub

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	#9 16.05.2014 23:44:38 Цитата Юрий М пишет: Начните с того, что прогоните код пошагово: для начала выясним — на какой строке и в какой процедуре возникает эта ошибка. Юрий Глодовский, обращайте внимание на советы, если не знаете как это сделать, спрашивайте, дадут либо ссылку либо совет как это сделать, КОТ хоть и сидит со скелетом но форумчан редко ест Лень двигатель прогресса, доказано!!!

Hugo Пользователь Сообщений: 23385 Регистрация: 22.12.2012	#10 16.05.2014 23:46:23 У меня нет ошибки. Но попробуйте Код     If Not Intersect(Target, ActiveSheet.Columns("C")) Is Nothing And Target.Parent.Name = "База" Then кто его знает… или Код     If Not Intersect(Target, target.parent.Columns(3)) Is Nothing And Target.Parent.Name = "База" Then Изменено: Hugo — 17.05.2014 08:31:16

Юрий М Модератор Сообщений: 60810 Регистрация: 14.09.2012 Контакты см. в профиле	Без файла сложно, конечно… Лист «База» есть?

Hugo Пользователь Сообщений: 23385 Регистрация: 22.12.2012	Юра, у меня листа База не было. В начале Это не влияет. Нет листа — не выполняется условие всего лишь…

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	вообще не уверен но со своей ошибкой кажись разобрался я когда писал рекодером копировал формулы из одного документа в другой, когда они оба были открыты макрос работал, после того как я закрыл файл из которого копировал формулы начал запускать макрос начала вылетать эта ошибка Лень двигатель прогресса, доказано!!!

Юрий Глодовский Пользователь Сообщений: 137 Регистрация: 17.03.2013	#14 17.05.2014 00:00:16 Цитата Hugo пишет: If Not Intersect(Target, target.parent.Columns(3)) Is Nothing And Target.Parent.Name = «База» Then Этот вариант помог. Большое спасибо. Сергей, посмотрите, может вам пригодится.

Юрий М Модератор Сообщений: 60810 Регистрация: 14.09.2012 Контакты см. в профиле	#15 17.05.2014 00:02:43 Немного смущает несоответствие комментария и строки кода. Комментарий ошибку не вызовет, но всё же: Код '// Проверяем, что выделенная ячейка пересеклась с колонкой "А" А проверяем столбец С.

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	#16 17.05.2014 00:13:50 Цитата Юрий Глодовский пишет: может вам пригодится. в будущем может, на данном моменте эволюции понимания в VBA у меня даже таких строк нет Лень двигатель прогресса, доказано!!!

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#17 17.05.2014 01:13:52 Замечу, что Target.Parent это Sh, который передается в процедуру. Лучше разбить первую проверку на две, чтобы сначала шла быстрая операция сравнения имени, а потом громоздкий Intersect: Код If Sh.Name = "База" Then   If Not Intersect(Target, Sh.Columns(3)) Is Nothing Then

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 Fixo Document Repair 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. Download and launch Fixo on your PC or laptop. Choose «File Repair» to repair corrupted Office documents, including Word, Excel, PDF, and others. Click «Add Files» to select corrupted documents.

Step 2. To repair multiple files at once, click the «Repair All» button. If you want to repair a single document, move your pointer to the target file and choose «Repair». You can also preview the documents by clicking the eye icon.

Step 3. Click «Save» to save a selected document. Select «Save All» to save all the repaired files. Choose «View Repaired» to locate the repaired folder.

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 Fixo is highly recommended by many users & IT professionals to help you repair Word, Excel, PowerPoint, and PDF files. 

VBA (Microsoft Visual Basic for Application) is an internal programming language in Microsoft Excel. Sometimes, when users try to run VBA or generate a Macro in Excel, the Run-time error 1004 may occur. This error may occur due to the presence of more legend entries in the chart, file conflict, incorrect Macro name, and corrupt Excel files. In this blog, we have discussed the reasons and shared some solutions to resolve run-time error 1004.

Why This Error Occurs?

The run time error 1004 usually occurs when you run a VBA macro with the Legend Entries method to modify the legend entries in the MS Excel chart. It happens when the chart contains more legend entries than the available space, macro name conflicts, corrupt Excel files, or data-types mismatch in the VBA code.

How to Fix Excel Run-Time Error 1004?

Try the below workarounds to fix Excel run-time error 1004:

Create a Macro to Reduce Chart Legend Font Size

Sometimes, Excel throws the run-time error when you try to run VBA macro to change the legend entries in a Microsoft Excel chart. This error usually occurs when Microsoft Excel truncates the legend entries because of the more legend entries and less space availability. To fix this, try to create a macro that shrinks/minimize the font size of the Excel chart legend text before the VBA macro, and then restore the font size of the chart legend. Here is the macro code:

VBCopy
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
Note: Make sure you have an Excel chart to run the code on the worksheet.

Uninstall Microsoft Work

You may encounter a run-time error 1004 in Excel version 2009 or older versions due to conflicts between Microsoft works and Microsoft Excel. This error usually occurs if your system has both Microsoft Office and Microsoft Works. Uninstalling one of them will fix the issue. Try the below steps to uninstall Microsoft Work:

• First, open the Task Manager using the shortcut CTRL + ALT + DEL altogether
• The Task Manager window is displayed.

• Click the Process tab, right-click on each program you want to close, and then click End Task.
• Stop all the running programs.
• Open the Run window and type appwiz.cpl to open the Programs and Feature window.

• Search for Microsoft Works and click Uninstall.

Try Deleting GWXL97.Xla File

The Add-ins files with .xla extension in MS-EXCEL is used to provide additional functionality to Excel spreadsheets. Sometimes, deleting the GWXL97.XLA file fixes the run-time error. Here are the steps to delete this file:

• Make sure you have an Admins rights, open the Windows Explorer
• Follow the Path C:Programs FilesMSOfficeOfficeXLSTART.
• Find and right-click on the GWXL97.XLA file
• Click Delete.

Change Trust Center Settings

Sometimes, run-time errors might arise because of incorrect security settings. The Trust Center settings help you find the Privacy and security settings for Microsoft Excel. Follow the below steps to change the Trust center settings:

• Open Microsoft Excel.
• Go to File > Options.
• The Excel options window is displayed.
• Choose Trust Center, and click Trust Center Settings.
• Tap on the Macro Settings tab, and select Trust access to the VBA project object model.

• Click OK.

Run Open and Repair Tool

The Runtime error also arises when MS Excel detects a corrupted worksheet. It automatically begins the File recovery mode and starts repairing it. However, if the Recovery mode fails to start, use the Open and Repair tool with the below steps:

• Click File > Open.
• Click the location and folder with a corrupted workbook.
• In the Open dialog box, choose the corrupted workbook.
• Click the arrow next to the Open tab, and go to the Open and Repair tab. 
• Click Repair.

You can also opt for Stellar Repair for Excel if the Microsoft Excel’s built-in tool cannot fix the error.

Use Stellar Repair for Excel

Stellar Repair for Excel is a professional software for repairing damage. xls, .xlsx, .xltm, .xltx, and xlsm files and recovering all its objects. Here are the steps to fix the error using this tool:

• First, download, install, and run Stellar Repair for Excel.
• Click the Browse tab on the interface window to choose the corrupted Excel file you need to repair.
• Click Scan. You will see the scan progress in the scanning window.
• Click OK.
• The tool can let you preview all the recoverable Excel file components including tables, pivot tables, charts, formulas, etc.
• Click Save to save the repaired file. 
• A Save File dialog box will appear with the below two options:
• Default location
• New location

• Choose a suitable option. 
• Click the Save option to repair the Excel file that you have chosen.
• Once the repair is complete, it will display a message “File repaired successfully.”
• Click OK.

Conclusion

Now you know the Excel run-time error 1004, its cause, and solutions. Follow the workarounds discussed in the blog to rectify the error quickly. However, Stellar Repair for Excel makes your task of removing run-time errors easy. It’s a powerful software to fix all the issues with Excel files. Also, it helps in extracting data from the damaged file and saves it to a new Excel workbook.