При копировании макрос перестает работать.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » При копировании макрос перестает работать. (Макросы Sub)

Serviz

Дата: Среда, 04.12.2013, 17:35 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте!
Создал макрос. Может немного коряво и с лишними командами, но он работает так как нужно.
Так вот. Создавался он для многих аналогичных листов с разными названиями. Копирую макрос, меняю название листа(в 2-х местах), и по идее он должен работать в новом листе! НО падла не работает.... заканчивает работу почти сразу со словами "Run-time error "9": Subscript out of range". почему? вот макрос(вырезал середину, там повторяются действия по месяцам):
[vba]

Код

Sub ООО_распределить()
'
' ООО_распределить Макрос
'

'
     Sheets("ООО").Select
     Range("A2").Select
     Selection.AutoFilter
     ActiveSheet.Range("$A$2:$F$28").AutoFilter Field:=1, Criteria1:= _
         xlFilterAllDatesInPeriodJanuary, Operator:=xlFilterDynamic
     Range("H1").Select
     ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,RC[-6]:R[500]C[-6])"
     Range("H1").Select
     Selection.Copy
     Range("I1").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
     Application.CutCopyMode = False
     Selection.Copy
     Range("J4").Select
     ActiveSheet.Paste
     ActiveSheet.Range("$A$2:$F$28").AutoFilter Field:=1, Criteria1:= _
         xlFilterAllDatesInPeriodFebruray, Operator:=xlFilterDynamic
     Range("H1").Select
     ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,RC[-6]:R[500]C[-6])"
     Range("H1").Select
     Selection.Copy
     Range("I1").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
     Application.CutCopyMode = False
     Selection.Copy
     Range("K4").Select
     ActiveSheet.Paste
     ActiveSheet.Range("$A$2:$F$28").AutoFilter Field:=4, Criteria1:= _
         xlFilterAllDatesInPeriodDecember, Operator:=xlFilterDynamic
     Range("H1").Select
     ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,RC[-3]:R[500]C[-3])"
     Range("H1").Select
     Selection.Copy
     Range("I1").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
     Application.CutCopyMode = False
     Selection.Copy
     Range("U5").Select
     ActiveSheet.Paste
     Range("H1:I1").Select
     Selection.ClearContents
     Range("G1").Select
     Selection.AutoFilter
     Range("J2").Select
     ActiveCell.FormulaR1C1 = "=R[2]C+1000000000000000"
     Range("J1").Select
     ActiveCell.FormulaR1C1 = "=1000000000000000-R[1]C"
     Range("J1:J2").Select
     Selection.AutoFill Destination:=Range("J1:U2"), Type:=xlFillDefault
     Range("J1:U2").Select
     Range("J1:U1").Select
     Selection.Copy
     Range("J4").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
     Range("J1:U2").Select
     Application.CutCopyMode = False
     Selection.ClearContents
     Range("H1").Select
End Sub

[/vba]

Помогите пожалуйста.

Код

[/vba]

Помогите пожалуйста.Serviz

Ответить

СообщениеЗдравствуйте!
Создал макрос. Может немного коряво и с лишними командами, но он работает так как нужно.
Так вот. Создавался он для многих аналогичных листов с разными названиями. Копирую макрос, меняю название листа(в 2-х местах), и по идее он должен работать в новом листе! НО падла не работает.... заканчивает работу почти сразу со словами "Run-time error "9": Subscript out of range". почему? вот макрос(вырезал середину, там повторяются действия по месяцам):
[vba]

Код

[/vba]

Помогите пожалуйста.

Автор - Serviz
Дата добавления - 04.12.2013 в 17:35

SkyPro

Дата: Среда, 04.12.2013, 18:08 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Вот вам решение:
только я вырезал файл.

skypro1111@gmail.com

Ответить

Serviz

Дата: Пятница, 06.12.2013, 14:40 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Спасибо. Нашел решение простое вчера под бутылочку пивка... Удалил лист, создал такой-же с таким-же названием новый и все заработало... Неожиданно...)

Ответить

Сашенька

Дата: Вторник, 27.05.2014, 20:24 | Сообщение № 4

Группа: Гости

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

Ответить

Stormy

Дата: Вторник, 27.05.2014, 21:08 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 357

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

Сашенька,

Цитата Сашенька, 27.05.2014 в 20:24, в сообщении № 4

Как сохранить так чтобы макрос плавал вместе с документом????

Сохраняя в Этой книге он будет плавать вместе с книгой же. Возможно ошибка таки в другом.

Место для рекламы.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » При копировании макрос перестает работать. (Макросы Sub)

Страница 1 из 1
1