Два одинаковых по сути макроса - один работает второй нет.((

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

Два одинаковых по сути макроса - один работает второй нет.(( (Макрос работает только через столбец таблицы)

Дата: Понедельник, 02.04.2018, 11:37 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 13

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

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

Excel 2016

Здравствуйте уважаемые форумчане!
Сделал простые макросы скрыть/показать строки и отсортировать по увеличению значений и вот сюрприз - один работает, а второй выдает ошибку (точнее первый в коде с ошибкой - выделено красным, а второй рабочий). В программировании не очень разбираюсь. Сравнил просто коды двух макросов - явных отличий не заметил. Помогите пожалуйста разобраться. Заранее благодарю.
Вот какую ошибку выдает:

И вот на что указывает (кстати второй макрос похожий и ошибок нет):

[vba]

Код

Sub макрос1()
'
' макрос1 Макрос
'

'
Columns("N:AG").Select
Selection.EntireColumn.Hidden = False
Columns("S:AF").Select
Selection.EntireColumn.Hidden = True
ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Clear
[color=red]ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Add Key:=Range("Таблица24[[#All],[¦ MACD]]"), SortOn:=xlSortOnValues _
, Order:=xlAscending, DataOption:=xlSortNormal[/color]
With ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub макрос2()
'
' макрос2 Макрос
'

'
Columns("N:AG").Select
Selection.EntireColumn.Hidden = False
Columns("U:AF").Select
Selection.EntireColumn.Hidden = True
ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Clear
ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Add Key:=Range("Таблица24[[#All],[MACD -1]]"), SortOn:=xlSortOnValues _
, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

[/vba]

И вот на что указывает (кстати второй макрос похожий и ошибок нет):

[vba]

Код

[/vba]JK

Сообщение отредактировал JK - Понедельник, 02.04.2018, 18:45

Ответить

СообщениеЗдравствуйте уважаемые форумчане!
Сделал простые макросы скрыть/показать строки и отсортировать по увеличению значений и вот сюрприз - один работает, а второй выдает ошибку (точнее первый в коде с ошибкой - выделено красным, а второй рабочий). В программировании не очень разбираюсь. Сравнил просто коды двух макросов - явных отличий не заметил. Помогите пожалуйста разобраться. Заранее благодарю.
Вот какую ошибку выдает:

И вот на что указывает (кстати второй макрос похожий и ошибок нет):

[vba]

Код