Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Run-time error 1004 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Run-time error 1004 (Макросы/Sub)
Run-time error 1004
Zealot921 Дата: Четверг, 04.08.2016, 13:00 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Добрый день. Выскакивает ошибка при выполнении такого макроса, подскажите, в чем может быть проблема?
[vba]
Код
Sub Печать()
Sheets("1").PrintOut Copies:=CInt(Sheets("Описи").Range("AF3")), Collate:=True, IgnorePrintAreas:=False
On Error Resume Next
Sheets("2").PrintOut Copies:=CInt(Sheets("Описи").Range("AF4")), Collate:=True, IgnorePrintAreas:=False
On Error Resume Next
Sheets("3").PrintOut Copies:=CInt(Sheets("Описи").Range("AF5")), Collate:=True, IgnorePrintAreas:=False
On Error Resume Next
[/vba]


Сообщение отредактировал Manyasha - Четверг, 04.08.2016, 13:07
 
Ответить
СообщениеДобрый день. Выскакивает ошибка при выполнении такого макроса, подскажите, в чем может быть проблема?
[vba]
Код
Sub Печать()
Sheets("1").PrintOut Copies:=CInt(Sheets("Описи").Range("AF3")), Collate:=True, IgnorePrintAreas:=False
On Error Resume Next
Sheets("2").PrintOut Copies:=CInt(Sheets("Описи").Range("AF4")), Collate:=True, IgnorePrintAreas:=False
On Error Resume Next
Sheets("3").PrintOut Copies:=CInt(Sheets("Описи").Range("AF5")), Collate:=True, IgnorePrintAreas:=False
On Error Resume Next
[/vba]

Автор - Zealot921
Дата добавления - 04.08.2016 в 13:00
Апострофф Дата: Четверг, 04.08.2016, 13:26 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 26 ±
Замечаний: 0% ±

Excel 2003
в чем может быть проблема?

Предлагаете нам догадаться, какого (или каких) из 4-х перечисленных листов нет в Вашей активной книге?
 
Ответить
Сообщение
в чем может быть проблема?

Предлагаете нам догадаться, какого (или каких) из 4-х перечисленных листов нет в Вашей активной книге?

Автор - Апострофф
Дата добавления - 04.08.2016 в 13:26
sboy Дата: Четверг, 04.08.2016, 13:26 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 196
Репутация: 48 ±
Замечаний: 0% ±

Excel 2007
в чем может быть проблема?

либо в именах листов (существуют такие имена в той книге, где пытаетесь выполнить макрос?)
либо в значениях ячеек "AF3" "AF4" "AF5" (может они не содержат числовых значений)

подробнее с файлом, где вылетает ошибка
 
Ответить
Сообщение
в чем может быть проблема?

либо в именах листов (существуют такие имена в той книге, где пытаетесь выполнить макрос?)
либо в значениях ячеек "AF3" "AF4" "AF5" (может они не содержат числовых значений)

подробнее с файлом, где вылетает ошибка

Автор - sboy
Дата добавления - 04.08.2016 в 13:26
Саня Дата: Четверг, 04.08.2016, 13:53 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 1015
Репутация: 491 ±
Замечаний: 0% ±

XL 2010
Выскакивает ошибка при выполнении такого макроса, подскажите, в чем может быть проблема?

поменяйте три строчки "Sheets("X")..." со строчками "On Error ..." местами.
 
Ответить
Сообщение
Выскакивает ошибка при выполнении такого макроса, подскажите, в чем может быть проблема?

поменяйте три строчки "Sheets("X")..." со строчками "On Error ..." местами.

Автор - Саня
Дата добавления - 04.08.2016 в 13:53
alma79 Дата: Среда, 14.09.2016, 10:15 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Добрый день. Прописала маленький макрос. Сохранила в этой книге. Книга остается открытой, но при выполнение в другой книге маркос дает ошибку run-time error 1004 - компонент с указанным именем не найден. Что я сделала не так?
[vba]
Код
Sub Макрос3()
'
' Макрос3 Макрос
'

'
ActiveSheet.Shapes.Range(Array("Picture 6")).Select
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Height = 70.8661417323
Selection.Placement = xlMoveAndSize
Cells.Select
Selection.ColumnWidth = 12.86
Selection.RowHeight = 75
Columns("A:A").Select
Selection.ColumnWidth = 6.57
Columns("B:B").ColumnWidth = 11
Rows("1:1").RowHeight = 48
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.RowHeight = 20.25
Columns("D:H").Select
Selection.Delete Shift:=xlToLeft
Range("E:E,G:G").Select
Range("G1").Activate
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.ColumnWidth = 10.43
Columns("D:D").Select
Selection.ColumnWidth = 7.29
Selection.ColumnWidth = 6.43
Columns("J:M").Select
Selection.Delete Shift:=xlToLeft
Range("K:K,N:N").Select
Range("N1").Activate
Selection.Delete Shift:=xlToLeft
Columns("F:L").Select
Selection.ColumnWidth = 6.71
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Rows("2:2").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.Font.Bold = True
Selection.Font.Italic = True
Selection.Font.Italic = False
Selection.Font.Bold = False
With Selection
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("N3").Select
End Sub
[/vba]


Сообщение отредактировал Pelena - Среда, 14.09.2016, 10:33
 
Ответить
СообщениеДобрый день. Прописала маленький макрос. Сохранила в этой книге. Книга остается открытой, но при выполнение в другой книге маркос дает ошибку run-time error 1004 - компонент с указанным именем не найден. Что я сделала не так?
[vba]
Код
Sub Макрос3()
'
' Макрос3 Макрос
'

'
ActiveSheet.Shapes.Range(Array("Picture 6")).Select
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Height = 70.8661417323
Selection.Placement = xlMoveAndSize
Cells.Select
Selection.ColumnWidth = 12.86
Selection.RowHeight = 75
Columns("A:A").Select
Selection.ColumnWidth = 6.57
Columns("B:B").ColumnWidth = 11
Rows("1:1").RowHeight = 48
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.RowHeight = 20.25
Columns("D:H").Select
Selection.Delete Shift:=xlToLeft
Range("E:E,G:G").Select
Range("G1").Activate
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.ColumnWidth = 10.43
Columns("D:D").Select
Selection.ColumnWidth = 7.29
Selection.ColumnWidth = 6.43
Columns("J:M").Select
Selection.Delete Shift:=xlToLeft
Range("K:K,N:N").Select
Range("N1").Activate
Selection.Delete Shift:=xlToLeft
Columns("F:L").Select
Selection.ColumnWidth = 6.71
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Rows("2:2").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.Font.Bold = True
Selection.Font.Italic = True
Selection.Font.Italic = False
Selection.Font.Bold = False
With Selection
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("N3").Select
End Sub
[/vba]

Автор - alma79
Дата добавления - 14.09.2016 в 10:15
китин Дата: Среда, 14.09.2016, 10:21 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3413
Репутация: 543 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
оформляйте коды тэгами(выделить код и нажать кнопичку
К сообщению приложен файл: 0961808.gif(17Kb)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеоформляйте коды тэгами(выделить код и нажать кнопичку

Автор - китин
Дата добавления - 14.09.2016 в 10:21
_Boroda_ Дата: Среда, 14.09.2016, 10:34 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 9346
Репутация: 3922 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Прочитайте Правила форума и создайте новую тему, оформив ее согласно этим Правилам.


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПрочитайте Правила форума и создайте новую тему, оформив ее согласно этим Правилам.

Автор - _Boroda_
Дата добавления - 14.09.2016 в 10:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Run-time error 1004 (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!