Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Копирование двух умных таблиц и создание третьей, не работает макрос под Mac
 
Здравствуйте, участники форума. Сделал макрос, который работ на PC, но не работает на Маке.

Макрос копирует умные таблицы "Table01", "Table02" на листах "01", "02" и вставляет на третий лист "vspom2" и делает из объединенной таблицы умную с названием "AllTables".

На Маке выделяется первая строчка макроса желтым и появляется сообщение "Эта команда приведет к остановке отладчика". Не пойму в чем проблема

Код
Sub ForAllTables()
    
Dim XYZ As Long
Dim iLastRowXYZ As Long

Worksheets("Vspom2").Activate
Worksheets("Vspom2").Cells.Select
Selection.Delete Shift:=xlUp

ThisWorkbook.Worksheets("01").Select
ThisWorkbook.Worksheets("01").ListObjects("Table01").Range.Select
Selection.Copy

ThisWorkbook.Worksheets("Vspom2").Range("A1").PasteSpecial xlPasteValues
ThisWorkbook.Worksheets("Vspom2").Range("A1").PasteSpecial xlPasteColumnWidths
ThisWorkbook.Worksheets("Vspom2").Range("A1").PasteSpecial xlPasteFormats

ThisWorkbook.Worksheets("02").Select
ThisWorkbook.Worksheets("02").ListObjects("Table02").DataBodyRange.Select
Selection.Copy

iLastRowXYZ = Worksheets("Vspom2").Cells(Rows.Count, 2).End(xlUp).Row

ThisWorkbook.Worksheets("Vspom2").Cells(iLastRowXYZ + 2, 1).PasteSpecial xlPasteValues
ThisWorkbook.Worksheets("Vspom2").Cells(iLastRowXYZ + 2, 1).PasteSpecial xlPasteColumnWidths
ThisWorkbook.Worksheets("Vspom2").Cells(iLastRowXYZ + 2, 1).PasteSpecial xlPasteFormats

Worksheets("Vspom2").Activate
XYZ = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$P$" & XYZ), , xlYes).Name = "AllTables"

End Sub
 
Для Мас у нас есть отдельный форум.
 
Andrey A, файл покажете?
 
Файл с макросом.

Из третьей умной таблицы, расположенной на листе Vspom2 создаются сводные таблицы
 
У меня нормально отработал макрос (Mac Excel 16.12).
Очень рекомендую задать кодовые имена листов латиницей, т.к. при открытии файла на Mac'е кириллица коверкается, и создаются клоны листов, что может отрицательно повлиять на выполнение макросов
Страницы: 1
Читают тему (гостей: 2)