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] Помогите пожалуйста.
Здравствуйте! Создал макрос. Может немного коряво и с лишними командами, но он работает так как нужно. Так вот. Создавался он для многих аналогичных листов с разными названиями. Копирую макрос, меняю название листа(в 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] Помогите пожалуйста. Serviz
Ответить
Сообщение Здравствуйте! Создал макрос. Может немного коряво и с лишними командами, но он работает так как нужно. Так вот. Создавался он для многих аналогичных листов с разными названиями. Копирую макрос, меняю название листа(в 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] Помогите пожалуйста. Автор - Serviz Дата добавления - 04.12.2013 в 17:35
SkyPro
Дата: Среда, 04.12.2013, 18:08 |
Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация:
255
±
Замечаний:
0% ±
2010
Вот вам решение: только я вырезал файл.
Вот вам решение: только я вырезал файл. SkyPro
skypro1111@gmail.com
Ответить
Сообщение Вот вам решение: только я вырезал файл. Автор - SkyPro Дата добавления - 04.12.2013 в 18:08
Serviz
Дата: Пятница, 06.12.2013, 14:40 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Спасибо. Нашел решение простое вчера под бутылочку пивка... Удалил лист, создал такой-же с таким-же названием новый и все заработало... Неожиданно...)
Спасибо. Нашел решение простое вчера под бутылочку пивка... Удалил лист, создал такой-же с таким-же названием новый и все заработало... Неожиданно...) Serviz
Ответить
Сообщение Спасибо. Нашел решение простое вчера под бутылочку пивка... Удалил лист, создал такой-же с таким-же названием новый и все заработало... Неожиданно...) Автор - Serviz Дата добавления - 06.12.2013 в 14:40
Сашенька
Дата: Вторник, 27.05.2014, 20:24 |
Сообщение № 4
Ребят хелп.... Вообщем создал макрос и при копировании документа с ним в другую директорию, этот макрос не работает... Вызываю я его через меню надстроек... Как сохранить так чтобы макрос плавал вместе с документом????
Ребят хелп.... Вообщем создал макрос и при копировании документа с ним в другую директорию, этот макрос не работает... Вызываю я его через меню надстроек... Как сохранить так чтобы макрос плавал вместе с документом???? Сашенька
Ответить
Сообщение Ребят хелп.... Вообщем создал макрос и при копировании документа с ним в другую директорию, этот макрос не работает... Вызываю я его через меню надстроек... Как сохранить так чтобы макрос плавал вместе с документом???? Автор - Сашенька Дата добавления - 27.05.2014 в 20:24
Stormy
Дата: Вторник, 27.05.2014, 21:08 |
Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация:
12
±
Замечаний:
0% ±
Excel 2010
Сашенька , Как сохранить так чтобы макрос плавал вместе с документом????
Сохраняя в Этой книге он будет плавать вместе с книгой же. Возможно ошибка таки в другом.
Сашенька , Как сохранить так чтобы макрос плавал вместе с документом????
Сохраняя в Этой книге он будет плавать вместе с книгой же. Возможно ошибка таки в другом.Stormy
Место для рекламы.
Ответить
Сообщение Сашенька , Как сохранить так чтобы макрос плавал вместе с документом????
Сохраняя в Этой книге он будет плавать вместе с книгой же. Возможно ошибка таки в другом.Автор - Stormy Дата добавления - 27.05.2014 в 21:08